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,

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,

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 à tous,

Je suis en train d'adapter des scripts shell UNIX en scripts PERL sous windows.

Mon problème est le suivant :

On me fournit un fichier de configuration (déclaration de variables) qui était sourcé dans les scripts shells.
Les variables déclarées dedans peuvent être de la forme VAR2=$HOME/toto/titi
La présence d'une variable au sein même de la déclaration de VAR2 ne pose donc aucun souci.

Mes ennuis arrivent lorsque je veux utiliser ce même fichier de configuration dans (…)

bonjour,

Je cherche comment faire un menu interactif sous perl.

menu simple en mode text qui avec les fleches curseurs permet de monter ou descendre une barre en sur brillance sur le choix du texte et une fois le texte choisie en appuyant la touche enter execute une commande.

Ex:

- choix 1
- choix 2
- choix 3
faite un choix

avec une barre blanche en inversion video change le texte qui est de couleur blanche en noir

En (…)

Bonjour,

J'ai un petit probleme
Voila, mon programme ci-dessous cree une frame avec 4 boutons.
Le premier (globale option) quand il est active, il active les 3 autres, sinon on active manuellement les 3 autres.
Puis selon les choix, le bouton exec prend en compte les choix et ouvre des fenetres xterm selon les choix.

Mais le probleme tous les choix sont manuels.
Quelqu'un a une solution ?
Je vous remercie d'avance.


#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::FileSelect;
(…)

Bonjour à tous;

Estce-ce que quelqu'un peut me donner des infos (bugs, succes, compatiblité avec d'autes langages) sur bugzilla svp!

Merci.

Bonjour,

Toujours newbie sur PERL, j'aimerais mesurer la taille d'un fichier et que le programme s'arrête si le fichier dépasse 100ko.


#!/usr/bin/perl -w
open(FICHIER, "/var/adm/attach.txt") || die "$!";
$taille=;
close (FICHIER);
if (-s100 $taille) {
die;
}
print "Le fichier est plus grand que 100ko\n" ;


Bonjour,

Je suis newbies en PERL. J'essaie de contruire un eptit script qui sortirait le pourcentage de l'utilisation des disques. Mon soucis c'est que mon script donne la ligne en entière et non pas la liste du champ désiré.
Voici mon script :

#!/usr/bin/perl -w
@disque=` df -h`;

foreach (@disque)
{print @disque[2]);
}



Merci de votre aide

Bonjour,

je ne connais assez perl pour modifier le script cssh.
je souhaite faire la même chose que le script cssh mais avec telnet pas avec du ssh.
Je sais telnet n'est pas sécuriser, mais je n'ai pas le choix.

Quelqu'un peut il m'aider a adapter ce script pour faire du telnet au lieu du ssh ?
Ci-dessous le script. Merci d'avance pour toutes réponses.

#!/usr/bin/perl

my $VERSION = '$Revision: 3.19 $ ($Date: 2006/07/24 19:12:54 $)';

# Now tidy it (…)

Bonjour bonjour,

je patauge allègrement avec la gestion des accents (et des jeux de caractères en général) sous Perl.
Plus précisement, je cherche sans succès jusqu'à présent à écrire dans un fichier des chaînes saisies dans l'entrée standard, suceptibles de comporter des accents (et des cédilles, et tous autres caractères ésotériques quelquefois utilisés en français (tiens, une cédille) ).
Pour corser le tout, le script (et le fichier résultat est destiné à être utilisé sous Windows ...

Bref, si une (…)

Ma question est sans doute un peu naïve, mais je débute en PERL.

Etant parvenu à anôner péniblement trois pauvres scripts en PERL employant divers modules (dont grepmail et ses dépendances), je me demandais s'il existait un moyen de compiler statiquement mes scripts, de sorte à pouvoir les copier sur des systèmes sur lesquels PERL n'est pas installé.

Bonjour,

Je recherche un script Perl qui fasse une copie récursive (donc avec tous les sous-répertoires, et fichiers des sous-répertoires) d'un répertoire.

Idéalement, le répertoire copié pourrait-être compressé.

Je me doute que ça ne serait pas compliqué à coder, mais je n'ai pas beaucoup de temps et je n'ai donc pas envie de réinventer la roue.

Merci d'avance.

Bonjour,

Si je veux vérifier qu'une chaîne matche plusieurs regex, j'aurais tendance à faire naïvement :

if ($s =~ /toto/ && $s =~ /titi/ && ... )


Bon, trouvant ça assez laid, je ferais plutôt

foreach my $qw qw\toto tata titi\{
warn "la chaine ne matche pas $qw" and last unless ($s =~ /$qw/ );
}


L'interet principal étant que j'ai une vrai liste de conditions.

Le problème est que ça marche bien si je veux savoir si ma chaîne (…)

bonjour,

J'essaie de construire une expression qui, dans une chaine de caractere, supprime tous les motif du style \suite_de_caractere sauf les \line et \par.

Y a-t-il une regexp qui permet de supprimer des motifs sauf cas particuliers ??


merci de votre aide.

Bonjour,

Comment insérer @ dans une variable scalaire pour que ce ne soit pas pris comme un tableau ?

Exemple de code de test.pl :
#!/usr/bin/perl -w

my $chaine ="user@hostname.com";
print $chaine

message d'erreur :
$ perl test.pl
Possible unintended interpolation of @hostname in string at test.pl line 3.
Name "main::hostname" used only once: possible typo at test.pl line 3.

Merci de votre aide

Bonjour à tous !
Il y a un certain temps, j'avais utilisé ce script perl pour gérer automatiquement la vitesse des ventilateurs du CPU :
#!/usr/bin/perl -w

# Fichier de gestion de la vitesse de ventillo

$vitesse_ventil= "/sys/bus/i2c/devices/9191-0290/pwm1";

while (1) {

# Lecture de la température stockée dans $temp
$temp = `cat /sys/bus/i2c/devices/9191-0290/temp3_input`;


if($temp < 45000)
{
exec (`echo 213 > $vitesse_ventil`);
}

if($temp > 45000 and $temp < 50000)
{
exec (`echo 232 > $vitesse_ventil`);
}
if($temp > 50000 (…)

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,

je commence le perl et je dois manipuler des fichiers de points, je désire juste remplacer l'écriture "manuelle" du fichier (D:\test_perl\5_point.neu') par un choix du style parcourir...

voici le code:

open F_NEU,''D:\test_perl\5_point.neu''
or die "E/S : $!\n";
my @contenu1 = <F_NEU>;

j'ai fait un autre script avec une fenêtre et un boutton que voici pour parcourir:
sub call_open_project
{
use File::Basename;
my $neufile;
my $types = [
['Configuration Files', ['.neu','.neu']],
['All Files', '*', ],
];
$filenameNEU = $fenetre->getOpenFile(-filetypes=>$types); }

(…)

bonjour,

je voudrais enlever tous les caracteres non alpha-numriques en debut de chaine SAUF les parentheses.

Comment cela est-il possible ?

$chaine =~ s/\W+//g permet d'enlever ces caracteres non alpha-numriques , mais comment ignorer les parentheses ?


merci de vos reponses.

Bonjour,

Je suis en train de créer un petit script perl qui récupère différents paramètres sur mes cartes réseaux. Je rencontre un peu de difficultées à trouver la bonne structure de donnée pour stocker ces différentes informations.
Les contraintes sont :
- je ne connais pas le nombre ni le nom des interfaces réseau, je dois donc le stocker
- je ne connais pas le nombre et le nom des options, ni leurs valeurs.
Je recherche donc un moyen de (…)

Salut à tous, Voilà des jours que je bloque sur Perl. Je suis un piètre programmeur et je me suis mis à Perl voilà 2 semaines, et je galère comme pas possible. Mon script doit extraire la pièce jointe du dernier mail arrivé dans une boite IMAP. Je dois pas en être loin, puisque mon script arrive à afficher le contenu du message grâce au module IMAP:Talk. Le problème, c'est qu'ensuite j'essaye de passer le message au module Attachment::stripper. Celui (…)

bonjour à tous,

je migre actuellement des scripts en /bin/bash vers du Perl.

ma problématique est la suivante :
dans tous les scripts en /bin/bash j'ai une première ligne qui me permet d'appeler un fichier de configuration via la notion de source (dot 'nom du fichier de config' )

ex:

#!/bin/bash

. /etc/mon_appli/appli.conf

avec dans /etc/mon_appli/appli.conf des variables mais surtout des instructions du genre :
umask 'u=rw,g=rw,o=r' ou bien
export PATH=/usr/local/bin:/usr/local/sbin:$MYAPPLI_HOME/bin:$PATH

le problème est que je veux faire cohabiter ce (…)

Bonjour, je suis en train d'écrire un petit script m'aidant à générer de la doc
J'ai ça : - from_external p:NATIVE_ARRAY[CHARACTER] <-
ça me rend : //* Syntaxe,Header : := from_external_copy <p>

J'ai écris pour cela le bête code :

#!/bin/perl


use strict;
my $res;
while (my $line = ) {
   if ($line =~ /\s*-([\w\s_:,\[\]]+)<-/) {
   # C'est une ligne de def de slot
   $res = $1;
   $res =~ s/([\w_]+)(\s*:[A-Z_\]\[]+)/<$1>/g;

   print " //* Syntaxe,Header : (…)

Hello,

J'ai un problème bizarre (pour moi en tout cas).

Voila un script perl minimaliste, qui tourne sous apache 1.3:

#!/usr/bin/perl

print "Content-type: text/html\n\n";

require LWP::UserAgent;

my $ua = LWP::UserAgent->new;

 my $response = $ua->get("http://google.com");

 if ($response->is_success) {
     print $response->content;  # or whatever
 }
 else {
     print $response->status_line;
 }

(désolé pour les - > je ne vois pas comment les afficher dans le code...)

Il se connecte juste à google et affiche la page, sans subtilité aucune.

Ça marche (…)