Bonjour,

Je possède 2 fichiers, 1 avec des valeurs (fic1) et un autres dit de référence (fic2) .
Je souhaite réaliser un programme Perl qui pour chaque valeur du fic1 je vienne modifier un champ défini du fic2 et écrire le résultat dans un fichier final (fic3).
Ce que je n'arrive pas à faire c'est d'écrire dans fic3.
Vous trouverez ci dessous le dèbut de mon script:

#!/usr/bin/perl
# Nom du fichier analysé
$file="c:\\swtable2.txt";
# Ouvre le fichier, qui s'il (…)

Bonjour,

Qui pourrait m'expliquer ces deux lignes d'un programme PERL

$line=~/^(.) (......) (.) (.) (..)/;
if ($var1 = ~/m/i && $var3 eq "." && $var4 =~/s/i);

Merci à vous pour les réponses

Comment trouver les lignes contenant le même mot dans un fichier texte en langage PERL.

Merci

Bonjour,

comment récupérer dans un fichier les lignes d'un autre fichier
qui contiennent une partie identique?

Fichier1:
tyty aaaaa bien
gig aaaaa mal
1112vf2s2v3
sqdfqs
df

Je voudrais avoir le Fichier2 comme cela:

tyty aaaaa bien
gig aaaaa mal

Merci pour vos réponses.

Bonjour,

Pouvez-vous me dire s'il est possible d'afficher le résultat d'un programme Perl avec des couleurs et tailles de caracteres différentes des caractères standards?

Merci

Mon script:

my $smtp = Net::SMTP->new('MAILHUB',
Debug => 1,
Timeout => 30);
$smtp->mail('pascal@free.fr');
$smtp->to('titi@tri.fr');
$smtp->cc('toto@gmail.fr');
$smtp->data();
$smtp->datasend( << "EOM" );
From: <pascal@free.fr>
To: <titi@tri.fr>
Cc: <toto@free.fr>
Subject: Test
edfkjdsfdsf
sdfdsfdsff
EOM
$smtp->dataend();
$smtp->quit();

Ma question:
Pourquoi à la rèception je vois dans "De:pascal.fr" dans "A: titi.fr@free.fr" et dans "Cc: toto.fr@free.fr"

Cela est gênant si les personnes recevant ce Courriel veulent y répondre.

Merci par avance.

Bonjour,

Pouvez-vous m'expliquer l'erreur suivante que j'ai avec perl 5.005
Can't use subscript on split at..... ligne8, near "$mois]"
Can't use subscript on split at..... ligne8, near "$mois]"

et qui fonctionne parfaitement avec Perl v5.6.1, comment contourner ce problème?

mon script:
($seconde,$minute,$heure,$jour,$mois,$annee,$wday,$yday,$isdst) = localtime(time);
$ann = $annee + 1900
$an = substr ($ann, 2, 2);
$mmm = qw(01 02 03 04 05 06 07 08 09 10 11 12) [$mois];
$mm = qw(Janvier Février Mars Avril Mai Juin Juillet Aout (…)

Bonjour,

Je souhaite pouvoir envoyer un courriel via un script Perl, mais je n'arrive pas à insérer une variable dans le champ message.
merci de votre aide
Mon script:

use Net::SMTP;
$a = "1213";
my $smtp = Net::SMTP->new('smtp.xxxx.fr');
$smtp->mail('titi@free.fr');
$smtp->to('tata@free.fr');
$smtp->data();
$smtp->datasend( << 'EOM');
From: <titi@free.fr>
To: <tata@free.fr>
Subject: "Test envoi Couriel"
Vous avez $a mn de retard
Merci.
EOM

$smtp->dataend();
$smtp->quit();

Bonjour,

Je souhaite rechercher un mot d'un fichier et le définir en variable pour l'utiliser ensuite.

Comment faire?

Merci

Bonjour,

J'exécute un .bat qui lui même appel un programme PERL
qui doit me fournir une variable pour le .bat d'origine.

Comment dois je faire pour que l'héritage de la variable se fasse bien?

Merci

Bonjour,

qui peut m'expliquer la ligne de code suivant:

F=`echo $1 | grep "\." | wc -l`
echo $F

la valeur de $1 est : PP.TATA.TITI.TOTO
ce que je ne comprends pas c'est la signification de "\."

Merci

Bonjour,

Je souhaite écrire un script qui réalise les choses suivantes:

je dispose d'un ensemble de fichiers dans un répertoire je désire les renommer en gardant les 8 premiers caractères + l'extension et ensuite les compresser avec un utilitaire zip.

Comment puis je réaliser cela?

Merci par avance

Bonjour,

Je souhaite récupérer le nom des fichiers d'un répertoire et pouvoir les compressé un par un, comment puis je faire?

Merci d'avance