Perl Regex geteilt mit neuen Linien

Question

Ich bin neu in Perl und arbeite an einem Projekt für die Schule und bin fest.

Eingabe: Eine gegebene Textdatei, die E-Mail-Adressen enthält, die durch Leerzeichen, Tabulator, ",", ";" oder ":" [kann auf getrennten Zeilen sein].

Ich versuche, die E-Mail-Adressen einzulesen und sie in ein Array zu setzen. Ich bin in der Lage, die Daten auf einer Linie zu analysieren, aber wenn es Zeilenumbrüche oder -rückgaben gibt, bekomme ich nur das letzte Element.

Kann mir jemand helfen, herauszufinden, wie man eine Liste mit jeder Adresse in einer separaten Zeile aufnimmt und analysiert? Ich habe ein wenig über Regex gelesen, brauche aber viel mehr Übung. Vielen Dank.

open(EmailAddresses, "EmailAdressesCommaList.txt") || die "Can not open file $!"; 

# 
while (<EmailAddresses>) 
{ 
    chomp; 
    # Split the line into words 
    @lines = split /[ ,;:\t\r\n(\t\r\n\s)+?]/; 
} 

foreach $value (@lines) 
{ 
    print $value . "\n"; 
} 

Answer 1

open(EmailAddresses, "EmailAdressesCommaList.txt") || die "Can not open file $!"; 
while(<EmailAddresses>) { 
    chomp; 
    push @lines, split /[ ,;:\t\r\n(\t\r\n\s)+?]/; 
} 
foreach $value (@lines) { 
    print $value . "\n"; 
} 

das heißt das Problem ist nicht Ihre regex, ist es, dass Sie @lines jedes Mal durch die Schleife sind überschrieben werden.

Answer 2

Wie Chaos darauf hingewiesen, sollten Sie auf das Array drücken, nicht überschreiben, aber Ihre Regex ist auch seltsam. Es scheint, dass Sie tun möchten:

/[ ,;:\t\r\n][\t\r\n\s]+/ 

Aber ich denke, dass dies auch funktioniert:

/[,;:\s]+/ 

Answer 3

Chaos korrekt ist. Wenn Sie die Textdatei öffnen und im selben Programm erneut verarbeiten möchten, vergessen Sie nicht, das Array zu löschen.

@lines =();