Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
my $s = do { local ( @ARGV, $/ ) = 'x'; <> };
$s =~ /x/;
  2. or download this
    $ /usr/bin/time -f %M perl fmap.pl
  3. or download this
    use strict;
use warnings;
use File::Map qw/ map_file /;
map_file my $s, 'x', '<';
$s =~ /x/;
  4. or download this
    $s =~ /x/; 
$s =~ /x/; 
$s =~ /x/; 
$s =~ /x/; 
$s =~ /x/;