Selektywne dzielenie ciągu znaków w języku Perl

Question

Nowość w Perlu.

muszę przeanalizować raport, który wygląda tak:

2012-05-29@emaillocalpart@emaildomain@customerid@errormessage@messageid 

użyłem:

my @fields = split(/@/, $line, 6); 

Większość czasu to działa dobrze, ale czasami komunikat o błędzie będzie zawierać adres e-mail i cały tekst po symbolu @ w tym e-mailu, aż koniec napisu zakończy się na moim identyfikatorze wiadomości.

Pomyślałem o sprawdzeniu ilości znaków @ i analizie warunkowej, ale czy jest lepszy sposób?

EDIT:

Pożądana wyjście jest listą ciągów, z komunikatem o błędzie zawierającego co przyszedł w nim (w tym okolicznościowy adres e-mail).

Ponieważ istnieją inne aplikacje korzystające z tego samego raportu, nie mogę zmienić separatora lub wyjść z wyjścia.

Przykładowe linie raportu:

2012-05-29@joedoe@example.com@AB99-5@440 4.4.1 Some error occurred@XYZ35 
2012-05-29@foobar@invalid.com@ZZ88-6@550 5.1.1 <foobar@invalid.com>... User Unknow@GGH93 
2012-05-29@barfoo@invalid.com@YY88-0@550 5.1.1 barfoo@invalid.com no such user@GGH93 

Oczekiwane zawartość @fields po parsowania linii 1:

2012-05-29 
joedoe 
example.com 
AB99-5 
440 4.4.1 Some error occurred 
XYZ35 

i po parsowania wiersz 2:

2012-05-29 
foobar 
invalid.com 
ZZ88-6 
550 5.1.1 <foobar@invalid.com>... User Unknow 
GGH93 

Answer 1

podobne do odpowiedzi daxim, ale inny sposób pisania go:

my $re = '^' . '([^@]*)@'x4 . '(.*)@([^@]*)$'; 
my @fields = $line =~ /$re/; 

Można też zrobić sprawdzając jakiś błąd tutaj:

my @fields = $line =~ /$re/ or die "can't parse '$line'"; 

Answer 2

Najprostszym sposobem obsłużyć to będzie zmiana @ na inny, znacznie mniej powszechny ogranicznik li ke ;;;;

Answer 3

Jeśli $ teststr zawiera na przykład: '2012-05-29 @ emaillocalpart @ emaildomain @ customerid @ error @ me @ ssage @ messageid';

następujący kod:

my @fields2=split('@',$teststr); 
my @finalfields=@fields2[0 .. 3]; 
my $finalat=$#fields2-1; 
my $errormessage=join('@',@fields2[4 .. $finalat]); 
push(@finalfields,$errormessage); 
push(@finalfields,$fields2[$#fields2]); 

print Data::Dumper->Dump([@finalfields])."\n"; 

daje następujący wynik:

$VAR1 = '2012-05-29'; 
$VAR2 = 'emaillocalpart'; 
$VAR3 = 'emaildomain'; 
$VAR4 = 'customerid'; 
$VAR5 = 'error@me@ssage'; 
$VAR6 = 'messageid'; 

Przepraszamy - to raczej gadatliwy rozwiązanie. Można również zrobić to samo w jednym wyrażeniu regularnym:

$teststr=~/(.[^@]*)@(.[^@]*)@(.[^@]*)@(.[^@]*)@(.*)@(.[^@]*)/; 
print "$1\n$2\n$3\n$4\n$5\n$6\n"; 

Answer 4

To właściwie analizuje alternatywne adresy e-mail:

$str = '5-29@foobar@invalid.com@ZZ88-6@550 5.1.1 <foobar@invalid.com>... User Unknow@GGH93'; 
#$str= '2012-05-29@joedoe@example.com@AB99-5@440 4.4.1 Some error occurred@XYZ35'; 

$str =~ s/(\<[^\>]+\>)/!!/; # replace an email address with !! 
$email = $1; # store the email 

@fields = split(/@/,$str); # split on @ 

s/!!/$email/ foreach (@fields); # find the old !! and replace with the email address 

print STDERR map { "$_ \n" } @fields; # print fields to standard error 

Zobacz pracuje here. Zakładamy, że masz tylko jeden opcjonalny e-mail. Przy odrobinie pracy można go zmodyfikować tak, by działał na łańcuch z dowolną liczbą ograniczonych e-maili o wartości < >.