怎样用perl实现附件中的txt格式的转变

wxusheng

F:\testt>perl conet.pl
Bad name after F' at conet.pl line 1.

wxusheng

F:\testt>perl conet.pl
String found where operator expected at conet.pl line 2, near "F '\n'"
        (Do you need to predeclare F?)
String found where operator expected at conet.pl line 2, at end of line
        (Do you need to predeclare anle?)
syntax error at conet.pl line 2, near "F '\n'"
Unrecognized character \xD7 at conet.pl line 2.

wxusheng

非常感谢楼上，但是还是有错误
F:\testt>perl 123.pl
String found where operator expected at 123.pl line 1, near "F"\n""
String found where operator expected at 123.pl line 1, at end of line
        (Do you need to predeclare anle?)
Bareword found where operator expected at 123.pl line 1, near "file"
        (Missing operator before file?)
syntax error at 123.pl line 1, near "\>"
Execution of 123.pl aborted due to compilation errors.

paktc

我想了很久，还是没有想到简单的方法，还是把粗糙的放上来了

1. 
   
2. #!/usr/bin/perl
   
3. open READ,"<src.txt" or warn "File not exist.";
   
4. open WRITE,">dest.txt";
   
5. my (@arr,@str);
   
6. my ($max,$si)=(0,0);
   
7. foreach (<READ>) {
   
8.     if (/--------/) {
   
9.         foreach (1..$#arr) {$str[$si].="$arr[$_]\t";}  #这个数组记录实际是从1开始的
   
10.         $si+=1;
    
11.         undef @arr;
    
12.     }
    
13.     if (/fd0*(.*)=(.*)/) {
    
14.        $arr[$1]=$2;
    
15.        if ($1>$max) {$max=$1;}
    
16.     }
    
17. }
    
18. foreach (1..$max) {$item=sprintf "${item}fd%04d\t",$_;}
    
19. print WRITE "$item\n";
    
20. foreach (@str) {print WRITE "$_\n";}
    
21. close READ,WRITE;
    
22. print "END";
    
23. <STDIN>;
    

复制代码

楼主不会是已经销声匿迹了吧=.= 这两天不见踪影

wxusheng

神啊，楼上你真是太牛了，完全能实现我想要的功能了，而且速度超快。帮我大忙了多谢多谢