这是我的文本文件...我想搜索特定数据并存储它.... 我想搜索输出需求历史,然后打印它搜索所有*输出字段并保存其值= 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;
}
}
答案 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'