la somme de tous les fichiers des répertoires et sous répertoires my $somme_octet = 0; find sub { $somme_octet += -s }, |
Author: Exemples, Cours et Tutoriels Perl
Perl: Créer et manipuler un tableau de Hash
for $href ( @myArraysHash ) { print "{ "; for $role ( keys %$href ) { print "$role=$href->{$role} "; } |
Perl: Lister les fichiers d’un répertoire qui contiennent des textes
$dir = “c:/”;
print “Voici les fichier textes de $dir:\n”;
#!/usr/local/bin/perl
opendir(BIN, $dir) or die
Perl: Trouver la taille d’un dossier
la somme de tous les fichiers des répertoires et sous répertoires my $somme_octet = 0; find sub { $somme_octet += -s }, |
Perl: Trouver le plus grand fichier d’un répertoire
sub lePlusGrand { return unless -f && -s _ > $taille_fichier; $taille_fichier = -s _; $nom_fichier = $File::Find::name; |
Perl: Inverser les lignes d’un texte
@reverse_lines = reverse @lines;
print @reverse_lines;
Copier des informations dans le presse-papiers
#!/usr/bin/perl ?Cw use Win32::Clipboard; my $presse_p = Win32::Clipboard->new(); # Enregistrer l |
Automation: Ouvrir Microsoft Excel, créer un classeur et ajouter des données dans les cellules
#!/usr/bin/perl -w use Win32::OLE; use strict; # création d'un objet OLE sur MS Excel my $xls_app |
Automation: Création automatique d’un graphique dans MS Excel
#!/usr/bin/perl -w
use Win32::OLE;
use Win32::OLE::Const ‘Microsoft Excel’;
use strict;
# créatio
Lire les données du presse-papier windows
#!/usr/bin/perl
use Win32::Clipboard;
my $presse_p = Win32::Clipboard->new();
$val = $presse_p->