Divisione selettiva di una stringa in Perl

Question

Nuovo in Perl.

Ho bisogno di analizzare un rapporto che assomigliano a questo:

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

ho usato:

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

maggior parte delle volte funziona benissimo, ma a volte il messaggio di errore conterrà un indirizzo email e tutto il testo dopo il simbolo @ su quell'email fino alla fine della stringa terminerà con il mio messaggio id.

Ho pensato di verificare la quantità di @s e di avere un parsing condizionale, ma c'è un modo migliore?

EDIT:

L'output desiderato è una lista di stringhe, con il messaggio di errore che contiene tutto ciò che è venuto in esso (compreso un indirizzo e-mail occasionale).

Dato che ci sono altre applicazioni che utilizzano lo stesso rapporto, non posso modificare il separatore o uscire dall'output.

linee campione sul rapporto:

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 

contenuti attesi @Campi dopo l'analisi linea 1:

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

e dopo l'analisi di linea 2:

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

Answer 1

Simile alla risposta di daxim, ma un altro modo di scriverlo:

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

Si consiglia inoltre di fare un po 'il controllo degli errori qui:

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

Answer 2

Il modo più semplice gestire questo sarebbe cambiare @ in un altro, delimitatore ke ;;;;

Answer 3

Se $ teststr contiene, ad esempio: '2012-05-29 @ emaillocalpart @ emaildomain @ customerid @ error @ me @ ssage @ messageid';

il seguente codice:

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"; 

dà il seguente risultato:

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

Scuse - è piuttosto una soluzione verbose. È anche possibile fare la stessa cosa in un'espressione regolare:

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

Answer 4

Questo analizza correttamente gli indirizzi di posta elettronica opzionali:

$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 

vederlo lavorare here. Questo presuppone che tu abbia solo una email opzionale. Con un po 'di lavoro potrebbe essere modificato per funzionare con una stringa con qualsiasi numero di email delimitate < >.