Zeilenumbruch Probleme mit Array

[Struppi]

Ich lese über einen Systemaufruf ein Text File ein

@array = 'cat textfile'; #Das Einlesen in dieser Form muss leider so sein

Wenn du meinst.

In dem Textfile steht in jeder Zeile ein string:

user1
user2
user3
user4

Wieso du das nciht mit Bordmitteln lesen kannst ist mir ein Rätsel.

passuser1
pass

Wenn du die Zeilenumbrüche nicht entfernst ist das logisch.

Probier mal:

  
my $file_in = 'file1_in';  
my $file_out= 'file1_out';  
  
open IN, $file_in || die "Fehler beim öffnen von $file_in: $!";  
open OUT, $file_out || die "Fehler beim öffnen von $file_out: $!";  
while(<IN>  
{  
chomp $_;  
print OUT 'pass' .@array[$count] . 'pass' . "\n";  
}  
close OUT;  
close IN;  

Struppi.