Чтение строки строки за строкой итерации

Question

У меня есть следующий простой фрагмент кода (обозначенный как часть проблемы кода и извлеченный из гораздо более крупной программы).

Является ли это я или вы видите явную ошибку в этом коде, чтобы остановить ее от соответствия $variable и печати $found, когда это определенно должно быть сделано?

Ничего не печатается, когда я пытаюсь напечатать $variable, и в файле, который я использую, есть определенные строки.

Код:

if (defined $var) { 
    open (MESSAGES, "<$messages") or die $!; 
    my $theText = $mech->content(format => 'text'); 
    print "$theText\n"; 
    foreach my $variable (<MESSAGES>) { 
     chomp ($variable); 
     print "$variable\n"; 
     if ($theText =~ m/$variable/) { 
      print "FOUND\n"; 
     } 
    } 
} 

Я находится это как точка, в которой ошибка происходящей, но не может понять, почему? Может быть, что-то, что я полностью игнорирую, поскольку его очень поздно?

Answer 1

Обновление С тех пор я понял, что неправильно излагаю ваш вопрос, и это, вероятно, не решит проблему. Однако точки действительны, поэтому я оставляю их здесь.

У вас, вероятно, есть метасимволы регулярного выражения в $variable. Линия

if ($theText =~ m/$variable/) { ... } 

должен быть

if ($theText =~ m/\Q$variable/) { ... } 

, чтобы избежать какой-либо, что есть.

Но вы уверены, что не хотите eq?

Кроме того, вы должны прочитать из файла, используя

while (my $variable = <MESSAGES>) { ... } 

как for цикла будет излишне читать весь файл в память. И , пожалуйста, используйте лучшее имя, чем $variable.

Answer 2

Это работает для меня .. Я пропустил вопрос под рукой? Вы просто пытаетесь сопоставить «$ theText» с чем-либо на каждой строке в файле?

#!/usr/bin/perl 

use warnings; 
use strict; 

my $fh; 
my $filename = $ARGV[0] or die "$0 filename\n"; 

open $fh, "<", $filename; 
my $match_text = "whatever"; 
my $matched = ''; 

# I would use a while loop, out of habit here 
#while(my $line = <$fh>) { 
foreach my $line (<$fh>) { 
    $matched = 
     $line =~ m/$match_text/ ? "Matched" : "Not matched"; 

    print $matched . ": " . $line; 
} 

close $fh 

./test.pl testfile 
Not matched: this is some textfile 
Matched: with a bunch of lines or whatever and 
Not matched: whatnot.... 

Edit: Ах, я вижу .. Почему бы вам не попробовать печати до и после «Chomp()» и посмотреть, что получится? Это не должно быть проблемой, но это не мешает тестировать каждый случай.