文件删除批量处理？

tengfei0311

文件名： ES01.dat .............................ES999.dat（1000多个要处理的文件）

文件内容：

YN   ES22 31.2  90.1  （第一行）
XW  ES49 30.1  180   （第二行）
10  3.1
11  2.9
12  3.9
13  3.5
...
...
...
120  4.9

每个文件内的内容格式都相同，我想删去这么多文件中前2行前2列（上面红色的字符），该怎么处理？因为没法匹配字符串，因为每个文件里面的前两行两列字母都不一样。谢谢！

moperyblue

1. sed -r '1,2{s/^(\S+\s+){2}//M}' file

复制代码

tengfei0311

回复 2# moperyblue

不对啊！
illegal option -- r

jason680

回复 1# tengfei0311

$ head -4 ES*.dat
==> ES01.dat <==
YN  ES22 31.2  90.1
XW  ES49 30.1  180
10  3.1
11  2.9

==> ES99.dat <==
YN  ES22 31.2  90.1
XW  ES49 30.1  180
10  3.1
11  2.9

$ sed -i -r '1,2s/[^ ]+ +[^ ]+ +//' ES*.dat

$ head -4 ES*.dat
==> ES01.dat <==
31.2  90.1
30.1  180
10  3.1
11  2.9

==> ES99.dat <==
31.2  90.1
30.1  180
10  3.1
11  2.9

moperyblue

回复 3# tengfei0311

什么系统?

sed --version
sed (GNU sed) 4.2.2

1. echo 'YN   ES22 31.2  90.1
   
2. XW  ES49 30.1  180
   
3. 10  3.1
   
4. 11  2.9
   
5. 12  3.9
   
6. 13  3.5'|sed -r '1,2{s/^(\S+\s+){2}//M}'
   
7. 31.2  90.1
   
8. 30.1  180
   
9. 10  3.1
   
10. 11  2.9
    
11. 12  3.9
    
12. 13  3.5

复制代码

试试

1. sed '1,2{s/^\(\S\+\s\+\)\{2\}//M}'

复制代码

tengfei0311

回复 5# moperyblue

mac系统！

tengfei0311

回复 5# moperyblue
sl-MacBookProesktop sl$ sed '1,2{s/^\(\S\+\s\+\)\{2\}//M}' test.dat
sed: 1: "1,2{s/^\(\S\+\s\+\)\{2\ ...": bad flag in substitute command: 'M'

tengfei0311

..

tengfei0311

回复 4# jason680

大神，你是什么系统？我在mac终端运行就生成了一个.dat-r的文件

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. chdir ('urPath');
   
6. foreach (glob ('*')){
   
7.     my $old = $_;
   
8.     open (my $FHr, '<', $old);
   
9.     my @aT = <$FHr>;
   
10.     close ($FHr);
    
11. 
    
12.     foreach (0 .. 1){
    
13.         my (undef, undef, @T) = split (' ', $aT[$_]);
    
14.         $aT[$_] = "@T\n";
    
15.     }
    
16.     #unlink ($old);
    
17.     rename ($old, $old . '.bak');
    
18.     open (my $FHw, '>', $old);
    
19.     print $FHw @aT;
    
20.     close ($FHw);
    
21. }

复制代码