Perl - fügen Sie die Letzte Zeile einer Datei

Ich bin ein Perl Neuling, kann jemand bitte lassen Sie mich wissen, wie das Anhängen einer output-Datei ist der Letzte Eintrag basierend auf dem aktuellen Wert?
E. g. Ich bin die Erzeugung einer Ausgabe-txt-Datei sagen

a b c d 10

Mit verarbeiten bekomme ich den Wert 20, und jetzt will ich diesen Wert 20 zugewiesen werden und an die der vorherigen Gruppe, die

a b c d 10

machen und es als

a b c d 10 20
InformationsquelleAutor Amit Moses Albert | 2013-04-03
  1. 10

    Vorausgesetzt, die Letzte Zeile hat keine newline 

    use strict;
use warnings;

open(my $fd, ">>file.txt");
print $fd " 20";

    Wenn die Letzte Zeile bereits ein Zeilenumbruch, der Ausgang wird am Ende auf die nächste Zeile, d.h. 

    a b c d 10
 20

    Einer längeren version arbeiten, in beiden Fällen wäre 

    use strict;
use warnings;

open(my $fd, "file.txt");
my $previous;
while (<$fd>) {
    print $previous if ($previous);
    $previous = $_;
}

chomp($previous);
print "$previous 20\n";

    Jedoch, diese version nicht ändern Sie die ursprüngliche Datei.

    InformationsquelleAutor Olaf Dietsche
  2. 6

    Versuchen, dies zu tun

    one-liner version

    perl -pe 'eof && do{chomp; print "$_ 20"; exit}' file.txt

    Skript version

    #!/usr/bin/env perl

use strict; use warnings;

 while (defined($_ = <ARGV>)) {
    if (eof) {
        chomp $_;
        print "$_ 20";
        exit;
    }
}
continue {
    die "-p destination: $!\n" unless print $_;
}

    Beispiel-Ausgabe

    $ cat file.txt
a b c d 08
a b c d 09
a b c d 10


$ perl -pe 'eof && do{chomp; print "$_ 20"; exit}' file.txt
a b c d 08
a b c d 09
a b c d 10 20
    InformationsquelleAutor Gilles Quenot
  3. 4
    perl -0777 -pe 's/$/20/' input.txt > output.txt

    Erklärung: Lesen Sie die gesamte Datei, indem Sie input record separator mit -0777 führen Sie eine substitution auf die zu lesenden Daten entspricht die Datei-Endung, oder direkt vor der letzten Zeile.

    Können Sie auch die -i Schalter zu tun, in-place-editieren der input-Datei, aber die Methode ist riskant, denn es führt eine irreversible Veränderungen. Es kann verwendet werden, mit Sicherung, z.B. -i.bak, aber das backup wird überschrieben, mehrere Ausführungen, so dass ich in der Regel empfehlen die Verwendung von shell-Umleitung statt, wie ich oben.

    InformationsquelleAutor TLP
  4. 0

    Lesen Sie die gesamte Datei zuerst, Sie können es durch dieses Unterprogramm read_file:

    sub read_file {
    my ($file) = @_;
    return do {
        local $/;
        open my $fh, '<', $file or die "$!";
        <$fh>
    };
}

my $text = read_file($filename);
chomp $text;
print "$text 20\n";
    InformationsquelleAutor lutaoact
Schreibe einen Kommentar