搜索特定行的文件并存储它们

时间:2012-08-04 15:44:44

标签: perl file-io full-text-search

这是我的文本文件...我想搜索特定数据并存储它.... 我想搜索输出需求历史,然后打印它搜索所有*输出字段并保存其值= 234并打印其数据,即abc,                                                DFG,                                                JH,

输入文件:

*output folk
 .....
 ....
 ....
*output demand history
*output integ
sd,
lk,
pk,
*output field, value=234;hoxbay edt
abc,
dfg,
jh,
*output field, value=235;hoxbay edt
jh,
lk,
*output fix, value=555;deedfgh
re,
ds,
*fgh ,val=098;ghfd
dsp=pop
mike oop...


**i want this output only........**

输出:

*output field, value=234;hoxbay edt
abc,
dfg,
jh,
*output field, value=235;hoxbay edt
jh,
lk,
*output fix, value=555;deedfgh
re,
ds,

我试过这个.....但我不知道如何停止

output fix, value=555;deedfgh
re,
ds,

use strict;
use warnings;
use Data::Dumper;

open(IN , "<" , "a.txt");

my $flag=0;

foreach my $line(<IN>)
{
  if($line=~/^\*output demand history/i)
  {
    print $line;
    $flag=1;

  }

  if($line=~/^\*OUTPUT field/i && $flag==1)
  {
    print $line;
    my @array1=split("," ,$line);
    my $temp1=shift @array1;
    my @array2=split(";",$temp1);
    my $elset=shift @array2;

  } 

  if($line=~/^\*OUTPUT FIX/i && $flag==1)
  {
    print $line;

    my @array3=split("," ,$line);
    my $temp2=shift @array3;
    my @array4=split(";",$temp2);
    my $nset=shift @array4;
  }
}

4 个答案:

答案 0 :(得分:1)

当满足所有条件时,我看不到您只是打印输入的行的位置。

你需要在循环中的某个地方:

if ($flag2) {
   print $line;
}

答案 1 :(得分:1)

也许是你想要的:

use 5.010;
$flag;
while (<IN>) {
    given ($_) {
        when (/^\*output/)  { $flag= 0; continue; }
        when (/value/)      { $flag = 1; }
    }
    print if $flag;
}

答案 2 :(得分:1)

很难准确说出你需要什么,但这个程序可能会有所帮助

use strict;
use warnings;

open my $fh, '<', 'a.txt' or die $!;

my @data;
while (<$fh>) {
  chomp;
  if (/^\*/) {
    print "@data\n" if @data;
    @data = ();
    push @data, $1 if /^\*output\s+(?:field|fix),\s*(.+?)\s*;/;
  }
  else {
    push @data, $_ if @data;
  }
}
print "@data\n" if @data;

<强>输出

value=234 abc, dfg, jh,
value=235 jh, lk,
value=555 re, ds,

在您的回复中,您似乎希望打印以*开头且包含value=的行,直到以*开头的下一行。

试试此代码

use strict;
use warnings;

open my $fh, '<', 'a.txt' or die $!;

my $wanted;
while (<$fh>) {
  $wanted = /value/ if /^\*/;
  print if $wanted;
}

<强>输出

*output field, value=234;hoxbay edt
abc,
dfg,
jh,
*output field, value=235;hoxbay edt
jh,
lk,
*output fix, value=555;deedfgh
re,
ds,

答案 3 :(得分:1)

使用触发器的一个版本:

perl -ne'print if (/^\*output .*value=/ .. ($a = (/^\*/ && ! /value=/))) && ! $a'