Help for this page

Select Code to Download


  1. or download this
    my $line = 'One animal="ap3!" and another one fish="s4lm%%on" 
can all be eaten. (So can the bird="sparr0w!$$")';
  2. or download this
    $something{animal} => ap3! 
$something{fish}   => s4lm%%on
$something{bird}   => sparr0w!$$
  3. or download this
    while($line =~ s/([\w\d\_]+)="(.+)"//) {
     $something{$1} = $2;
}