Perl, чтобы получить шаблон из файла

Question

Я хочу получить значения из файла info.log и сравнить их со строкой в ​​$upper.

Это то, что я пытался

my $upper = "S14"; 

open(my $file, "<", "info.log") or die "Can't open info.log: $!"; 

my $string = $upper; 

while (<$file>) { 
    if (! -e $string) { 
    print " print here $string\n"; 
    } 
} 

Мой файл выглядит следующим образом

ss1 
ss2 
ss3 
ss4 
ss5 
ss6 
ss7 
ss8 

программа выводит все содержимое файла. Он не должен был печатать ss4, но это так?

Answer 1

правильный способ сделать это было бы:

open (FILE, "< info.log") or die "error msg"; 
while (<FILE>) 
{ 
    if (/$upper/) { 
     MATCH CASE 
    } 
} 

В основном вы цикл через файл и проверить каждую строку. Поскольку вы читаете файл, вам не нужна переменная (подразумевается $ _). на чеке.

Answer 2

Если вы просто хотите просто найти совпадения, используйте grep быстрее. В противном случае повторите попытку с помощью foreach.

my $upper="S14"; 
open(my $file, "<", "info.log") or die "Can't open info.log: $!"; 
my $string = $upper; 
my @lines = <$file>; 

my @matches grep { $_ =~ /$string/ } @lines; #searching *faster 

foreach (@lines) { #iterating 
    chomp; #new line stuff 
    if($_ =~ /^$string$/is){ 
     #stuff 
    } 
} 

Answer 3

Прежде всего, вы должны всегда начать каждый программы Perl с use strict и use warnings.

Как отметили другие люди, оператор -e говорит, существует ли файл с таким именем. Он не проверяет, появляется ли одна строка с другой.

Есть несколько способов сделать это. Я бы использовал регулярное выражение, но не зная, с какими данными вы сталкиваетесь, и чтобы не смущать вас, я написал решение, используя index function, который возвращает ноль или более, если вторая строка появляется в первой.

use strict; 
use warnings 

my $file = 'info.log'; 

my $upper = 'S14'; 

open my $fh, '<', $file or die "Can't open '$file': $!"; 

my $string = $upper; 

while (<$fh>) { 
    if (index($_, $string) >= 0) { 
    print "This file contains '$string'\n"; 
    last; 
    } 
}