Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
                       methods =>{md5=>sub {return md5_hex (shift)}});

__END__
  2. or download this
    #!/usr/bin/perl -w

...
print $rpc->call ("md5", "1234"), $/;

__END__
  3. or download this
    sub my_md5_hex {
    my ($str) = @_;
...
    chomp ($md5);
    return $md5;
}