Lesen Zeilen von einer Datei, verändern Zeilen in einer zweiten Datei - #185686 (Allgemeines zu Perl)

bora99

2016-11-29 22:48

User since
2009-12-05
54 Artikel
BenutzerIn
[default_avatar]

ich habe noch Fragen zum Code

Code: (dl )

tie( my @status, 'Tie::File', $status_file ) or die "Cannot tie $status_file: $!";

- Hier werden die Datei-Daten in einem Array gespeichert ? Die Array Veränderungen werden durch 'Tie::File'in die Datei geschrieben ?

Code: (dl )

1
2

    if ( ! first { $_ eq $to_save } @status ) {
        push @status, $to_save;

- first liefert den 1. gefundenen Eintrag vom Array. ! bedeutet, daß wenn nichts gefunden wurde, ein push durchgeführt wird ?