regexp multi et uni ligne(0 réponse(s)) 18/02/2010 21:02:51 Bonjour
J'essaie de rendre une ancienne application compatible Perl 5.10
L'application fait souvent appel à $* pour avoir des regexp multi-lignes. La
plupart d'entre elles sont corrigées. Mais il me reste des appels à 2
fonctions pleines de regexp qui s...
Impossible d'ancrer àgauche le prompt de Net::Telnet(0 réponse(s)) 11/02/2010 14:36:43 Bonjour.
Je souhaite ancrer le prompt de Net::Telnet à gauche et à droite pour
éviter la fin prématurée du listing quand il contient le prompt.
Mon prompt est '>' mais le problème est le même si je le change pour
autre chose.
my $conn = new Net::Telnet (
...
questions sur définitions de routines(2 réponse(s)) 10/02/2010 18:41:30 Bonjour,
je cherche à utiliser un module dans le cadre d'un script perl qui
fonctionne déjà.
Je n'ai pas développé ce module et il n'est pas référencé au CPAN..
L'exécution d'une des fonctions de ce module s'interrompt car les
fonctions
&fatal et &error q...
Parsing "simple" de MBOX Unix(0 réponse(s)) 10/02/2010 09:57:28 Bonsoir,
Suite à mon préécédent message, j'ai essayé de comprendre comment
fonctionnent les modules Mail::Box::Mbox, et Mail::Box::Mbox::Message
Ca a l'air de faire des milliers de choses mais pas ce que je cherche
très simplement :
- itérer une mbox
- po...
"Embarquer" des perlmods dans une application.(5 réponse(s)) 09/02/2010 16:21:29 Bonjour, je dois écrire une petite appli sous MacOSX pour traiter des
fichiers MBox
Pour cela, je pars d'un petit outil quis s'appelle DropScript
(). Je l'ai utilisé pliseurs fois avec
satisfaction pour des scripts shell.
...
dfportable(0 réponse(s)) 09/02/2010 14:34:27 bonjour,
je me demande s'il est possible à partir d'une station windows de récupérer
la taille d'un filesystem distant sous unix avec la commande "dfportable" de
"Filesys::DfPortable".
la doc donne :
my $ref = dfportable("/tmp", 1024); # Display ou...
Perl => Optimisation afin de limiter les requetes(6 réponse(s)) 29/01/2010 04:55:15 Bonjour,
je cherche a optimiser un peu un de mes vieux scripts.
J'ai donc un script qui mets a jour une base de donnée,
je prends un fichier logs, je le lis ligne par ligne et a chaque
ligne je fait une requete sql de type:
$query5 = "UPDATE $Table_Logs_S...
Les scripts perl(5 réponse(s)) 25/01/2010 12:23:36 Bonjour tout le monde,
En ce moment ?tudiant en traductique, j'ai commenc? ? apprendre les
langages de perl et des scripts, mais je suis pas tr?s tr?s dou? pour
le langage de programmation et qui fait que j'ai du mal ? comprendre
quelques exercices. Aurie...
Quand met-on des parenthèses?(6 réponse(s)) 16/01/2010 12:56:43 Bonjour à tous,
veuillez pardonner cette question de novice, mais je n'ai jamais su, depuis
le temps que je fais du perl, quand est-ce qu'on met des parenthèses de
quand est-ce qu'on ne les met pas? Par exemple, quand j'étais jeune j'ai
appris que la s...
pod doc et traductions(1 réponse(s)) 14/01/2010 09:24:54 bonjour
j'ai un code perl sous unix qui est documenté en pod (inclus à la fin du fichier), ce qui me permet
- via Pod::Usage de répondre aux options de ligne de commande -h --help
- de générer des pages man via pod2man
- de générer des pages web via pod2h...
BUG Linux::Inotify2(3 réponse(s)) 11/01/2010 21:37:50 Salut,
Je viens de mettre à jour Perl (5.10.1) et Linux::Inotify2 (1.21), et
j'ai un joli bug. Le programme suivant me donne systématiquement un
"stack smashing detected" dès que je lui envoie un signal HUP :
use strict;
use warnings;
use Linux::Inoti...
CH module de gestion de PKCS(4 réponse(s)) 07/01/2010 12:20:28 Bonjour
Je cherche à signer un document avec un certificat selon le standard
PCKS7 avec un clé publique sous win XP.
Je n'ai pas pu installer Crypt-OpenSSL-PKCS12 qui m'intéressait, le
Make.PL ne me semble pas fonctionnel dans sa version windows et assez...
MIME::Lite - Smtp = IP(1 réponse(s)) 06/01/2010 09:00:59 Bonjour,
Bonne année à tous et meilleurs voeux 2010.
J'ai un étrange problème d'envoie d'emails en Perl. J'utilise le
module MIME::Lite qui fonctionne à merveille. Mais j'ai toujours eu
l'habitude d'utilise une adresse smtp du type smtp.domaine.com. Pour
...
Acces exclusif a un fichier(1 réponse(s)) 02/01/2010 18:13:31 Bonjour,
J'ai bien lu section sur le file locking (et les flags de sysopen) dans
perlopentut, mais ça ne résoud pas mon problème : en fait, je veux
m'assurer que je n'ouvre pas un fichier (r/o), pendant qu'un autre
processus l'a ouvert en r/w. Tous les es...
conflit entre autodie et le pragma open ?(0 réponse(s)) 30/12/2009 22:49:29 Bonjour,
Considérons le script suivant :
use warnings;
use open IO => 'utf8';
my $string = "abc\xA0\n";
open my $good_fh, '>', 'good';
use autodie 'open';
open my $bad_fh, '>', 'bad';
print $good_fh $string;
print $bad_fh $string;
close $good_fh;
close $b...
profilers en perl(1 réponse(s)) 29/12/2009 23:59:25 cherche retour d'experience sur les profilers perl, entre autres d'autres
que celui qui est livre avec (Devel::DProf). La j'ai un programme sur lequel
il s'avere un peu inefficace... 15 minutes d'execution du programme, un
tmon.out de 1.3G, et la, j'ai mo...
Perl et rc scripts(1 réponse(s)) 28/12/2009 12:58:39 Bonjour,
J'ai un petit problème avec un démon perl que je lance par un startup
script : s'il se lance correctement, se met en arrière plan, et fait
bien son boulot, les commandes status et stop sont inopérantes.
Mon rc-script est basique et conforme au ha...
commande dos...(4 réponse(s)) 10/12/2009 12:21:25 bonjour,
j'utilise les commandes 'dos' dsquery et dsget pour récupérer les infos dans
un ad microsoft.
---
$cmd='dsquery group DC=groupe-ufg,DC=com -limit 0';
my $groupes=qx/$cmd/;
my @groups=split /\n/,$groupes;
for my $thisGroup (@groups) {
printf ("%...
File::Spec->abs2rel renvoie parfois un chemin absolu...(7 réponse(s)) 23/11/2009 17:27:58 Bonjour,
Je suis parfois surpris par le résultat renvoyé par abs2rel() de
File::Spec::Functions. Par exemple :
abs2rel('/', '/')
renvoie '/' alors que je m'attendrais plus à '.' en fait. ('/' n'est pas
ce que j'ai l'habitude d'appeler un chemin relatif, e...
la portabilite en perl(0 réponse(s)) 22/11/2009 14:27:04 On en a parle de nombreuses fois recemment.
Je n'avais pas fait gaffe qu'il s'etait rajoute, il y a assez longtemps,
une documentation la-dessus dans le coeur de perl.
Un petit coup de
perldoc perlport
donne pas mal d'infos utiles et pertinent...
enlever des caractères après un test(10 réponse(s)) 21/11/2009 06:36:44 bonjour,
voilà dans un fichier texte, j'ai plusieurs occurrences d'une chaîne
de caractères que je vais simplifier par "toto".
Après "toto", il y a parfois une numérotation entre parenthèses comme
suit:
[texte]
toto(1.34)
[texte]
bien sûr, la numérotation...
multi-thread : peut-on compter dessus ?(10 réponse(s)) 20/11/2009 01:25:39 Bonjour,
Est-ce que de nos jours on peut s'attendre à ce que le Perl présent sur
la plupart des Unix supporte le multi-threading (il me semble que c'est
une option de compilation) ?
Si j'ai bien compris, sous Windows, Perl est toujours compilé en version
...
prob sur regexp(15 réponse(s)) 18/11/2009 15:06:44 Bonjour à tous.
Dans le cadre d'une application manipulant un protocole réseau, je
dois splitter une trame comme suit.
exemple :
bonjour, comment ça va?{ETX}XJe vais bien. Et toi ?{ETX}X{ACK}{NACK}
Je doit splitter comme ceci:
phrase1: bonjour, comment ça...
Substitution paramétrable(3 réponse(s)) 14/11/2009 12:04:38 Bonjour,
Dans un script, j'ai une séquence du type :
s/([abc]+) *([abc]+)/$2 - $1/gi;
Ici, "a b" donne evidemment "b - a"
Mais si j'écris pour paramétrer le second membre :
my $a='$1';
my $b='$2';
s/([abc]+) *([abc]+)/$b - $a/gi;
le $1 n'est reconnu que c...
exists pour une méthode ?(5 réponse(s)) 09/11/2009 14:14:37 Bonjour,
Au sein d'un script, j'ai besoin de tester l'existence d'une méthode
d'un objet.
J'essaye avec exists() mais quelles que soient mes tentatives, j'ai
toujours:
exists argument is not a subroutine name at lib/GA/DBI.pm line 35.
Est-il possible de...
Multiplication en Perl ?(3 réponse(s)) 06/11/2009 05:13:05 Bonjour,
Je cherche le moyen de faire une multiplication sous perl:
J'ai une variable: $num1='0,0124'
Je veux la multiplié par 1,1 afin d'avoir le resultat 0,0136
dans la variable $num2
Je sais pas comment faire ;=) tout comme, 0,0124 * 1,1 donne
0,01364,...
Utiliser des constantes comme clés de hachages(4 réponse(s)) 05/11/2009 00:49:00 Bonjour,
Y a-t-il moyen d'utiliser une constante (définie avec use constant)
comme clé d'un hachage ? J'ai l'impression que Perl va toujours
transformer un "bareword" en chaîne dans ce contexte et que c'est donc
impossible. J'ai manqué quelque chose ?
Le ...
Usage de Image::Magick(3 réponse(s)) 04/11/2009 11:25:42 Salut,
Quelqu'un arrive t-il à utiliser sous Windows le module
Image::Magick ? Après son installation sous activeperl 5.8 ou 5.10,
j'obtiens un beau message de ce type :
perl -MImage::Magick -e"" =>
Can't load 'C:/Perl/site/lib/auto/Image/Magick/Magick....
Supprimer un caractère d'une chaine(7 réponse(s)) 03/11/2009 17:33:06 Bonsoir,
J'ai besoin d'un petit conseil :
J'ai une chaine de caracteres:
$test='abcdefgh'
Comment je peux faire pour supprimer un caractere, le dernier
afin que cela devienne:
$test='abcdefg'
Merci d'avance
...
probleme de debugger(8 réponse(s)) 27/10/2009 13:01:49 J'ai un bout de code qui recupere les exceptions a coup de
eval {....die ...};
if ($@) {
...
die ... # rethrow
}
probleme: comment debugguer tout ca ?
j'aimerais bien que perl -d me montre une stack trace a l'endroit du
premier die...
...
[regex] sur http...(5 réponse(s)) 21/10/2009 11:07:39 Bonjour,
J'ai des urls de ce type :
http://@ip/blabla
ou http://@ip:port/glouglou
Je n'arrive pas (hou!!!) à extraire @ip en une ligne regex.
Merçi de votre aide.
...
system() et open() (pipes) sûrs et portables(12 réponse(s)) 18/10/2009 02:26:01 Bonjour,
system() existe, si je comprends bien, sous deux formes essentiellement
différentes du point de vue de la sécurité : celle qui fait
potentiellement appel à un shell (l'argument est un scalaire ou une liste
à un élément), et celle qui ne fait jama...
CMS en perl(3 réponse(s)) 15/10/2009 00:40:22 Bonjour,
Je cherche un CMS (communauté assez active) en perl dans lequel je peux
ajouter mon propre code .
En fait, principalement, il y'aura une page d'authentification et
traitement de fichiers XML.
J'en ai vu qques-uns :
-Bricolage
-Webgui
mais ils n...
parcourir ligne 4A==ligne un fichier contenu dans une variable scalaire(10 réponse(s)) 06/10/2009 12:21:05 Salut,
j'ai un fichier qui est déjà chargé dans une variable scalaire $file. Je
souhaite y accéder ligne à ligne.
Comment que c'est-y qu'on fait?
...
Problème de références(10 réponse(s)) 28/09/2009 16:01:34 Bonjour,
Étant débutant en références PERL j'ai quelques soucis.
Mon programme explore un fichier xml de généalogie (gramps).
Je cherche à créer des rapports qui n'existent pas dans le programme de
base.
Dans le cas présent je cherche à créer un rapport q...
Modules àla mode pour lire/écrirede l'XML(4 réponse(s)) 20/09/2009 21:15:55 Bonsoir,
Je dois lire, modifier et réécrire des petits fichiers de paramètres
(ils contiennent ce qu'on pourrait mettre dans un fichier *.ini, par
exemple) en XML. Je n'ai pas de DTD.
Quels modules Perl sont actuellement à la mode pour ce genre de...
Installation de Tie::CSV File(3 réponse(s)) 18/09/2009 14:28:54 Bonjour,
Après avoir essayé pendant quelques heures d'installer Tie::CSV_File, je
me heurte à des erreurs qui me dépassent...
Le problème que me sort le make test est le suivant :
Can't locate object method "parse" via package "quote_char" (perhaps you...
conseils - dev web + ldap(3 réponse(s)) 18/09/2009 10:41:33 bonjour,
j'ai besoin d'une petite appli web permettant à des gens de changer
leur mot de passe "dans" un serveur ldap.
est-ce que vous connaîtriez quelque-chose de tout fait (en perl,
évidemment) qui permet de faire ça (et juste ça) ?
sinon, je pense le f...
comprimer les lignes(1 réponse(s)) 11/09/2009 23:22:48 J'essaye d'adapter ce petit script afin qu'il considère la ligne vide
comme la fin du premier bloc.
Je vous prie de m'aider.
use strict;
use warnings;
my @ar = [];
my $i = 0;
while () {
chomp; next if !length();
if (/^\s*&\s*$/) {
...
Perl + Merchanize et Proxy WWW avec modification a la volee ?(3 réponse(s)) 08/09/2009 14:24:54 Bonjour,
Une petite question qui me trotte
J'utilise regulierement le module Merchanize ..
et l'outils qui est livré avec "logger.pl" qui
fait office de proxy pour voir les formulaires.
Je me demandais si on pouvait bricoler lce petit proxy
(ou en faire u...
Problème DBI (source ODBC)(2 réponse(s)) 03/08/2009 17:17:57 Bonjour,
Hello,
J'ai un problème pour faire un SELECT sur une source ODBC, ça
fonctionne parfaitement en PHP mais pas en perl ?
Voici mon script (à peu près) :
> use DBI;
> $dbh = DBI->connect('dbi:ODBC:' . $dsnname, $dbuser, $dbpwd) or...
> $sth = $dbh->...
principe de moteur de recherche(5 réponse(s)) 01/08/2009 14:51:42 Bonjour,
Je ne sais pas trop comment rechercher une librairie qui me permette
la chose suivante :
- je fourni un texte ($input)
- je fourni une table $hash de ce style : {key1 =>Array('val1', 'val1
bis'), key2 =>Array('val2', 'val2 bis')}
Et ensuite la ...
do you like a jus(0 réponse(s)) 31/07/2009 21:36:41 Some day ago I am register on a site of energy juice. The commands
(orders) which I make brings back(reports,relates) to me. I would like
to share it to everybody. For example on a command(order) of 2 nobody
at 120 pv I receive 50 $ of committee(commissio...
Could not connect to database: Access denied for user....(16 réponse(s)) 21/07/2009 16:20:10 Bonjour,
Je suis bloqué sur une erreur depuis quelques jour.
Je me connecte à une base de données mysql. J'ai le message d'erreur
suivant :
"DBI connect('articom;ns366702.ovh.net','articom',...) failed: Access
denied for user ''@'ns366702.ovh.net' to data...
Incompatibilité Text::Iconv et Dynaloader sous jaunty(5 réponse(s)) 17/07/2009 08:31:00 Bonjour,
J'ai récemment installé un serveur ubuntu 9.04 et j'y ai uploadé un
script qui marchait à merveilles sous hardy et intrepid.
Cependant, sur le nouveau serveur, lorsque je lance le script,
j'obtiens l'erreur suivante :
Text::Iconv object version 1...
ensemble pour découvrir la vérité(2 réponse(s)) 06/07/2009 13:32:32 La Vraie Religion
Quelle est la vraie religion de Dieu ?
Chaque personne naît dans des circonstances qui ne dépendent pas de sa
propre volonté. La religion de sa famille ou l'idéologie d'état est «
projetée » sur elle, malgré elle, dès les premiers instan...
récupération de Data::Dumper(3 réponse(s)) 01/07/2009 17:01:02 bonjour,
existe-t-il un paquet qui me permettrait de récupérer un objet dumpé
avec Data::Dumper directement ?
un petit exemple :
dans un script, je fais un 'print FH Dumper($structure);'
dans un autre script, j'aimerais bien pouvoir faire un truc du genre...
propriétés exactes des balises \Q \E ? (1 réponse(s)) 01/07/2009 11:09:06 Bonjour
J'utilise fréquemment ces balises dans mes regexp perl pour protéger mes
variables de l'interprétation de caractères spéciaux lors d'une évaluation.
Par exemple je souhaite trouver le pattern '* element1' dans la liste
('* element1' , '* element...
Market Study on a Free Software e-training project.(0 réponse(s)) 14/06/2009 13:10:21 This poll concerns more specifically the french community within this
group. Due to specific restriction and law, training in France could
not allow a foreigner to register unless for enrollment as a
physical person.
Moreother, trainings are written in fr...
Ouvrir fichier pdf dans widget Tk(6 réponse(s)) 09/06/2009 13:53:19 Bonjour,
Savez vous comment ouvrir un fichier pdf dans un widget Perl/Tk ?
Pour l'instant, je fais appel à l'exe d'acrobat, et mon pdf s'ouvre
bien en dehors du widget, mais je souhaiterais qu'il s'ouvre dans un
widget, est ce possible ?
Merci.
...