 |
#!/usr/bin/perl -w
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use strict;
# créatio
|
Author: user
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
|
Lire les données du presse-papier windows
| |
#!/usr/bin/perl
use Win32::Clipboard;
my $presse_p = Win32::Clipboard->new();
$val = $presse_p->
|
Copier des informations dans le presse-papiers
| |
#!/usr/bin/perl ?Cw
use Win32::Clipboard;
my $presse_p = Win32::Clipboard->new();
# Enregistrer l
|
Télécharger la bibliothèque eastwood-patched-1.2.0.jar
 |
public void ()
public void (boolean lines, boolean shapes)
public void setBarRenderer(org.jfree.chart.renderer.category.BarRenderer categoryItemRenderer)
|
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: 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: 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: Créer et manipuler un tableau de Hash
| |
for $href ( @myArraysHash ) {
print "{ ";
for $role ( keys %$href ) {
print "$role=$href->{$role} ";
}
|