A Voir sur le même Sujet

• 

  Perl: Trouver le plus grand fichier d’un répertoire

  {filelink=15267#} #!/usr/local/bin/perl use File::Find; @ARGV = (“.”) unless @ARGV; my ($taille_fichier, $nom_fichier) = (-1, “”); sub lePlusGrand { return unless -f && -s _ > …

• 

  Comment Obtenir le titre d’un siteweb

  {filelink=13227} use LWP; die “Veillez définir l’URL” unless @ARGV; foreach $url (@ARGV) { $ua = LWP::UserAgent->new( ); $res = $ua->get($url); print “$url: ” if @ARGV …

• 

  Perl: Lire les fichiers d’un répertoire

  {filelink=14342} # Spécifier le dossier à utilisé chdir ‘..’; #Dossier courant # Ouvrir le dossier opendir(DOSSIER, ‘.’) or die “Impossible d’ouvrir le dossier.”; # Lister …

• 

  Calculer la somme d’un tableau à l’aide d’un subroutine

  {filelink=14603} #!/usr/local/bin/perl -w sub somme { my ($num)= @_ ; # Les paramètres de la fonction my $somme; foreach $nombre (@_) { $somme += $nombre; …

• 

  Perl: Lister les fichiers d’un répertoire qui contiennent des textes

  {filelink=15267#} #!/usr/local/bin/perl $dir = “c:/”; print “Voici les fichier textes de $dir:\n”; opendir(BIN, $dir) or die “Impossible d’ouvrir le dossier $dir: $!”; while( $fichier = …

• 

  Modifier les droits et les permissions des fichiers avec la fonction ‘chmod’

  {filelink=14345} #! /usr/local/bin/perl $fichier_1=”c:/test.txt”; chmod(0400, $fichier_1); # le propriétaire du fichier a # la permission de lecture chmod(0200, $fichier_1); # le propriétaire du fichier a …

• 

  Exécuter une formule sur Excel et afficher le résultat sur le console

  {filelink=13530} #!/usr/bin/perl -w use Win32::OLE; $operand1 = ’10’; $operand2 = ’20’; $xls_app = Win32::OLE->new(‘Excel.Application’); # Lancer Micosoft Excel. $xls_app->{‘Visible’} = 1; # Créer un document. …

• 

  Exemple d’utilisation des opérateurs ‘shift’ et ‘unshift’ pour décaler le premier élément d’une liste

  {filelink=14100} #!C:/perl/bin #@tab = qw# dino fred barney #; @tab = qw”Perl et Python même logique”; print “1:#”,”@tab”,”n”; $pl = shift(@tab); # $p contient “Perl”, …

• 

  Trier un ‘Hash’ selon la taille des valeurs associée aux clés

  {filelink=14716} #!/usr/bin/perl -w my %mes_villes = (“Allemagne” => “Berlin”, “France” => ‘Paris’, “Angleterre” => “Londre”); # Trier le Hash selon la taille foreach $elem (sort …

• 

  Perl: Exemple d’accès aux sous-chaînes(substring)

  {filelink=14826} #!/usr/bin/perl ########### Sous-chaîne ################# # pour retourner une partie de la chaîne # Perl utilise le built-in substr() # $string = “Cours et tuto …

• 

  Trouver le contexte de retour d’un subroutine à l’aide de ‘wantarray’

  {filelink=14601} #!/usr/bin/perl ############# Subroutine ############# # le mot subroutine en anglais sous-programme # est l’appellation de méthode ou fonction sous Perl # pour déclarer un …

• 

  Télécharger un fichier à l’aide d’une connexion FTP

  {filelink=13113} use Net::FTP; $username = “test_username”; # Nom d’utilisateur $password = “test_mot_de_passe”; # Mot de passe $remotefile = “index.html”; # Fichier à téléchargé $ftp = …

• 

  Expression régulière: Comment faire les correspondance approximative

  {filelink=13221} #!/usr/bin/perl -w use String::Approx qw(amatch); open(FH, “c:/test.txt”) # Ouvrir le fichier or die “Impossible d’ouvrir test: $!”; while() { #Trouver tous les mots qui …

• 

  Exemple d’utilisation de l’opérateur ‘pop’ pour retourner le dernier élément d’une liste

  {filelink=14097} #!/usr/bin/perl @tab = 5..9; $var_a = pop(@tab); # $var_a prend 9, @tab contient maintenant (5, 6, 7, 8) print “$var_an”; $var_b = pop @tab; …

• 

  Expression régulière: Effectuer des matches consécutifs

  {filelink=13222} #!/usr/bin/perl -w $_ = “J’aime Perl version 6 et java version 1.7 pour 2012”; $count=0; # Trouver tous les chiffres dans le texte while …