Help for this page

Select Code to Download


  1. or download this
    use warnings; use strict;
for my $i (
...
    "  abcdef   ", 
    "  abcdefg   "
) {
  2. or download this
        $i =~ /\A(\s*)(.*?)(\s*)\z/s or die;
    my $o;
...
    } else {
        $o = substr($2, 0, 6);
    }
  3. or download this
        printf "%-15s%s", qq("$i"), qq( => "$o"\n);
}
__END__