求perl写一个处理文本的脚本

2025-04-22 15:21:30
推荐回答(1个)
回答1:

open(FD,"1.txt");
while($s=){
    @arr=split/\s+/;
    print $arr[1]."\n" if ($arr[2]+$arr[3]<4);
}
close(FD);