如何用perl 从文件里面抓一段内容出来?

百分百好牛

不好意思，我的平台是windows, 不是unix.
windows 2008, perl version 是 5.1

假设文件 output.txt的内容如下：
====================
the following are the list of products:
airplan
jet
bullet
gun
the following are the list of money:
RMB
Dollar
Riyuan
====================

现在我想把两个list的title和内容，分别放到两个不同的文件中去，比如：
the following are the list of products:
shoe
table
bug
放到文件 product.txt里面去。同样的，另外一个放到 money.txt里面去。但我只知道用//可以查找，但接下怎么把这块内容截出来，我就不会了。向大侠们请教。

open FILE, "< output.txt";

while(<FILE>)
{
     if (/the following are the list of products:/)
    {
    }

    if (/the following are the list of money:/)
    {

    }
}

lkk2003rty

1. open FILE, "< output.txt";
   
2. open OUT, ">> out.txt" or die "fail:$!";
   
3. while(<FILE>)
   
4. {
   
5.      if (/the following are the list of products:/)
   
6.     {
   
7.         print OUT "$_";
   
8.     }
   
9. 
   
10.     if (/the following are the list of money:/)
    
11.     {
    
12. 
    
13.     }
    
14. }
    

复制代码

百分百好牛

谢谢楼上的兄弟先，你的这个方法，只能把 title 如"the following are the list of products:" 打印到文件吧，后面紧跟着的list呢？

谢谢。

lkk2003rty

回复 3# 百分百好牛


    用个变量标示 控制下 就是了
    my $flag;
     if(/regex/)
     {
        $flag=1;
      }
      print OUT "$_" if $flaf == 1;
类似这样  不同的段 flag设成不同的值就是了

百分百好牛

let me try it, thx.

jason680

假设文件 output.txt的内容如下：
====================
the following are the list of products:
air ...
百分百好牛 发表于 2011-05-06 10:05

$ cat output.pl

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $sOut_file="";
   
6. open(FILE, "<", "output.txt") or die "can't open output.txt\n";
   
7. 
   
8. while(<FILE>){
   
9.     # the following are the list of products:
   
10.     # the following are the list of money:
    
11.     if (/the following are the list of (.+):/){
    
12.         close(FHout) if($sOut_file ne "");
    
13.         $sOut_file = "$1.txt";
    
14.         open(FHout, ">", $sOut_file) or die "can' open $sOut_file\n";
    
15.         print "open $sOut_file file to write data\n";
    
16.      }
    
17.      print FHout $_;
    
18. }
    
19. close FHout;

复制代码

$ perl output.pl
open products.txt file to write data
open money.txt file to write data
$

百分百好牛

谢谢楼上的兄弟们，我试过了，可以用的。
但是我现在碰到一个很 ”诡异“ 的问题。
我生成的文件是好的，可是我用 perl.再把最后的output.txt文件读出来的时候，单字节的变成了双字节。
如：
用notepad打开文件，显示的是
szBuffer.getBuffer

可是perl读进来后，再print $_; 出来，就是下面这个样子了。
s z B u f f e r . g e t B u f f e r

所以我的 if (/the following are the list of/) 总是失败。

是什么地方我的设置不对么？

谢谢！

百分百好牛

真是杯具哦。
在console上面输出的时候看起来很正常，可是redist到文件里面，貌似就变成了双字节
刚才用vi以16进制打开output.txt 文件，结果如下
00001f0: 5200 7500 6e00 6e00 6900 6e00 6700 2e00  R.u.n.n.i.n.g...

晕倒了，被弄糊涂了......

zzy7186

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my $filehand;
   
6. while(<>){
   
7.         if(/the following are the list of (.+):/)
   
8.         {
   
9.                 my $filename="$1" . ".txt";
   
10.                 open ($filehand,">$filename")
    
11.                         or die "can't open the file";
    
12.         }
    
13.                 print $filehand $_;
    
14. }
    

复制代码

百分百好牛

TO: zzy7186 (遗忘哥！)
兄弟，你的code和前面的有什么不一样么？

我的源文件是个双字节的文件。如果用vi 等16进制的方式查看的话，是
t.h.e. .f.o.l.l.o.w.i.n.g. .a.r.e. .t.h.e. .l.i.s.t. .o.f.
这样的内容的。
你上面的code不行，我试过了。如下面，这样输出的话，也全是双字节的，根本没有办法 用//去查找

open STDIN, "< output.txt" or die $!;
while(<>)
{
    print $_;
}


p.s:
不好意思，我是在windows 上面写不是unix.