Perl beitreten Strings falsch

Question

ich eine Liste von Autoren wie diese:

AU - Garrett-Bakelman, Francine E 
AU - Sheridan, Caroline K 
AU - Kacmarczyk, Thadeous J 
AU - Ishii, Jennifer 
AU - Betel, Doron 
AU - Alonso, Alicia 
AU - Mason, Christopher E 
AU - Figueroa, Maria E 
AU - Melnick, Ari M 

, die ich mit einer Perl-Skript lesen:

#!/usr/bin/env perl 

use strict; use warnings; 
my @authors; 
open my $fh, '<', '/home/con/Downloads/pmcid-PMC4354670.ris' or die "Can't read file: $!"; 
while (<$fh>) { 
    if ($_ =~ m/^AU\s+-   #line starts with 'AU' 
    \s+       #whitespace 
    (.*)      #author is represented by non-newline characters, saved as $1 
    /x) { 
     push @authors, $1; 
    } 
} 
close $fh; 
printf("there are %u authors\n", scalar @authors); 
foreach my $author (@authors) { 
    print "$author\n";#prints each element correctly 
} 
print "@authors\n";#but prints the concatenation incorrectly, 'Melnick, Ari Ma Er E Jine E' 
print join ' and ', @authors;#prints 'and Melnick, Ari Ma Er E JE' 

Ich kann die Liste von Strings erhält korrekt verbunden werden. Ich habe versucht, die 'Join' -Funktion, Verketten einer Zeichenfolge, wie ich den Code lese, es ist immer ein Mischmasch.

Wie bekomme ich das Array von Strings korrekt verkettet werden?

Answer 1

Ihre regex Um dies zu ändern. Dies funktioniert mit DOS- und UNIX-formatierten Textdateien.

if ($_ =~ m/^AU\s+-   #line starts with 'AU' 
\s+       #whitespace 
([^\r\n]*)     #author is represented by non-newline characters, saved as $1 
/x) { 

Answer 2

Ihre Datei /home/con/Downloads/pmcid-PMC4354670.ris soll von DOS-Konvention in Standard konvertiert werden mit Befehl dos2unix.

Das abschließende Zeichen '\ r' am Ende der Zeichenfolge ist die Ursache für Ihre Probleme.

Answer 3

Weitere BOC Antwort, können Sie es ohne dos2unix lösen, indem die < in Ihrem offenen Aufruf an <:crlf Wechsel:

open my $fh, '<:crlf', '/home/con/Downloads/pmcid-PMC4354670.ris'; 

Perl dann "converts pairs of CR,LF to a single "\n" newline character".

Oder Sie können /r/n bis zum Ende Ihrer regex hinzufügen:

print join ' and ', map { /\AAU - (.*)\r\n/ } <$fh>;