/blog/perl


substr() in Perl
[123499 mal gelesen]
foreach in Perl
[113463 mal gelesen]
Arrays in Perl - Besonderheiten
[105802 mal gelesen]
open() - Dateien öffnen in Perl
[95725 mal gelesen]
split() in Perl - Zeichenketten teilen
[84207 mal gelesen]
chomp() in Perl
[82399 mal gelesen]
grep - Listen durchsuchen in Perl
[79675 mal gelesen]
push in Perl
[75572 mal gelesen]
sleep in Perl - Das aktuelle Script warten lassen
[58996 mal gelesen]
print in Perl
[48515 mal gelesen]


Arrays
Dateien
HTPC
Hashes
Leistungsoptimiert
PHP
Perl
RegEx
Schleifen
Script
Skalare
Sonstiges
System
Webserver
Zur Startseite


Donnerstag, 29.3.2007, 00:04:45 Uhr

open() - Dateien zum Lesen oder Schreiben öffnen in Perl


Mit dem Befehl open() werden in Perl Dateien zum Lesen, Schreiben oder Ausführen geöffnet.
Als Parameter werden erwartet:
  • das Dateihandle
  • der Dateiname, inklusive Pfadangaben
Mit Hilfe der >, < und |-Zeichen vor dem Dateinamen bzw. Pfadnamen kann man zusätzlich festlegen, ob eine Datei zum Lesen, Schreiben, Anbhängen oder Auführen geöffnet werden soll.
Wird nichts angegeben, wird eine Datei zum Lesen geöffnet.

Hier nochmals die einzelnen Modi:
  • >datei.txt:
    Öffnet die Datei datei.txt zum Schreiben. Sollte diese Datei bereits vorhanden sein, wird sie überschrieben. Falls nicht, wird sie neu angelegt.

  • <datei.txt:
    Öffnet eine Datei zum Lesen. Die Datei muß existieren, sonst gibts ne Fehlermeldung.

  • >>datei.txt:
    Die Datei datei.txt zum Schreiben geöffnet. Wenn die Datei bereits existiert, wird der neue Inhalt an den alten Inhalt angehängt, d.h. der alte Inhalt wird nicht gelöscht. Wenn die Datei noch nicht existiert, wird sie automatisch angelegt.

  • +>datei.txt:
    Die Datei datei.txt wird zum Lesen und zum Schreiben von Daten geöffnet.

  • |datei:
    Die Datei datei ist eine ausführbare Programmdatei oder ein Shell-Befehl. Das Programm bzw. der Befehl werden ausgeführt. Aus Unix-Sicht wird dabei eine Pipe zu dem Programm bzw. Befehl geöffnet.

  • datei|:
    Die Datei datei ist eine ausführbare Programmdatei oder ein Shell-Befehl. Das Programm bzw. der Befehl werden ausgeführt. Aus Unix-Sicht wird dabei eine Pipe von dem Programm bzw. dem Befehl geöffnet.
Wenn die Datei geöffnet werden kann, gibt die Funktion open den Wert true zurück, andernfalls den Wert undef.

open(IN,"<datei.txt");
close IN;


Öffnet die Datei datei.txt zum Lesen.


open(IN,'>'.$datei);
close IN;


Öffnet die Datei, deren Name in $datei angegeben ist, zum Schreiben. Dabei wird eine existierende Datei überschrieben, falls vorhanden. Da nach dem Öffnen die Datei sofort wieder geschlossen wird, wird eine leere Datei erzeugt.


open(IN,'<'.$datei) || die "Can not open file $datei: $!";

while(<IN>){
next if ($_=~ /^#/);
print "$_\n";
}
close IN;


Öffnet die Datei $datei, gibt eine Fehlermeldung aus, falls diese Datei nicht vorhanden ist.
Danach wird der Dateiinhalt ausgegeben. Zeilen, die mit einem # beginnen, werden dabei herausgefilter.

Vorsicht
Öffnen Sie niemals Dateien, deren Namen von einer Usereingabe bestimmt werden.
Oder vielleicht verständlicher ausgedrückt: Wenn ein Gast auf Ihrer Webseite eine Eingabe in ein Formular machen kann, die dann als Name einer Datei verwendet werden soll, sollten Sie UNBEDINGT vorher ungültige Zeichen herausfilern.
Mehr dazu hier.
Geöffnete Dateien sollte man, wenn man sie nicht mehr braucht, wieder schließen. Das spart System-Ressourcen und gibt sie für andere Prozesse frei, falls die Datei gesperrt wurde.

Große Dateien sollte man nicht erst komplett in den Speicher einlesen, um sie dann zu verarbeiten. Dies könnte den Rechner lahm legen...

Übrigens
Aus Gründen der Sicherheit sollte man die 3-Argumente-Form beim Öffnen von Dateien verwenden:

open (IN,'<',$datei);



Und nochwas
Möglich ist auch Folgendes:

open (my $IN,'<'.$datei);


Dies hat den Vorteil, daß $IN gleich eine lokale Variable darstellt und daß die Datei automatisch geschlossen wird, wenn der Block verlassen wird.
Gerade in Scripten, in denen man z.B. per require mehrere Module hinzulädt, kann man so Überschneidungen vermeiden, die oftmals schwer zu finden sind.





Kommentare zum Beitrag "open() - Dateien öffnen in Perl"

Kommentar von Michael
Beim gleichzeitigen Lesen und Schreiben hat sich ein Fehler eingeschlichen (meiner Meinung nach). Es muss heissen:

+<datei.txt

(mit einem Kleiner als-Zeichen)

Und nicht wie im Text geschrieben mit einem Größer als-Zeichen.

Kommentar von Sammy
wie lautet denn die syntax wenn ich eine perl datei in einer perl datei öffnen will. also hier steht ja "|datei: " muss ich da noch ein ".pl" anhängen oder nicht?



Thema: Perl Dateien

Der Beitrag "open() - Dateien öffnen in Perl" wurde 95726 mal gelesen.

Es wurde 29 x über diesen Beitrag abgestimmt.
Die durchschnittliche Beurteilung liegt bei
1.8 (1 = sehr gut - 6 = grottenschlecht).

Kommentar schreiben  Druckansicht  Seitenanfang 
Beurteilen 






 Zufällige Beiträge im /blog/perl

Zugriff auf bestimmte Webseiten sperren unter Windows XP

Windows Vista schneller booten

Links finden - Links testen - Backlink überwachen

close - Datei schließen in Perl

Gruppenbildung in Perl

Reguläre Ausdrücke - Suche nach Zeichen am Wortanfang und am Wortende

Feiertage eines beliebigen Jahres errechnen mit Perl

Prüfen, ob ein bestimmter Wert in einem Array vorhanden ist

Identische Dateien auf dem Computer finden mit Perl

Wie viele Zeilen hat die Datei?



0.0560238361358643 sec. to build



...Blogsoftware in pure Perl - Powered by a lot of Coffee...


SSD-Festplatte - Wassn das???
Die Transliteration - Nur ein Zeichen in einem Skalar ersetzen
Select - Case in Perl
Windows 7 XP Mode – Wo finde ich den XP-Modus unter Windows 7?
Mac-Adresse beim Apple Macintosh herausfinden
SGN-Funktion für Perl
truncate - Dateigröße verändern in Perl
Eigene IP herausfinden mit Perl
Epoche live in Datum umwandeln
Firefox 3 - Exe-Files downloaden


Von: Schorschel eastcoast
Kommentar:
Danke. Das hat mir weitergeholfen.
Zum Beitrag


Von: Jessica
Kommentar:
Kann man auch zwei Datein parallel einlesen?

Zum Beitrag


Von: Xtravaganz
Kommentar:
Für

Zum Beitrag


Von: Xtravaganz
Kommentar:
Für

Zum Beitrag


Von: Sammy
Kommentar:
wie lautet denn die syntax wenn ich eine perl datei in einer perl datei öffnen will. also hier steht ja "|datei: " muss ich da noch ein ".pl" anhängen oder nicht?
Zum Beitrag



Gesamtverzeichnis
Februar 2010
Dezember 2009
Oktober 2009
Januar 2009
Dezember 2008
November 2008
September 2008
August 2008
Juli 2008
Juni 2008
Mai 2008
April 2008
Januar 2008
Dezember 2007
November 2007
Oktober 2007
September 2007
August 2007
Juni 2007
Mai 2007
April 2007
März 2007
Februar 2007
Januar 2007
Dezember 2006


Mister Wong

RSS-Feed

Heute ist der
20.2.2018

Es ist
4:20:32 Uhr

Ihre IP:
50.19.34.255

Blog-Einträge: 186

Die letzten 24 Stunden im Überblick


Gelesene Beiträge insgesamt:
3594671


Webseiten vergleichen
Kalender mit Feiertagen - 2028
Links finden und testen
Menschliche Datumsangaben
IP zu Domain herausfinden
Time live in Datum umwandeln
Perl für Windows



Mo Di Mi Do Fr Sa So
1234
567891011
12131415161718
19202122232425
262728

Impressum