genstress

来自「this gives details of the network progra」· 代码 · 共 18 行

#!/usr/local/bin/perl
# generate a stress test script

# repeats the input script a bunch of times

$n = $ARGV[0];
$script = $ARGV[1];

open(F,$script) || die $!;
@sc = <F>;
close(F);

for ($i=0;$i<$n;$i++) {
	printf("PRINT Repetition # $i\n");
	print(join("",@sc));
}