Help for this page

Select Code to Download


  1. or download this
    sub encode {
    my $encode = shift;
...
$enc = encode ($str);
$dec = decode ($enc);
print "$enc\n$dec";
  2. or download this
    #!/usr/bin/perl -w

...
HTML

__END__
  3. or download this
    # encode all the '#' chars before we join
s/#/%35/g for values % details;
...
my @values = split "#", <FILE>;
# now unencode any encoded '#' chars in @values
s/%35/#/g for @values;