#!/usr/bin/perl
use Win32::Clipboard;
my $presse_p = Win32::Clipboard->new();
$val = $presse_p->
#!/usr/bin/perl
use Win32::Clipboard;
my $presse_p = Win32::Clipboard->new();
$val = $presse_p->
public void () public void (boolean lines, boolean shapes) public void setBarRenderer(org.jfree.chart.renderer.category.BarRenderer categoryItemRenderer) |
la somme de tous les fichiers des répertoires et sous répertoires my $somme_octet = 0; find sub { $somme_octet += -s }, |
$dir = "c:/"; print "Voici les fichier textes de $dir:\n"; #!/usr/local/bin/perl opendir(BIN, $dir) or die |
for $href ( @myArraysHash ) { print "{ "; for $role ( keys %$href ) { print "$role=$href->{$role} "; } |
#!/usr/local/bin/perl -w
LINE:
while (my $ligne = ) {
next LINE if $ligne
#!/usr/local/bin/perl
my $old=”fichier1.txt”;
my $new=”fichier2.txt”;
open(OLD, “”, $new) or
while ()