Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my $s1 = q!/\Q"'[]{}()/!;

print "$s1\n";
  2. or download this
    23:39 >perl 1351_SoPW.pl
/\Q"'[]{}()/

23:46 >
  3. or download this
    use strict;
use warnings;
...
my $var = q!/\Q"'[]{}()/ or ! . $str;

print "$var\n";
  4. or download this
    23:52 >perl 1351_SoPW.pl
/\Q"'[]{}()/ or smth

23:52 >