wie zum ausführen von code kurz vor der Ausfahrt perl-Skript

In meinem script, ich brauche zu laden, ein paar Infos von disk-Datei und beim ausführen von Skript die Informationen möglicherweise geändert werden.Zu halten die Konsistenz der Datei in der Festplatte und es in den Speicher zu kopieren, die ich brauche, um
schreiben Sie wieder die info auf die Festplatte, wenn die info-ist geändert im Speicher oder in regelmäßigen Abständen schreiben
zurück auf den Datenträger, oder einfach nur schreiben Sie Sie zurück in die Zeit der Skript verlassen, die bevorzugte, weil es sparen Sie viel IO-Zeit und machen Sie das Skript reagiert.

So einfach wie der Titel, meine Frage ist, macht perl hat einige Mechanismus, der meinen Anforderungen entsprechen?

InformationsquelleAutor Haiyuan Zhang | 2010-06-20
  1. 9

    Gibt es zwei verschiedene Möglichkeiten, dies zu tun, je nachdem, was Sie suchen.

    • Die END - block wird ausgeführt, wenn der interpreter abgeschaltet ist. Siehe die Vorherige Antwort für weitere details 🙂
    • Die DESTROY block/sub, die ausgeführt werden, wenn Ihr Objekt den Gültigkeitsbereich verlässt. Das ist, wenn Sie einbetten möchten Sie Ihre Logik in ein Modul oder eine Klasse, dann können Sie DESTROY.

    Werfen Sie einen Blick auf die folgenden Beispiel (es ist ein Beispiel, aber einige details wie die Fehlerüberprüfung, etc.. sind weggelassen):

    #!/usr/bin/env perl

package File::Persistent;

use strict;
use warnings;
use File::Slurp;

sub new {
    my ($class, $opt) = @_;

    $opt ||= {};

    my $filename = $opt->{filename} || "./tmpfile";
    my $self = {
        _filename => $filename,
        _content => "",
    };

    # Read in existing content
    if (-s $filename) {
        $self->{_content} = File::Slurp::read_file($filename);
    }

    bless $self, $class;
}

sub filename {
    my ($self) = @_;
    return $self->{_filename};
}

sub write {
    my ($self, @lines) = @_;
    $self->{_content} .= join("\n", @lines);
    return;
}

sub DESTROY {
    my ($self) = @_;
    open my $file_handle, '>', $self->filename
        or die "Couldn't save persistent storage: $!";
    print $file_handle $self->{_content};
    close $file_handle;
}

# Your script starts here...
package main;

my $file = File::Persistent->new();

$file->write("Some content\n");

# Time passes...
$file->write("Something else\n");

# Time passes...
$file->write("I should be done now\n");

# File will be written to only here..
    • Siehe auch stackoverflow.com/questions/1914730 für eine kürzere Beispiel und links zu den entsprechenden Unterlagen.
    • Man könnte auch schreiben $SIG{__DIE__} - handler zum ausführen von code beim beenden aufgrund eines Fehlers.
    InformationsquelleAutor Cosimo
  2. 28

    Ich glaube, Sie suchen nach ENDE - block:

    END {
    # cleanup
}

    ENDE code-block wird ausgeführt, so spät wie möglich, das ist, nach perl beendet das Programm ausgeführt und kurz vor der interpreter wird beendet, auch wenn es beendet als Ergebnis der die() Funktion. (Aber nicht, wenn es morphing in ein anderes Programm via exec oder geblasen aus dem Wasser durch ein signal-Sie haben die Falle, die Sie sich (wenn Sie können).) Sie müssen möglicherweise mehrere END-Blöcke innerhalb einer Datei-Sie führt in umgekehrter Reihenfolge der definition; das ist: last in, first out (LIFO). END-Blöcke werden nicht ausgeführt, wenn Sie ausführen von perl mit dem Schalter-c, oder wenn die Kompilierung schlägt fehl.

    InformationsquelleAutor Amadan
  3. 1

    Griff Control-C benötigen Sie für den Umgang mit Signalen (kein END-block ausgelöst wird). Es könnte als Nächstes getan werden:

    $SIG{INT}  = \&signal_handler;
$SIG{TERM} = \&signal_handler;

sub signal_handler {
    #implement here pre exit logic
    die "\n";
}
    InformationsquelleAutor Oleksandr Tsurika
Schreibe einen Kommentar