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

wxusheng

我想把附件中‘导入前格式.txt’文本中的格式变成‘转换后格式.txt’中的格式，用perl怎么实现，那位大侠知道啊，急急！！！！！！！！！！！！ 导入前的格式.zip (1.66 KB, 下载次数: 28)

2010-09-05 20:23 上传

点击文件名下载附件

转换后格式.zip (743 Bytes, 下载次数: 35)

2010-09-05 20:23 上传

点击文件名下载附件

paktc

楼主不善良啊，  两个文本就分两个压缩包，下载的人都要下两次=.=

我以为很简单差点轻易放代码上来了，原来有些数据是重复的

AK0050=250
AK0051=225
AK0052=0 (CONNECTION_SETUP_BSSAP_BEGIN)
AK0051=354
AK0052=0 (CONNECTION_SETUP_BSSAP_BEGIN)
AK0051=138
AK0052=0 (CONNECTION_SETUP_BSSAP_BEGIN)
AK0053=0

而结果中是不重复的。

然后发现源.txt 是内容是分段的，对比了一下结果.txt 应该是取最后一次出现的值
楼主却什么也没告诉我们呀……

=.=陷阱挺多的，鉴定完毕……

paktc

经过了观察再观察，对比再对比，最后脚本如下

1. 
   
2. #!/usr/bin/perl
   
3. open READ,"<src.txt" or warn "File not exist.";
   
4. open WRITE,">dest.txt";
   
5. 
   
6. my ($stra,$strb);
   
7. foreach (<READ>) {
   
8.     if (/(.*)=(.*)/) {
   
9.        $stra.="$1\t";
   
10.        $strb.="$2\t";
    
11.     }
    
12.     if (/--------/) {undef $stra; undef $strb;}
    
13. }
    
14. print WRITE "$stra\n$strb\n";
    
15. <STDIN>;
    

复制代码

在winxp写的。 第一行#! 刻意加上的。

paktc

回复你的私信来啦，

后面有个 <STDIN>;  你需要按键退出。
看看是否生成了一个 dest.txt  结果在那里面

wxusheng

paktc (paktc)
真是太感谢了，功能实现了，正是太佩服你了，我初学PERL,太谢谢你了。另外我不是只要最后一次出现的值，我是要把竖的变为横的，全部都要，另外结果能直接导入到sql server吗

paktc

回复 5# wxusheng


   我也在学，sql 我不懂的，我是因为个人喜好学的。 看其他人回帖吧。

对了楼主，全部的要的话，根据你给的那份结果.txt 来对比，是有冲突的哦。

源.txt 中有 不同段落的信息 用------------------ 隔开，
而你给的 结果.txt 提取的信息，是从最后一个 ------------- 分割，下面的信息中提取的，
"---------------------"之前的信息全部避开
。

wxusheng

我重新把文件处理了一下，附件是原始文件和想要得到的文件，请帮忙看一下。

wxusheng

转换前后的txt.zip (1.6 KB, 下载次数: 26)

2010-09-05 23:37 上传

点击文件名下载附件

附件如下

wxusheng

谢谢楼上，运行代码会报错的