Untested legacy code is for free:
#!/usr/bin/env perl use strict; use warnings; use feature qw(say); use Data::Dump; my $string = q(lorem ipsum kizuaheli); say length $string; $string =~ m/(kizuaheli)/; say $1; dd \@-; dd \@+; say qq($-[1] $+[1]); __END__
Cheated from brian_d_foy's answer at How can I find the location of a regex match in Perl?
«The Crux of the Biscuit is the Apostrophe»
perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help
In reply to Re: script to detect spaces
by karlgoethebier
in thread script to detect spaces
by renuka
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |