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