Help for this page

Select Code to Download


  1. or download this
    sub dequote {
    my $x = $_[0];
...
    print "$_ => " . join( '|', @fields ) . "\n";
#     print "$_ => @fields\n";
}
  2. or download this
    aval!!!!;bval => aval!!|bval|
aval!!!!!;bval => aval!!;bval|
...
!a!!!val!!!!!;bval!! => a!val!!;bval!|
a!val!;bva!l; => aval;bval|
a!!val!!;;bv!!al;; => a!val!||bv!al||