Manipulation de dossier de Perl

Dans le Perl des dossiers sont donn�s un nom, �galement appel� la poign�e. Tous entr�e et rendement du dossier est r�alis�e par filehandling des fonctions. Filehandles sont �galement des moyens de communiquer d'un programme � un autre programme.

Comment assigner des poign�es

Un filehandle n'est rien mais nom donn�s pour les dossiers que vous avez l'intention d'employer en vos programmes et manuscrits de Perl. Une poign�e est un nom qui est temporarly assign� � un dossier. L'exemple au-dessous des expositions comment utiliser une poign�e de dossier dans votre programme de Perl.

#!/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);

Dossiers avec la fonction de matrice

La fonction de matrice existe �galement dans plusieurs autres langages de programmation. Elle est employ�e pour tuer vos manuscrits et aide �galement � indiquer exactement where/if que votre code �choue. Nous employons cette fonction comme comme montr� ci-dessous.

#!/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);

Si en raison d'un certain Perl de probl�me ne peut pas s'ouvrir ou cr�er notre dossier, nous serons au courant. Il est dans de bons habitudes de se servir de la fonction de matrice et nous l'emploierons comme nous allons plus profonds dans la manipulation de dossier.

Comment ouvrir le dossier

Des dossiers peuvent �tre ouverts en utilisant l'une ou l'autre d'ouvert et sysopen la fonction. pour de la fonction peut passer jusqu'� 4 arguments, le premier argument est toujours la poign�e de dossier, puis le nom de fichier �galement connu sous le nom d'URL ou du filepath, drapeaux, et permissions finalement l'unes des qui doivent �tre accord�es au dossier. Le programme suivant ouvrent un document pr�c�demment sauv� de HTML.

#!/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);

Dossiers qui ont des noms peu communs de dossier ou les caract�res sp�ciaux sont tous mieux ouverts en d�clarant l'URL d'abord, comme variable. Cette m�thode enl�ve la confusion qui pourrait se produire quand le Perl essaye d'interpr�ter le programme. Cependant, les noms de fichier exigent une �tape pour une br�ve substitution de caract�re avant laquelle ils peuvent �tre plac�s dans les rapports ouverts.

Diverses permissions de dossier

Les permissions de dossier sont cruciales � la fonction et � la s�curit� de dossier. Par exemple, afin de fonctionner, un dossier de Perl (.pl) doit avoir des permissions de dossier ex�cutable afin de fonctionner sur votre web server. En outre, vous ne pouvez pas vouloir que tous vos dossiers de HTML soient plac�s pour permettre � d'autres d'�crire leur ou au-dessus de elles. Voici une liste de ce qu'� passer � la fonction ouverte quand travailler avec le dossier manipule.

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');

Classer la cr�ation

Des dossiers sont ouverts et cr�� en utilisant la m�me fonction � sysopen �. Notre syntaxe ouverte (FILEHANDLE, � $filename �, permissions, CHMOD) ; ou 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);

Avec sysopen vous peut �galement placer les priviledges hexad�cimaux ; Valeurs de CHMOD. Sysopen a besoin de la d�claration d'un nouveau module pour le Perl. Nous utiliserons maintenant le module de Fcntl.

Lecture � partir d'un dossier

Il est facile de lire des lignes � partir des dossiers et puis de les entrer employant le <> d'op�rateur d'entr�e. En pla�ant le traiteur de dossier � l'int�rieur de l'op�rateur d'entr�e, alors votre manuscrit entrera cette ligne du dossier.

#!/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);

Ici nous avons un petit manuscrit de Perl pour montrer plusieurs lignes de code de HTML. Chaque ligne est stock�e dans une rang�e et elle est automatiquement imprim�e au navigateur dans le format de HTML en utilisant le <> d'op�rateur d'entr�e.

Copy un dossier

En utilisant la fonction de copie nous pouvons reproduire le dossier. Le copy prend deux arguments, l'URL du dossier qui les besoins d'�tre copi� et l'URL du nouveaux dossier/annuaire auxquels le dossier doit �tre copi�. Si le m�me nom de fichier est employ� ou le m�me URL, r��criture de Perl au-dessus du dossier si on permet des permissions.

#!/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.";

Ici, nous avons simplement reproduit le dossier de � htmlpage.html � et l'emploierons dans de futurs exemples. Tout en en utilisant le Perl sur le Web, il est le meilleur pour employer l'URL complet d'Internet. Nous avons employ� une mani�re de st�nographie dans l'exemple, mais il est meilleur au hardcode le plein URL comme : http://www.vyom.co.in/htmlpage.html.

D�placer les dossiers

D�placer le dossier exige l'utilisation de la fonction de � mouvement �. Cette fonction fonctionne pareillement � la fonction de copie de ci-dessus et nous envoyons le m�me module au Perl. La diff�rence est ici est, au lieu copiant de nous juste � coup�s � le dossier et l'envoie � un nouvel endroit. Ce qui fonctionne correspond le texte de d�coupage et de d�placement du document de bureau � l'autre.

#!/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);

Notre dossier a �t� maintenant completly enlev� de son endroit actuel au nouvel endroit.

Supprimer les dossiers

Pour supprimer les dossiers sp�cifiques de votre web server employer � d�tachent � la fonction. La meilleure mani�re est souvent de placer un nom variable �gal � l'URL du dossier que vous souhaitez supprimer.

#!/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.";
}

Enlevant les dossiers multiples imm�diatement

Pour enlever les dossiers multiples imm�diatement, nous devrions d'abord cr�er une rang�e de dossiers qui doit �tre supprim�e et puis faite une boucle par chacun. Il y a beaucoup d'autres mani�res d'aborder ce processus.

#!/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