Perl codes and news

#!/usr/bin/perl
use warnings;
use strict;
use DBI;

# Ouvrir une connexion sur la base de données M

#!/usr/bin/perl
use warnings;
use strict;
use DBI;

# Ouvrir une connexion sur la base de données 

 #!/usr/bin/perl

# les deux string sont convertis en int avant la conversion
$result = "64" < "128

#!/usr/bin/perl -w

use Win32::NetAdmin;

$status = Win32::NetAdmin::GetUsers('', FILTER_NORMAL_ACCO

#!/usr/bin/perl -w

use Win32::NetAdmin;

$host = '';                         # Domaine

$username =

#!/usr/bin/perl -w
use Win32;

$fstype = Win32::FsType();

print "Votre Système de Fichier est: $fst

#!/usr/bin/perl -w

use Win32::OLE;

$operand1 = '10';
$operand2 = '20';

$xls_app = Win32::OLE->new