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