binäre Daten: binäre Daten zeitoptimal einlesen - #85054 (Allgemeines zu Perl)

Relais

2004-07-29 13:23

User since
2003-08-06
2246 Artikel
ModeratorIn

[quote=rookie,29.07.2004, 10:28]1. habe leider keinen Befehl ähnlich "slurp" gefunden - was meinst Du damit?[/quote]

Code: (dl )

1
2
3

open ( DATEI, "< $dateiname" ) # siehe perldoc perlintro
    or die qq(Konnte Datei "$dateiname" nicht zum Lesen öffnen: $!);
my @zeilen_array = <DATEI>; # Array enthält nun alle "Zeilen" aus der Datei. Nicht so superschlau bei Binärdateien.

perlintro

"Slurp-Beispiel" mit Modul

Code: (dl )

1
2
3

use Slurp; # Slurpt ganze Dateien in Variablen
my $inhalt = slurp( $dateiname )
    or die qq(Konnte Datei "$dateiname" nicht einlesen:$!));

"Slurp-Beispiel klassisch"

Code: (dl )

{ # Öffnet einen Block, in dem...
    local $/ = undef; # ...das "Zeilenende" ausgeschaltet wird.
open ( DATEI, "< $dateiname" ) # siehe perldoc perlintro
    or die qq(Konnte Datei "$dateiname" nicht zum Lesen öffnen: $!);
my $inhalt = <DATEI>; # Scalar enthält nun allen Inhalt der Datei.

Quote
2. Tie::File kann man soweit ich weiss nur auf ascii files nutzen - Zeilenendeerkennung wird genutzt - oder?

Mit Ascii irrst Du möglicherweise ein kleines bißchen, "Zeilenendeerkennung" stimmt so halbwegs, aber was das Zeilenende sein soll, ist Dein Bier, siehe Tie::File - Einfach, oder etwa nicht? - Das heißt, wenn Du einen sinnvollen Trenner wüßtest, ginge es vielleicht doch. Sonst nicht.

Quote
3. ... mit regexen meinst du reguläre ausdrücke oder?

"Perl reguläre Ausdrücke"... ;-)

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming