Ausgabe von warn temporär in Datei umleiten (gelöst) (Allgemeines zu Perl)

[thread]19937[/thread]

Ausgabe von warn temporär in Datei umleiten [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+3 replies

qwe123qwe

2015-12-30 17:19

User since
2013-10-08
65 Artikel
BenutzerIn
[default_avatar]

Hallo mal wieder !
Kurz vor Jahresende hab ich mal wieder eine Frage.....
Mit folgendem Code benenne ich Dateien auf einem USB-Stick so um, daß sie den Namen, den sie auf der Festplatte haben, erhalten

Code (perl): (dl )

# Dateien im Stickordner nach dieser Liste umbenennen
        foreach my $i (@liste_dateien) {
                $stickdatei = $i;
                $stickdatei =~ /$stickordner\/(\S+)/;
                $stickdatei = "$stickordner/$1";
                $hd_datei = $i;
                $hd_datei =~ /$hdordner\/(\w+)\/(\S+)/;
                $hd_datei = $2;
                if ($dryrun != 1) {
                        move ("$stickdatei", "$stickordner/$hd_datei") || warn "Umbenennen von $stickdatei fehlgeschlagen mit: $!";
                }
                print TESTDATEI "$stickdatei    wird zu\n    $stickordner/$hd_datei\n";
        }

wie kann ich ich jetzt NUR AN DIESER STELLE die Ausgabe des warn-Aufrufs in die Datei TESTDATEI schreiben ?
Vielen Dank schon im Voraus für einen Vorschlag.

+2 replies

Relais

2015-12-30 17:31

User since
2003-08-06
2244 Artikel
ModeratorIn

Warnungen umleiten geht so:

Code (perl): (dl )

1
2

open(OLDERR, ">&", \*STDERR) or die "Can't dup STDERR: $!";
open(STDERR, ">TESTDATEI")

Und wenn's nicht mehr gebraucht wird, zurück:

Code (perl): (dl )

open(STDERR, ">&OLDERR")    or die "Can't dup OLDERR: $!";

Kommt so direkt aus perldoc -f open

Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming

qwe123qwe

2015-12-30 18:24

User since
2013-10-08
65 Artikel
BenutzerIn
[default_avatar]

Vielen Dank !
Also etwa so :

Code (perl): (dl )

        foreach my $i (@liste_dateien) {
                $stickdatei = $i;
                $stickdatei =~ /$stickordner\/(\S+)/;
                $stickdatei = "$stickordner/$1";
                $hd_datei = $i;
                $hd_datei =~ /$hdordner\/(\w+)\/(\S+)/;
                $hd_datei = $2;
                print TESTDATEI "$stickdatei    wird zu\n    $stickordner/$hd_datei\n";
                if ($dryrun != 1) {
                        open(OLDERR, ">&", \*STDERR) or die "kann STDERR nicht duplizieren: $!";
                        open(STDERR, ">>TESTDATEI");
                        move ("$stickdatei", "$stickordner/$hd_datei") || warn "Umbenennen von $stickdatei fehlgeschlagen mit: $!";
                        open(STDERR, ">&OLDERR")    or die "kann OLDERR nicht duplizieren: $!";
                }

das probier ich mal so aus.
Guten Rutsch und ein schönes neues Jahr noch allen !
Last edited: 2015-12-30 18:26:14 +0100 (CET)

View all threads created 2015-12-30 17:19.