Dateisicherung bei Änderung - Flock und mehr - #154622 (Allgemeines zu Perl)

bianca

2011-12-03 11:49

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Ich verstehe garnicht, was du da machst.
Erst wird die org gelesen und in die tmp geschrieben.
Später wird dann die tmp in org umbenannt nachdem die org in bak umbenannt wurde?
Wofür ist das gut?
Im übrigen kann man ja mit sysread Zeichenweise lesen und schreiben, ohne alles in den Speicher holen zu müssen.

Beispiel für das sysread:

Code (perl): (dl )

sub BACKUP {
    my $quelle = shift || '';
    return "$quelle No such file" if !-f $quelle;
    my $auf;
    local *QUELLE;
    open (QUELLE,"<$quelle") or return "$quelle $!";
        binmode (QUELLE);
        local *BACKUP;
        open (BACKUP,">$quelle.bak") or return "$quelle.bak $!";
            binmode (BACKUP);
            my $puffer;
            print BACKUP $puffer while (sysread QUELLE,$puffer,4096);
        close (BACKUP);
    close (QUELLE);
    return '';
}

Das ist uralter Code. Inzwischen benutzt man andere Filehandle und du müsstest das flock und rename/del noch integrieren. Dann sollte das eigentlich alles in einem ablaufen.

10 print "Hallo"
20 goto 10