Help for this page

Select Code to Download


  1. or download this
    18:14 >perl -wE "my $s = qq[\n\n\n]; my $t = $s =~ s{$}{}gmr; say $s e
+q $t;"
1

18:14 >
  2. or download this
    #! perl
use strict;
...
printf "%s\n", $s eq $t ? 'success' : 'fail';
print  ">$s<\n";
print  "[$t]\n";
  3. or download this
    18:29 >perl 902_SoPW.pl
fail
...
b]

18:29 >
  4. or download this
    ...
Guessed: match at offset 0
...
   3 <a%n%n> <%nb>           |  6:  END(0)
Match successful!
...