A Voir sur le même Sujet

• 

  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 = …

• 

  Structure de contrôle: Exemple d’un bloc nu

  {filelink=15259} #!/usr/bin/perl -w # Le bloc nu exécute une seule fois son contenu # et limite la portabilités de ses variable. { print “Tapez un …

• 

  Programme: Copier le contenu d’un fichier dans un autre

  {filelink=14337} ##############Opération sur le fichier ########## # Copier et coller un fichier # # ouverture des fichiers open file_src, “c:/data.txt”; # Fichier destinataire while (defined($ligne …

• 

  Perl: Lancer un programme externe

  {filelink=14610} #!/usr/local/bin/perl # lancer la calculatrice de windows exec “calc”; die “Impossible de lancer le programme: $!”; Livres sur ce sujet [amazon_image id=”2841773698″ link=”true” target=”_blank” …

• 

  Création automatique des utilisateurs sous Windows

  {filelink=13537} #!/usr/bin/perl -w use Win32::NetAdmin; $host = ”; # Domaine $username = “Sakoba”; # Utilisateur $password = “******”; # Mot de passe $password_expiration = 0; …

• 

  Perl: Lire les emails d’un serveur POP3

  {filelink=13118} #!/usr/local/bin/perl ############## Programme de lecture d’email ############## # Lire les email d’un serveur Mail # use strict; my $mail_server=”mail.serveur.com”; # Adresse du serveur mail …

• 

  Perl: comparer les contenus des fichiers

  {filelink=14344} #! /usr/local/bin/perl use File::Compare; #Module de comparaison des fichier $fichier_1=”c:/test.txt”; $fichier_2=”c:/data.txt”; if (compare($fichier_1, $fichier_2) == 0) { printf(“%s et %s ont le même contenu”,$fichier_1,$fichier_2); …

• 

  Copier un tableau dans un autre

  {filelink=14086} #!/usr/bin/perl -w my @tab1 = (1, 2, 3, 4); #Définition d’un tableau de 4 éléments my @tab2; #Définition d’un tableau vide @tab2 = (@tab1, …

• 

  Perl: créer un client datagramme pour échanger avec le client

  {filelink=13110} #!/bin/perl -tw my $remote_host=”127.0.0.1″; # L’adresse du serveur my $remote_port=80; # Le port du Serveur my $protocole=”udp”; # Le protocole utilisé use Socket qw(AF_INET …

• 

  Perl: Modifier un fichier

  {filelink=15267} #!/usr/local/bin/perl my $old=”fichier1.txt”; my $new=”fichier2.txt”; open(OLD, “

• 

  Lire l’entrée clavier avec l’opérateur diamond””

  {filelink=14608} #!/usr/local/bin/perl while (defined($line = )) { chomp($line); print “Je dis $line!n”; } Livres sur ce sujet [amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de …

• 

  Perl: Comment lire un fichier encodé

  {filelink=14348} #!usr/bin/perl $fichier=”c:/test”; # Ouvrir un encodé en utf open(FH, “< :encoding(UTF-8)", $fichier) or die "Impossible d'ouvrir $fichier: $!"; Livres sur ce sujet [amazon_image id="2841773698" ...

• 

  Lire une colonne ou une ligne d’un fichier excel

  {filelink=13224} use Spreadsheet::Read; # Lecture d’un fichier Microsoft Excel .xls my $ref = ReadData( ‘test.xls’ ); my $fval = $ref->[1]{A3}; my $uval = $ref->[1]{cell}[1][3]; Livres …

• 

  Perl: Inverser les lignes d’un texte

  {filelink=15267#} #!/usr/local/bin/perl # Lire l’entrée clavier print “Taper votre texte, Pour quitter appuyez sur Ctrl-Z:\n”; # ou Ctrl-D selon la plateforme @lines = ; #Inverser …

• 

  Les différents mode d’ouverture des fichiers

  {filelink=14338} ################ Utilisation de ‘open’ et ‘sysopen’ ############################ # Pendant l’overture du fichier, seul le mode # spécifié définit les droits et les actions # …