Perl в то время как цикл не работает

Question

Ниже мой файл, который я отделяя от delimeneter и дальнейшей отправки по электронной почте список: DEVICE1 | Город | Улица | roadname | область | состояние | область | страна | CountryCode

________________________________________________ 
Device1|City|Street|roadname|region|state|area|country|countrycode 
Device2|City|Street|roadname|region|state|area|country|countrycode 
Device3|No data found 
Device4|No data found 
_________________________________________________ 
my $filename = '/tmp/list.txt'; 
open my $ifh, '<', $filename 
    or die "Cannot open '$file' for reading: $!"; 
local $/ = ''; 
my $filename = <$ifh>; 

my @arr = split(/\|/, $filename , -1); 
$Device = $arr[0]; 
$Region = $arr[2]; 
$State = $arr[3]; 
$area = $arr[10]; 
$country = $arr[19]; 

$logger->debug("$logid >> file information Device Name: $Device"); 
$logger->debug("$logid >> file information Region: $Region"); 
$logger->debug("$logid >> file information State: $State"); 
$logger->debug("$logid >> file information Area: $area"); 
$logger->debug("$logid >> file information Country: $country"); 

close($ifh); 

Я могу получить информацию ниже, но мое требование - всякий раз, когда в строке отображается «Нет данных», назначьте ее переменной, например, «шаблон», которую я буду отправлять по электронной почте.

$smtp->datasend("$Device1|$region|$state|$area|$country\n"); 
$smtp->datasend("$pattern\n"); 

Благодаря

Answer 1

Я думаю, что вы хотите что-то вроде этого:

use strict; 
use warnings; 
open my $INPUT, '<', '/tmp/list.txt' or die $!; 
while (<$INPUT>) { 
    chomp; 
    my ($device, $data) = split(/\|/, $_, 2); 
    if ($data eq 'No data found') { 
     # Do whatever you need to do when there is no data 
    } else { 
     my @values = split(/\|/, $data); 
     my ($region, $state, $area) = @values[3,4,5]; 
     # Further processing as needed 
    } 
} 
close $INPUT; 

Несколько замечаний:

• всегда use strict и use warnings - он будет ловить много проблем для тебя. Подобно тому, что вы объявляете my $filename дважды.

• Третий аргумент split является необязательным и имеет смысл только в том случае, если он положительный.

• Вы устанавливаете $/ = '', предположительно, для полного удаления всего файла, но вы хотите обработать его по очереди.