A Voir sur le même Sujet

• 

  Perl: Trouver la taille d’un dossier

  {filelink=15267#} #!/usr/local/bin/perl use File::Find; @ARGV = (“C:\\BD”) unless @ARGV; # stocker la somme de tous les fichiers des répertoires et sous répertoires my $somme_octet = …

• 

  Comment Obtenir le titre d’un siteweb

  {filelink=13227} use LWP; die “Veillez définir l’URL” unless @ARGV; foreach $url (@ARGV) { $ua = LWP::UserAgent->new( ); $res = $ua->get($url); print “$url: ” if @ARGV …

• 

  Perl: Lister les fichiers d’un répertoire qui contiennent des textes

  {filelink=15267#} #!/usr/local/bin/perl $dir = “c:/”; print “Voici les fichier textes de $dir:\n”; opendir(BIN, $dir) or die “Impossible d’ouvrir le dossier $dir: $!”; while( $fichier = …

• 

  Programme: Copier le contenu d’un fichier dans un autre

  {filelink=14337} ##############Opération sur le fichier ########## # Copier et coller un fichier # # ouverture des fichiers open file_src, “c:/data.txt”; # Fichier destinataire while (defined($ligne …

• 

  Compter le nombre de ligne d’un fichier

  {filelink=14349} $fichier=”c:/index.html”; open(FILE, “

• 

  Perl: Copier un fichier binaire(Ex: image)

  {filelink=14339} ################ Copie des fichiers binairs ############################ # Copier et coller un fichier image # ouvir ce fichier en mode lecture open file_src, “c:/icon2.gif”; # …

• 

  Perl: Comment lire un fichier encodé

  {filelink=14348} #!usr/bin/perl $fichier=”c:/test”; # Ouvrir un encodé en utf open(FH, “< :encoding(UTF-8)", $fichier) or die "Impossible d'ouvrir $fichier: $!"; Livres sur ce sujet [amazon_image id="2841773698" ...

• 

  Les différents mode d’ouverture des fichiers

  {filelink=14338} ################ Utilisation de ‘open’ et ‘sysopen’ ############################ # Pendant l’overture du fichier, seul le mode # spécifié définit les droits et les actions # …

• 

  Envoyer et récevoir des fichiers d’un serveur FTP

  {filelink=13116} #!/usr/bin/perl -w use Net::FTP; $username = “test_username”; # Nom d’utilisateur $password = “test_mot_de_passe”; # Mot de passe $remotefile = “index.html”; # Fichier à téléchargé …

• 

  Trouver une ligne spécifique dans un fichier(Recherche)

  {filelink=14343} #!/usr/bin/perl -w use Tie::File; use Fcntl; # Lire la ligne 2 du fichier test.txt @read_argv = (‘c:/test.txt’, 2) or die “Erreur dans la définitionn”; …

• 

  Renommer ou supprimer un répertoire/fichier

  {filelink=14346} #!usr/bin/perl $rep=”c:/test”; # Renommer le fichier rename($rep,”c:/test2″); # Supprimer le fichier unlink($rep) or die “Impossible de supprimer $rep: $!”; Livres sur ce sujet [amazon_image …

• 

  Perl: Modifier un fichier

  {filelink=15267} #!/usr/local/bin/perl my $old=”fichier1.txt”; my $new=”fichier2.txt”; open(OLD, “

• 

  Comment copier ou déplacer un fichier/répertoire

  {filelink=14347} #! /usr/local/bin/perl use File::Copy; $rep=”c:/data.txt”; #Copier et coller le répertoire dans un nouveau emplacement copy($rep,”d:/test”) or die “La Copie à échouée, cause: $!”; # …

• 

  Expression régulière: Comment faire les correspondance approximative

  {filelink=13221} #!/usr/bin/perl -w use String::Approx qw(amatch); open(FH, “c:/test.txt”) # Ouvrir le fichier or die “Impossible d’ouvrir test: $!”; while() { #Trouver tous les mots qui …

• 

  Modifier les droits et les permissions des fichiers avec la fonction ‘chmod’

  {filelink=14345} #! /usr/local/bin/perl $fichier_1=”c:/test.txt”; chmod(0400, $fichier_1); # le propriétaire du fichier a # la permission de lecture chmod(0200, $fichier_1); # le propriétaire du fichier a …