Hi all,

Je commence à apprendre Perl et je suis vraiment "séduit" par le côté inhabituel de ce language (de cette langue plutôt, non ?). Je vous propose donc de m'aider à continuer mon apprentissage tout en sauvant le monde des abominables logiciels propriétaires... :)

Voici ce que je pense être assez instructif et intéressant pour la communauté.
Le protocole Jabber incarne le protocole ouvert pour la messagerie instantanée.
Ce protocole est prévu pour être extensible. De plus, la plupart (…)

Bonjour,
Je suis novice en langage Perl! et je ne me m'en sort plus!!!!
j'ai un problème avec un script en perl sous windows. Il utilise le module Expect.pm pour envoyer un telnet sur un cisco, mais lors de l'exécution il me fait des erreurs du genre:


Can't locate loadable object for module IO::Tty in @INC (@INC contains: . C:/Perl/perl/lib C:/Perl/perl/site/lib .) at C:/Perl/perl/lib/IO/Tty.pm line 29
Compilation failed in require at C:/Perl/perl/lib/IO/Pty.pm line 7.
BEGIN failed--compilation aborted at C:/Perl/perl/lib/IO/Pty.pm line (…)

Bonjour,

en cherchant comment je pouvait avoir une base de donnée locale pour pouvoir indexer et fouiller mes pdf, je suis tombé la dessus:
http://www.linuxjournal.com/comment/reply/6652(...)

En bref, ça explique comment configurer swish pour faire justement ce que je veux. Ça a l'air de marcher assez bien, sauf un petit détail: le programme utilise un petit script perl permettant de convertir les pdf en xml pour l'archivage:

#!/usr/bin/perl -w
use pdf2xml;
my @files =
`find /home/alf/Travail/Biblio -name '*.pdf' -print`;
for (@files) (…)

Bonjour,

Système d'exploitation utilisé : Windows 2000
Version de Activeperl : 5.6.1.638
Version de ppm : 2.2.0

- j'utilise ppm pour installer des modules perl suplémentaire
mais lors de l'installation, il ne trouve le fichier "ppd" du package.

- Je fais alors une recherche avec la commande "search" mais il n'arrive pas à ce connecter sur un serveur du genre : ppm.activestate.com\ ....

- Comment puis-je installer ces modules suplémentaire?
- La commande "search" utilise t'elle le port 80 pour (…)

J'ai trouver un module en perl que je n'ai pas trouvé en shell mais je n'ai pas d'autre choix que de lancer mon programme en shell.

Ma problématique est maintenant d'exporter une variable de perl vers le shell.

Est-ce possible ?

Merci :-)

Bonjour,

je suis en train d'essayer de configurer Bugzilla, et j'ai une question. Chaque fois qu'un utilisateur rentre un Bug, il a la possibilité de choisir à qui l'assigner. C'est le comportement par défaut. J'aurais souhaité qu'un simple utilisateur ne puisse pas choisir ca, mais que ce soit limité à des admins du bugzilla (je pensais que les groupes pouvaient m'aider). J'ai chercher sur Google mais je n'ai rien trouvé (mes connaissances en Perl sont limitées). Et ca doit se (…)

autamatique du langage médical".

le professeur, nous a confié un projet en perl, le programme doit faire appel à un script.bat.
notre problème c'est qu'on ne sais pas comment appeler un script (.bat) à l'interieur d'un programme perl, où bien comment on peut mettre les lignes du script dans le programme perl!!
rmq: le script dont je parle est une suite de commande qui permet d'exploiter un logiciel OpenSource " UNITEX" pour le traitement et la recherche des _expression dans (…)

Salut forum,
j'ai récemment développé un chtit programme en perl/Gtk2 que je sortirai prochainement, il sert à réduire facilement un lot d'images, si on veut les mailer par exemple (développé à l'origine pour un néophyte).

Problème n°1 : Le programme marche nickel, mais j'aimerais intégrer la gestion des langues dedans. Comme en plus j'utilise glade, je suppose qu'il faut fusionner les .po du fichier glade et du script perl. Cela dit, j'ai vu deux trois tutoriels en C, mais je (…)

Grmpf! Il y a des clients mail windows qui ne suivent pas la RFC 1522 (quelle surprise, me direz-vous), et ça donne des sujets de mail imcompréhensible pour
- le module MIME::WordDecoder de perl
- le logiciel ripmime

Par exemple, voici un extrait de mail reçu:
...
Subject: Avis de =?windows-1252?Q?r=E9ception_d=27un_paiement=5D?=
...

Pour les "=E9", "=27" et "=5D", pas de problèmes, c'est standard. Mais comment gérer le "?windows-1252...", en perl de préférence ?

Bonjour à tous.

Je suis en train de faire un p'tit script perl pour ajouter facilement des alias dans le fichier ~/.bash_alias. Pour éviter que l'utilisateur n'entre n'importe quoi, je voudrais contrôler la syntaxe de l'alias entré par une regexp.

Le pattern est donc le suivant : nom_sans_espace='des commandes'

Je n'arrive pas à créer la regexp correspondante. Vous pouvez m'aider ?

Merci :)

Bonjour,
J'amerais convertir un flux ISO-8859-1 en UTF-8 en perl... sans devoir passer par de fichiers ? y a-t-il un moyen ?
Je travaille avec perl 5.8.7, je reçois un flux en ISO-8859-1 et j'aimerais le convertir en UTF-8.
Je ne trouve pas de moyens à part en écrivant des fichiers, ce que j'aimerais éviter...
Y a-t-il des posibilités ? Quelqu'un peut m'aider ? Y existe-t-il des exemples ? Comment savoir le format du flux que j'obtiens ?
merci d'avance.
(…)

Bonjour,

Cela fait quelques temps que je navigue sans résultat sur le CPAN à la recherche de la fonctionnalité suivante : Avoir la liste des dépendances d'un module et ceci de manière récursive (exemple pour le module CGI::Builder::Session j'aurais les dépendances CGI::Builder et CGI::Session qui elles mêmes me donneraient récursivement CGI, POE ... et ainsi de suite jusqu'aux modules les plus élémentaires).

J'ai besoin de cette fonction afin de récupérer tous les modules utilisés par mon application pour l'installer sur (…)

Bonjour à tous,

Je programme actuellement un script perl sur un linux embarqué. Je suis sur une plateforme ARM. Le script perl que je programme fait appel à une dizaine de modules (pm) que j'ai créer. Le script perl permet de lancer différents traitements sous forme de threads. Je souhaiterai lancer une trentaine de threads. Or étant sur un linux embarqué, je dispose que de 16Mo de mémoire (extensible à 32Mo). Mon script perl de base contient l'ensemble des bibliothèques (…)

Rebonjour!

je voudrai créer un fichier perl pour pouvoir récupérer des fichiers d'un serveur et les mettre dans un autre.

je vous explique plus en detail:

mon objectif c'est de transférer de maniere automatisée et périodique des fichiers qui se trouvent sous un répértoire donné d'un serveur windows vers un serveur linux ce qui alimentra la base de donnée se trouvant dans celui ci.
Nous disposons dans notre exemple que 4 serveurs, A, B, C, et D.
le serveur A (…)

Bonjour, je voudrais mettre en place un script qui incrementerais
sur des lettres.

Du genre:

aaaa, puis aaab puis aaac, ... , aaaz, aaba, aabb, aabc.

Je ne trouve pas trop comment faire ça, et de plus je suis
tout nouveau dans le monde du perl (d'aujourd'hui en fait)

Merci d'avance...!!

Bonjour,

J'essaie de trouver les correspondance à $var, qui se trouve
à la fin de chaque ligne d'un tableau:


if ( $etchosts[$i] =~ $var$ ) {
print $&
}


et il me retourne une erreur.


Scalar found where operator expected at /root/equip line 31, near "$var$ )"
(Missing operator before $ )?)
syntax error at /root/equip line 31, near "$var$ ) "
syntax error at /root/equip line 38, near "}"


ça me bloque pour bien debuter en perl...!

Salut, mon problème est le suivant:

je programme un petit logiciel de gestion en Perl, avec une interface graphique Tk et une base de donnée MySQL (via Tk, j'ai des onglet qui représente des entrées de formulaire avec des listes déroulantes de choix existants dans la base uniques, et des autos complétions pour le texte ainsi que des vues et tout ce qui va bien avec MySQL et Tk...), mais:

lorsque je rentre une donnée comportant un accent via mon (…)

hello,

je suis bien conscient que mon titre ne veut pas dire grand chose, je vais mieux expliquer.

Mon code (simplifie) ressemble a ca:


my $variable;
my $v = "variable";

eval "\$$v = 42";

print "$variable\n"; #je voudrais avoir 42


En gros, j'ai une variable qui a un certain nom ($variable), une autre qui contient le nom de la premiere variable ('variable') et je veux pouvoir utiliser $variable a partir de son nom simplement, donc partir de $v.

C'est donc (…)

Hello vous tous :)

voila bon je sais ca doit être la 120 ième question du genre,
mais j'ai des souci avec le module Apache::ParseLog ( http://search.cpan.org/~akira/Apache-ParseLog-1.02/ParseLog.(...) )

je cherche à récupérer les log des fichier pour les stoké dans une BD.

j'ai donc installer le module avec perl MakeFile.pl
make
make test
et sudo make install

jusque là, pas de pbm.

ensuite je prend un de leur exemple que je test.
et paf ca marche pas
$transferlog = $base->getTransferLog(); (…)

Bonjour a tous

Je cherche comment faire en script perl une connexion a une base oracle et récupérer dans une table a un champ précis son contenu,
l'écrire dans un fichier txt puis écrire OK dans la table a un champ précis

nom base = ma_base
login = moi
pass = Cmoi
table = toto
champ = tata (pour la lecture)
champ = titi (pour l'ecriture)

Je ne connais pas assez le perl, car je l'apprends en ce moment.

voici (…)

Bonjour, j'ai un petit problème avec les reg-exp...
Je cherche à remplacer tout les espaces contenu entre 2 quotes.

par exemple j'ai une chaine a='hello "every body".linux "is great"'
après le remplacement avec un %20 par exemple, cette chaine devrai etre :
'hello "every%20body".linux "is%20great"'

Bonjour,

Je débute en Perl, alors je demande a ceux qui ne le sont pas d'être indulgent.

Voila, je cherche comment faire une redirection des erreurs de mon script vers un fichier log.

voici un exemple de mon script:

!/usr/bin/perl -w

open (F,'<intf.pl') || die "Probleme d'ouverture : $!" ;

my $i=0;

while (my $ligne = ) {

$i++;

}

print "\n\011Nombre de lignes du fichier $F : $i \n\n";

###################

ce que je souhaite, le message "Probleme d'ouverture" soit écrit (…)

Salut,

Voila j'essaie de modifier une balise input read-only ( bis ), qui est normalement
modifier par du javascript avant envoie au serveur, mais j'obtiens le message d'erreur
suivant :

Input 'LAST_REP_PRINT_NONE' is readonly at test2.pl line 14

heum, la methode utiliser pour l'envoie est post. Donc si je ne me trompe pas il faut soit que je fasse les modif en amont de l'envoie, via un proxy, cela commence a faire lourd, soit trouver une methode beaucoup plus simple (…)

J'ai une toute pitite question, si quelqu'un pouvait m'aider,
ça m'aiderais bien...!

je fais un script pour recuperer des infos sur des equips reseau
et les coller dans un fichier en XML.

La partie collecte d'info ressemble à ça:

#!/usr/pkg/bin/perl -w

use SNMP ;

#$ENV{'MIBS'}="ALL"; #Load all available MIBs
$SNMP_TARGET = "$ARGV[0]";
$SNMP_COMMUNITY = "decK550";

$SESSION = new SNMP::Session (DestHost => $SNMP_TARGET,
Community => $SNMP_COMMUNITY,
Version => 1);

$LISTMIB = new SNMP::VarList(
['sysLocation'], #0
['sysName'], #1
['sysDescr'], #2
['sysUpTime'], #3
(…)

voilà je suis perdue, j'ai besoin d'aide!!! j 'ai créé un formulaire d'enquete sur le logiciel modalisa. j'ai ensuite téléchargé sur mon serveur distant le fichier HTML du formulaire et un scripte cgi (vers lequel le bouton d'envoi du formulaire pointe)placé dans le repertoire cgi-bin. ça marche pas!!
détails du fichier .pl placé dans le repertoire cgi-bin :

#!/usr/bin/perl

if($ENV{'REQUEST_METHOD'} eq 'POST')
{
read(STDIN, $Data, $ENV{'CONTENT_LENGTH'});

# "modarep_perl.txt" est le nom du fichier dans lequel les réponses sont enregistrées
# (…)