[mirrors/Programs.git] / perl / test.pl

#!/usr/bin/env perl
use Digest::MD5 md5_hex;

print "Ahoj svetee!\n";

@array = ("Neo", "Trinity", "Morpheus");
foreach(@array) { print( md5_hex($_).": $_\n"); }

for($i=1;$i<100000;$i++) { print(md5_hex($i*int(rand(10)))."\r") }

print "\n";
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/env perl
	2	use Digest::MD5 md5_hex;
	3
	4	print "Ahoj svetee!\n";
	5
	6	@array = ("Neo", "Trinity", "Morpheus");
	7	foreach(@array) { print( md5_hex($_).": $_\n"); }
	8
	9	for($i=1;$i<100000;$i++) { print(md5_hex($i*int(rand(10)))."\r") }
	10
	11	print "\n";