Zeilenumbruch Probleme mit Array

[Struppi]

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

Das war falsch.

print OUT "pass$_pass\n";

}
close OUT;
close IN;

Du verwendest open um das File einzulesen, leider kann ich die Daten nur mit einem Systemaufruf bekommen. Der Aufruf besteht aus einer sed un awk kombination.

ich kenn mich zwar nicht mit den Liunxwerkzeugen aus kann mir aber auch hier nicht vorstellen, dass Perl nicht die entsprechenden Möglichkeiten hat.

Aber du kannst natürlich Problemlos die Schleifen in eine foreach(..) Schleife über alle Zeilen umbauen.

Struppi.