我有一个非常凌乱的 perl 脚本(我不是 Perl 大师),就是这个:
perl -ane '($h,$m,$s) = split /:/, $F[0];
$pid = $F[1];
$args = $F[2]." ".$F[3]." ".$F[4]." ".$F[5]." ".$F[6]." ".$F[7]." ".$F[8]." ".$F[9]." ".$F[10]." ".$F[11]." ".$F[12]." ".$F[13];
if(($h == 1 && $m > 30) || ($h > 1)) {
print "$h :: $m $kb $pid\nArguments:\n$args\n\n "; kill 9, $pid }'
我正在寻找一种方法,而不是使用所有这些连接$arg
来表示类似$arg=$F[2-end]
我很想得到任何帮助:)
谢谢!