Help for this page

Select Code to Download


  1. or download this
                    if ($val =~ s/["\\]/\\$1/g or $val =~ m/[:\s]/) {
                    $val = qq["$val"];
                }
  2. or download this
    "this was quoted because of whitespace"
"\"this was quoted because of whitespace\""
  3. or download this
     foreach my $val ( @{$arrayref} ) {
    # do evil mutating things to $val
...
 foreach my $val ( @{$arrayref} ) {
    # now do it AGAIN.
 }
  4. or download this
    FIRST LOOP
SCALAR(0x857c5cc)
...
SCALAR(0x857c5d8)
SCALAR(0x857c5e4)
SCALAR(0x857c5f0)