File: md5.pl

package info (click to toggle)
libwhisker2-perl 2.4-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 664 kB
  • ctags: 303
  • sloc: perl: 7,262; makefile: 52
file content (7 lines) | stat: -rw-r--r-- 137 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
 
use Digest::MD5 qw(md5_hex);

$DATA = "0a\n<html><bod\n28\ny>This is a test response</body></html>\n0\n"
;

print md5_hex($DATA), "\n";