Speichern mit generiertem Zusatz...

[Struppi]

($year, $month, $day) = Today();

Wo ist das my?

print qq(<p>), $day;

Bist du sicher, dass du weißt was qq macht?
Warum schreibst du nicht:

print qq(<p> $day -$month- $year </p>);

Zum formatieren des Datums eignet sich auch sprintf sehr gut:

my $fmt_date = sprintf('%02d-%02d-%04d', $day, $month, $year);

und da du sicher das CGI Modul verwendest:

print CGI::p($fmt_date);

Aber irgendwie klappt es nicht, wenn ich die Skalare dort einfüge:

---

copy("KDB-Data/KDB-A.csv","KDB-Backup/Kopie-KDB-A, $day,"-", $month,"-", $year,.csv") or die "Copy failed: $!";

Jetzt hast du eine Liste von Dateien mit den Namen $day, '-', $month usw. die kopiert werden sollen. Das ist Unsinn.

Ist es möglich, einen selbst generierten Dateinamen in der Funktion "Copy" zu verwenden?

Natürlich.

z.b. so

copy("KDB-Data/KDB-A.csv","KDB-Backup/Kopie-KDB-A$fmt_date.csv") or die "Copy failed: $!";  

Was aber unübersichtlich ist. Besser wäre vielleicht sowas:

my $neue_datei = sprintf 'KDB-Backup/Kopie-KDB-A%s.csv', $fmt_date;  
copy('KDB-Data/KDB-A.csv', $neue_datei) or die "Copy failed: $!";  

Struppi.