#!/usr/bin/perl
binmode(STDOUT,”:unix”);
for (0..20) {
print “.”; sleep 1;
}
#!/usr/bin/perl
binmode(STDOUT,”:unix”);
for (0..20) {
print “.”; sleep 1;
}
$text = “Perl version “;
$nombre = 6.0;
# Concatener la chaîne avec le nombre
$concat =$text . $
#!/usr/bin/perl -w
my %mes_villes = (“Allemagne” => “Berlin”,
“France” => ‘Paris’,
#!/usr/local/bin/perl -w
sub somme
{
my ($num)= @_ ; # Les paramètres de la fonction
$ uid=9496;
$ gid=40;
$number=chown($uid, $gid, ‘test.vim’, ‘you.vim’);
#!/usr/bin/perl -w
use strict;
my @tab; #déclaration d’un tableau
# In
#!/usr/bin/perl -w
use Net::FTP;
$username = “test_username”; # Nom d’utilisateur
$
use IO::Socket;
# Envoi de message
$server->send($message_a_envoyer, $flags)
or die “Erreur:
########### Scalaire #################
# Les Scalaires peuvent conteneir les
# chaîne de caract
#!usr/bin/perl
$rep=”c:/test”;
# Renommer le fichier
rename($rep,”c:/test2″);
# Supprimer le fi