Forum Programmation.perl Pb entre version 5.005 et V 5.6.1

Posté par .
Tags : aucun
0
27
sept.
2007
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 (...)

Forum Programmation.perl envoyer un courriel en perl

Posté par .
Tags : aucun
0
25
sept.
2007
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();

Forum Programmation.perl menu interactif

Posté par .
Tags : aucun
0
5
sept.
2007
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 (...)

Forum Programmation.perl Substitution de variables

Posté par .
Tags : aucun
0
29
août
2007
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 (...)

Forum Programmation.perl Checkbutton

Posté par .
Tags : aucun
0
28
août
2007
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;
(...)

Forum Programmation.perl Mesure de taille de fichier

Posté par .
Tags : aucun
0
9
août
2007
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" ;

Forum Programmation.perl extraire un term d'une colone dans un tableau

Posté par .
Tags : aucun
0
9
août
2007
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

Forum Programmation.perl adaptation cssh en telnet

Posté par .
Tags : aucun
0
3
août
2007
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 (...)

Forum Programmation.perl Accents : argggh ...

Posté par .
Tags : aucun
0
19
juil.
2007
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 (...)

Forum Programmation.perl compiler statiquement un script PERL

Posté par .
Tags : aucun
0
17
juil.
2007
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é.

Forum Programmation.perl Script de backup d'un répertoire

Posté par .
Tags : aucun
0
3
juil.
2007
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.

Forum Programmation.perl Caractère special "@"

Posté par .
Tags : aucun
0
19
juin
2007
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

Forum Programmation.perl Amélioration d'un script de gestion de la vitesse des ventilateurs.

Posté par .
Tags : aucun
0
9
juin
2007
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 (...)

Forum Programmation.perl Liste de conditions

Posté par (page perso) .
Tags : aucun
0
6
juin
2007
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 (...)

Forum Programmation.perl parcourir

Posté par .
Tags : aucun
0
21
mai
2007
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); }

(...)

Forum Programmation.perl structure de donnée

Posté par .
Tags : aucun
0
15
mai
2007
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 (...)

Forum Programmation.perl expression rationnelle particuliere

Posté par .
Tags : aucun
0
10
mai
2007
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.

Forum Programmation.perl extraction de pièce jointes sur boite IMAP

Posté par .
Tags : aucun
0
3
mai
2007
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 (...)

Forum Programmation.perl Récupérer des captures multiples

Posté par (page perso) .
Tags : aucun
0
27
avr.
2007
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 : (...)

Forum Programmation.perl source shell

Posté par (page perso) .
Tags : aucun
0
13
avr.
2007
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 (...)

Forum Programmation.perl LWP: Comportement différent CGI/ligne de commande

Posté par (page perso) .
Tags : aucun
0
6
mar.
2007

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 (...)

Forum Programmation.perl Mini Proxy HTTP

Posté par (page perso) .
Tags : aucun
0
20
fév.
2007
Je cherche un mini proxy HTTP, du genre de celui-ci : http://lab.erasme.org/proxy/index.html pas besoin de fonctionnalités additionnelles genre cache, filtre, ... Quelque chose de simple.

Mais avec ce script, la connexion est vraiment très lente, quelqu'un connaitrait-il un équivalent qui soit performant ? Ou la raison pour laquelle ce script est si lent ?

Merci.