如何从文本中提取域输出

sjbost

初学perl,目前我有这样一个问题请教.
++++++++++++++++++++++++++++++++++++++++++
文本----- test:
aa bb cc
cc dd ee
............


如何利用perl像用shell的位置参数($n)似的分别提取各域:
yourname aa college bb age cc;
yourname cc college dd age ee;
.................
最后输出到某一文本文件.
++++++++++++++++++++++++++++++++++++++++++

I'am waitting.......

xiaoquqi

@strings = split(/\s+/,$string);

sjbost

能不能劳驾您,写的较完整一些呢,雏形也好呀!

xiaoquqi

啊？还想怎么完整呀？你写了多少 让我看看吧 我可以帮你改改

sjbost

这是大概意思,还错误多多!
open (ff,"test");
$tt=s/^\s+|\s+|\s+$/ /g;
@tt=split(/ /,$tt);
foreach (<ff>){
  ($fielde1,$fielde2,$fielde3)=@tt;
print LOG ("this  is $fiedle1 and $fielde2 and $fielde3");
open (LOG,">>targe.txt");
close LOG;
}
close ff;

[ 本帖最后由 sjbost 于 2007-5-24 09:41 编辑 ]

hwxo

用split函数来返回一个分割的列表。

nkcsx

原帖由 sjbost 于 2007-5-24 09:31 发表
这是大概意思,还错误多多!
open (ff,"test");
$tt=s/^\s+|\s+|\s+$/ /g;
@tt=split(/ /,$tt);
foreach (<ff>){
  ($fielde1,$fielde2,$fielde3)=@tt;
print LOG ("this  is $fiedle1  ...

把替换和分割字符串的部分放到循环里面去，比如这样

1. 
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my ($f1, $f2, $f3) = ();
   
6. 
   
7. for(<DATA>){
   
8.     s/^\s+|\s+$//g;
   
9.     ($f1, $f2, $f3) = split /\s+/;
   
10.     {
    
11.         local $, = ' ';
    
12.         print $f1, $f2, $f3, "\n";
    
13.     }
    
14. }
    
15. 
    
16. 
    
17. __END__
    
18. aa bb cc
    
19.   aa2 bb2    cc2   
    

复制代码

[ 本帖最后由 nkcsx 于 2007-5-24 10:39 编辑 ]

sjbost

7楼的方法不错,感谢啦!!!

sjbost

再次感谢各位帮忙呀!!!

xiaoyafeng

shell的问题，应该用shell方法来解决，楼上几位给人感觉在用高射炮打蚊子 ；）

perl -ane 'print qq(yourname $F[-1] college $F[-2] age $F[-3]\n)' test  >> target.txt