极度难题,请大家帮忙出谋划策.文本处理问题.

rinehart

sample :
一个文件内容如下 :

a:
12345678
b:
56782
c:
12346
如何能变成如下格式:

1:
ac
2:
abc
3:
ac
4:
ac
5:
ab
6:
abc
7:
ab
8:
ab

kkng09

for i in 1 2 3 4 5 6 7 8
do
echo "$i:"
if grep -q $i a
then
   echo -n a
fi
if grep -q $i b
   then echo -n b
fi
if grep -q $i c
   then echo -n c
fi
echo
done

anonimousboy

把文件格式弄成一下格式
a:12345678
b:56782
c:12346
然后执行以下脚本:
#!/bin/perl
$curLine="";
$outLine="";
$tem="";
$already=0;
open(INPUT,"input"||die("can't open the file IN";
open(OUTPUT,">>output"||die("can't open the file OUT";
for($iCnt=0;$iCnt<=9;$iCnt++){
      $outLine="";$already=0;                          
      open(INPUT,"input"||die("can't open the file IN";
       while($curLine=<INPUT>{
        if($curLine =~ /$iCnt/){
              if(!$already){
                print OUTPUT $iCnt.":"."\n";
                $already=1;
              }
        $tem=substr($curLine,0,1);
        $outLine=$outLine.$tem;
        }
       }
        print OUTPUT $outLine."\n";
}       
close(OUTPUT)||die("can't close the file OUT";
close(INPUT)||die("can't close the file OUT";

rinehart

谢谢anonimousboy ，可是如果我有10万个（abc），那怎么办 ？

anonimousboy

[quote]原帖由 "rinehart"]谢谢anonimousboy ，可是如果我有10万个（abc），那怎么办 ？[/quote 发表：
     
#!/bin/perl
$curLine="";
$iCnt=0;
$preLine="";
$outLine="";
open(INPUT,"input"||die("can't open the file IN";
open(OUTPUT,">>output"||die("can't open the file OUT";
while($curLine=<INPUT>{
   $iCnt++;
   chomp($curLine);
   if($iCnt==1){  
         $preLine=$curLine;
   }
   if($iCnt==2){
     $outLine=$preLine.$curLine;
         $iCnt=0;
     print OUTPUT $outLine."\n";
   }
   $outLine="";

}
close(OUTPUT)||die("can't close the file OUT";
close(INPUT)||die("can't close the file OUT";
可以先用以上脚本把文件合并成我说的格式,然后,再用我上边的脚本就能输出你想要的文本格式了,数字只能有0-9几中可能啊,所以最多也就输出20行啊,只不过偶数行的内容可能多一些罢了，只要你的文件的内容不足以把你的机器撑破（perl没有长度限制，一个变量的内可以直到没有可分配的空间为止）。

rinehart

原帖由 "kkng09" 发表：
for i in 1 2 3 4 5 6 7 8
do
echo "$i:"
if grep -q $i a
then
   echo -n a
fi
if grep -q $i b
   then echo -n b
fi
if grep -q $i c
   then echo -n c
fi
echo
done

   

如果我abc和12345678都有10万个那么多，能用 “for”指令吗？

rinehart

原帖由 "anonimousboy" 发表：
   
#!/bin/perl
$curLine="";
$iCnt=0;
$preLine="";
$outLine="";
open(INPUT,"input"||die("can't open the file IN";
open(OUTPUT,">>output"||die("can't open the file OUT";
while($curL..........

   

我的意思是我怎么可以将其弄成那样的格式呢?
其实我遇到的实际的情况要比我说出的那个sample更为复杂 . 其实两组数中都含有数字同字母,甚至还有符号 .

anonimousboy

原帖由 "rinehart" 发表：
   

我的意思是我怎么可以将其弄成那样的格式呢?
其实我遇到的实际的情况要比我说出的那个sample更为复杂 . 其实两组数中都含有数字同字母,甚至还有符号 .

   
那就把你的文件的内容全贴出来啊，大家好能帮你啊，其实两组数种有没有特殊符号都不重要，可以用匹配之匹配数字进行处理就好了~~

rinehart

Z:\sales
         EveryoneOI)(CI)(特殊访问
                          SYNCHRONIZE
                          FILE_EXECUTE

         EveryoneCI)R
         FEDON\RaymondOI)(CI)R
         FEDON\Domain AdminsOI)(CI)F
         FEDON\rinehartOI)(CI)F
Z:\system
          FEDON\Domain AdminsOI)(CI)F
          FEDON\SMD-系統部OI)(CI)C
Z:\data
        EveryoneCI)R
        FEDON\RaymondOI)(CI)R
        FEDON\Domain AdminsOI)(CI)F
        FEDON\rinehart:(OI)(CI)F
Z:\data\PRODUCT
                FEDON\jones:(OI)(CI)R
                <找不到帐户域>(OI)(CI)R
                FEDON\gracie:(OI)(CI)R
                FEDON\fanny:(OI)(CI)R
                FEDON\c03766:(OI)(CI)(特殊访问
                                     READ_CONTROL
                                     WRITE_DAC
                                     WRITE_OWNER
                                     SYNCHRONIZE
                                     FILE_GENERIC_READ
                                     FILE_GENERIC_EXECUTE
                                     FILE_READ_DATA
                                     FILE_READ_EA
                                     FILE_EXECUTE
                                     FILE_DELETE_CHILD
                                     FILE_READ_ATTRIBUTES

                FEDON\a03142:(OI)(CI)R
                FEDON\michelle:(OI)(CI)R
                FEDON\rico:(OI)(CI)R
                FEDON\c03199:(OI)(CI)R
                Everyone:(CI)R
                FEDON\Raymond:(OI)(CI)R
                FEDON\Domain Admins:(OI)(CI)F
                FEDON\rinehart:(OI)(CI)F
....................................................................     
带"z:"的行代表sample中的abc ,其它代表数字行  

kkng09

原帖由 "rinehart" 发表：
   

如果我abc和12345678都有10万个那么多，能用 “for”指令吗？

   
當然可以
for i in 1 2 3 4 5 6 7 8
do
echo "$i:"
for j in a b c
do
if grep -q $i $j
then
echo -n $j
fi
done
echo
done