Question

一线

CHANNEL(SYSTEM.DEF.SVRCONN) CHLTYPE(SVRCONN)
id=3

我想做的是,在我对档案进行搜索并找到第一条线之后,再找回这块id子。

open(CHECKFILE8, "$file");
while (<CHECKFILE8>) {             #while loop to loop through each line in the file
    chomp;                         #take out each line by line
    $datavalue = $_;               #store into var , $datavalue.
    $datavalue =~ s/^s+//;        #Remove multiple spaces and change to 1 space from the front
    $datavalue =~ s/s+$//;        #Remove multiple spaces and change to 1 space from the back
    $datavalue =~ s/[ 	]+/ /g;    #remove multiple "tabs" and replace with 1 space
    if ($datavalue eq "CHANNEL(SYSTEM.DEF.SVRCONN) CHLTYPE(SVRCONN)") {
        # HOW TO READ THE NEXT LINE?
    }
}

Answer 1

读其他所有内容的同样方式:用<代码>和>;CHECKFILE8>。例如:

my $nextline = <CHECKFILE8>;

不过,你应当知道,通过一个光口识别码打开档案,有些是无政府状态。允许Perl在具有灵活性的变数中编造档案材料,这在总体上是更安全的,更具有辅助性:

open my $checkfile8,  < , $file or die "Can t open $file: $!";
while (<$checkfile8>) { ... }

你们正在使用<条码>严格使用?

友情链接