Zeilenumbruch Probleme mit Array

[Tux]

Ja weil chomp die Anzahl der entfernten Zeichen zurück gibt, was ist an meinem Vorschlag nicht i.O.?

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

Geht deine Lösung auch ohne open?