in reply to Re: Advice on goto usage?
in thread Advice on goto usage?
$seconds=900/$num; print "Enter the total period in hours:\n"; $periodhr=<STDIN>; $periodsec=$periodhr*3600; $output=1; for($p=0; $p<=$periodmin; $p++) { for ($i=$f;$i<=$l; $i++) { $x="$t$i"; chomp($x); $file="$x.bat"; chomp($file); unless (-x $file) #-x here checks to see if the f +ile is executable { warn "File $file does not appear to exist or is n +ot executable!!\n"; next(); } system("$file"); $time=localtime; print FOUT "$output \t"; print FOUT "$file \t"; print FOUT "$time\n"; $output++; sleep($seconds); } sleep($seconds); $i=$f; }
|
|---|