Dateiarbeit

[Struppi]

#!/usr/bin/perl -w

Liest Datei ein und entfernt Zeichen am Zeilenende/

use strict;

print "Dateiname:  ";
$name = <STDIN>;

my $name = <STDIN>;

print "Name Ausgabedatei: ";
$ausgabe = <STDIN>;

Wie gesagt halte ich für überflüssig, du kannst doch ohne Problem zur Laufzeit einen Dateinamen aus dem Orginal erstellen.

z.n.
my $ausgabe = "$name.kopie";

open(HANDLE, "<" . $name) || die "ERROR beim OEFFNEN ($!) \n";
while (<HANDLE>)
{
chop ($_);
chop ($_);
$temp = $_;

open(DATEI, ">>" . $ausgabe);
  print DATEI $temp . "\n";
close(DATEI);

Das ist umständlich , warum öffnest und schliesst du doe Datei ständig?

open(HANDLE, "<" . $name) || die "ERROR beim OEFFNEN ($!) \n";
open(DATEI, ">>" . $ausgabe);
while (<HANDLE>)
{
chop ($_); chop ($_);
print DATEI "$_\n";
}
close(DATEI);

close(HANDLE);

Struppi.