Perl File Behandlung

In Perl werden Files einen Namen gegeben, auch genannt Handgriff. Aller Eingang und Ausgang der File wird erzielt, indem man Funktionen filehandling. Filehandles sind auch Mittel, von einem Programm zu einem anderen Programm in Verbindung zu stehen.

Wie man Handgriffe zuweist

Ein filehandle ist nichts aber Name, die für die Files gegeben werden, die du beabsichtigst, in deinen den Perl Programmen und Indexen zu benutzen. Ein Handgriff ist ein Name, der temporarly einer File zugeordnet wird. Das Beispiel unterhalb der Erscheinen, wie man einen File Handgriff in deinem Perl Programm benutzt.

#!/usr/bin/perl

print "content-type: text/html \n\n"; #The header
$FilePath = "home/html/myhtml.html"
sysopen(HANDLE, $FilePath, O_RDWR);
printf HANDLE "Welcome to Tizag!";
close (HANDLE);

Files mit der Würfel Funktion

Die Würfelfunktion besteht auch in einigen anderen Programmiersprachen. Sie wird verwendet, um deine Indexe zu töten und hilft auch, where/if festzulegen, das dein Code verläßt. Wir verwenden diese Funktion als wie gezeigt unten.

#!/usr/bin/perl

print "content-type: text/html \n\n"; #The header

$filepath = "htmlpage.html";

sysopen (HTML, '$filepath', O_RDWR|O_EXCL|O_CREAT, 0755) or die "$filepath cannot be opened.";
printf HTML "<html>\n";
printf HTML "<head>\n";
printf HTML "vtitle>My Home Page</title>";
printf HTML "</head>\n";
printf HTML "<body>\n";
printf HTML "<p align='center'>Here we have an HTML
page with a paragraph.</p>";
printf HTML "v/body>\n";
printf HTML "</html>\n";
close (HTML);

Wenn wegen irgendeines Problem Perl, ist nicht imstande sich zu öffnen, oder, unsere File herzustellen, sind wir informiert. Es ist gutes üblich, die Würfelfunktion zu gebrauchen und wir werden sie verwenden, wie wir in die File Behandlung tiefer gehen.

Wie man die File öffnet

Files können mit irgendeinem von geöffnetem geöffnet werden und sysopen Funktion. entweder für von der Funktion bis zu 4 Argumenten überschreiten, kann das erste Argument ist immer der File Handgriff, dann der Dateiname alias ein URL oder vom filepath, Markierungsfahnen und schließlich irgendwelche der Erlaubnis, die der File bewilligt werden sollen. Das folgende Programm erschließen ein vorher gespeichertes HTML Dokument.

#!/usr/bin/perl

print "content-type: text/html \n\n"; #The header

$FH = "filehandle";
$FilePath = "htmlpage.html";

open(FH, $FilePath, permissions);
or
sysopen(FH, $FileName, permission);

Files, die ungewöhnliche File Namen haben, oder Sonderzeichen alle sind gut, die durch das URL zuerst erklären geöffnet sind, als Variable. Diese Methode entfernt das Durcheinander, das auftreten konnte, wenn Perl versucht, das Programm zu deuten. Jedoch erfordern Dateinamen einen Schritt für einen kurzen Buchstabe Ersatz, vor dem sie in die Dateieröffnungsanweisungen gesetzt werden können.

Verschiedene File Erlaubnis

File Erlaubnis ist zur File Funktion und der Sicherheit entscheidend. Zum Beispiel um zu arbeiten, muß eine Perl File (.pl) vollziehbare File Erlaubnis haben, zwecks auf deinem web server zu arbeiten. Auch du kannst nicht alle deine HTML Files eingestellt werden wünschen, um andere oder über sie schreiben ihnen zu lassen. Ist hier eine Auflistung von was, zur geöffneten Funktion, wenn das Arbeiten zu überschreiten mit File anfaßt.

Shorthand Flags:

Entities Definition
< or r Read Only Access
> or w Creates, Writes, and Truncates
>>or a Writes, Appends, and Creates
+< or r+ Reads and Writes
+> or w+ Reads, Writes, Creates, and Truncates
+>> or a+ Reads, Writes, Appends, and Creates

O_ Flags:

Value Definition
O_RDWR Read and Write
O_RDONLY Read Only
O_WRONLY Write Only
O_CREAT Create the file
O_APPEND Append the file
O_TRUNC Truncate the file
O_EXCL Stops if file already exists
O_NONBLOCK Non-Blocking usability

#!/usr/bin/perl

print "content-type: text/html \n\n"; #The header
use Fcntl; #The Module

sysopen (HTML, '/home/html/htmlpage.html', O_RDWR|O_EXCL|O_CREAT, 0755);
sysopen (HTML, >htmlpage.html');

File Creation

Files are opened and created using the same function "sysopen". Our syntax open(FILEHANDLE, '$filename', permissions, CHMOD); or sysopen(FILEHANDLE, $filename, permissions, CHMOD);

#!/usr/bin/perl
use Fcntl; #The Module

print "content-type: text/html \n\n"; #The header
sysopen (HTML, 'myhtml.html', O_RDWR|O_EXCL|O_CREAT, 0755);
printf HTML "<html>\n";
printf HTML "<head>\n";
printf HTML "<title>My Home Page";
printf HTML "</head>\n";
printf HTML "<bodyv\n";
printf HTML "<p align='center'>Here we have an HTML
page with a paragraph.</p>";
printf HTML "</body>\n";
printf HTML "</html>\n";
close (HTML);

Mit dich sysopen kann hexadezimale priviledges auch einstellen; CHMOD Werte. Sysopen benötigt die Erklärung eines neuen Moduls für Perl. Wir werden jetzt das Fcntl Modul benutzen.

Ablesen von einer File

Es ist einfach, Linien von den Files zu lesen und sie dann einzugeben das Eingang Operator <> verwendend. Indem er die File Zufuhr innerhalb des Eingang Operators, dann setzt, gibt dein Index diese Linie der File. ein.

#!/usr/bin/perl

print "content-type: text/html \n\n"; #The header
$HTML = "htmlpage.html";
open (HTML) or die "Can't open the file!";
print <HTML>;
close (HTML);

Hier haben wir einen kleinen Perl Index, zum einiger Linien des HTML Codes anzuzeigen. Jede Linie wird in eine Reihe gespeichert und sie wird automatisch zur Datenbanksuchroutine im HTML Format mit dem Eingang Operator <> gedruckt.

Copy eine File

Mit der Kopie Funktion können wir die File kopieren. Copy nimmt zwei Argumente, das URL der File, die Notwendigkeiten kopiert zu werden und das URL der neuen File/des Verzeichnisses, zu denen die File kopiert werden soll. Wenn der gleiche Dateiname oder das gleiche URL verwendet wird, Perl Neufassung über der File, wenn Erlaubnis erlaubt wird.

#!/usr/bin/perl
use File::Copy;

print "content-type: text/html \n\n"; #The header
$filetobecopied = "htmlpage.html.";
$newfile = "html/htmlpage.html.";
copy($filetobecopied, $newfile) or die "File cannot be copied.";

Hier haben wir einfach die „htmlpage.html“ File kopiert und werden sie in den zukünftigen Beispielen benutzen. Beim Verwenden von Perl auf dem Netz, ist sie am besten, das komplette Internet URL zu benutzen. Wir haben eine Stenographieweise im Beispiel verwendet, aber es ist zum hardcode das volle URL wie besser: http://www.vyom.co.in/htmlpage.html.

Verschieben der Files

Das Verschieben der File erfordert den Gebrauch von der „Bewegung“ Funktion. Diese Funktion arbeitet ähnlich zur Kopie Funktion von oben genanntem und wir schicken das gleiche Modul zu Perl. Der Unterschied ist hier ist, anstelle von kopierend uns „gerade geschnitten“ der File und schickt sie zu einer neuen Position. Arbeitendes dieses ist selbe wie Ausschnitt und klebender Text vom Bürodokument zu anderen.

#!/usr/bin/perl
use File::Copy;

print "content-type: text/html \n\n"; #The header
$oldlocation = "htmlpage.html";
$newlocation = "html/htmlpage.html";
move($oldlocation, $newlocation);

Unsere File ist jetzt completly von seiner anwesenden Position zur neuen Position entfernt worden.

Löschen der Files

Um spezifische Files aus deinem web server zu löschen verwenden „lösen“ Funktion. Die beste Weise ist häufig, einen variablen Namen gleich einzustellen URL der File, die du löschen möchtest.

#!/usr/bin/perl

print "content-type: text/html \n\n"; #The header
$file = "newtext.txt";
if (unlink($file) == 0) {
print "File deleted successfully.";
} else {
print "File was not deleted.";
}

Mehrfache Files sofort entfernen

Um mehrfache Files sofort zu entfernen, sollten wir eine Reihe Files zuerst herstellen die gelöscht werden und durch jede dann sich schlingen muß. Es gibt viele andere Weisen, über diesen Prozeß zu gehen.

#!/usr/bin/perl

print "content-type: text/html \n\n"; #The header
@files = ("newtext.txt","moretext.txt","yetmoretext.txt");
foreach $file (@files) {
unlink($file);
}

Keywords:perl tutorial, perl scripts, perl programming, active perl, perl download, blackberry perl, perl regular expressions, perl split, perl array, perl script page

HTML Quizes

XML Quizes