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 ne remplie pas cette liste de conditions . Or je veux (à suivre ...)

> Lire le message (5 commentaires, moyenne: 1,6).  

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

> Lire le message (4 commentaires, moyenne: 1,3).  

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', [' (à suivre ...)

> Lire le message (7 commentaires, moyenne: 1,3).  

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 coder toutes ces informations dans une structure (à suivre ...)

> Lire le message (2 commentaires, moyenne: 3).  

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.

> Lire le message (5 commentaires, moyenne: 1,8).  

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 ci attend un objet MIME (à suivre ...)

> Lire le message (2 commentaires, moyenne: 3).  

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

> Lire le message (1 commentaire, moyenne: 3).  

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_HOM (à suivre ...)

> Lire le message (3 commentaires, moyenne: 0,7).  

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

> Lire le message (12 commentaires, moyenne: 1,8).  

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.

> Lire le message (5 commentaires, moyenne: 0,8).  

Bonjour,

J'ai une install toute fraiche de fedora core 4.0, j'ai quelque pm que j'aimerais bien installer, mais je n'arrive pas a trouver la commande qui va bien. Le pc n'a pas l'acces a internet ('habitude avec le CPAN je sais faire).

Les pm sont sous la forme .gz, que l'on recupere sur le website CPAN, et je les ai copies sur la machine en question, je suis bloque la pour le moment.

Un petit coup de pouce ?

Thx et a+
Charles.

> Lire le message (3 commentaires, moyenne: 1,3).  

Je suis débutante en Perl, j'ai à partir d'une interface graphique (site PHP apache) un script perl qui lance par threads 2 autres sripts perl . L'un de ces 2 scripts va peupler une base de donnée avec des mesures (temperature). l'autre va lire les mesures et en fonction de règles prédéfinies déclenche des actions. La base de donnée est une base mysql qui est exploitée par un site apache hebergé sur mon serveur (fedora FC4).
Cela fonctionne bien . Le problème est un restart d'apache tous (à suivre ...)

> Lire le message (0 commentaire).  

bonjour,

je voudrais empaqueter une librairie c++ existante dans un module.

l'une des fonctions prend en argument un tableau de char prealablement alloué .

en deux mots:

char tab[128];

int res = ma_classe:: ma_fonction (tab) ;

apres l'appel tab contient une chaine.

en perl cela devrait donner :

 
my $extC = ma_classe->new( );
my $tab;
$extC ->ma_fonction (\$tab) ;

et dans ma_classe.xs :

MODULE = ma_classe		PACKAGE = ma_classe		
int
ma_classe::ma_fonction (p_msg)
 (à suivre ...)

> Lire le message (0 commentaire).  

Bonjour.
Un copain a commencé à coder pour moi un bot en perl et je reprend aujourd'hui le travail pour le compléter. Ce bot se connect sur un serveur Jabber et peux entrer dans des chatrooms crées sur le serveur jabber.
j'utilise le serveur ejabberd.

J'ai besoin que ce bot puisse récupérer les sujets des chatrooms dans lesquelles il se connecte et qu'il exporte ces sujet dans un fichier.
Le coté export dans un fichier ne posera pas de prob mais la récupération du sujet...je ne parviens (à suivre ...)

> Lire le message (1 commentaire, moyenne: 2).  

Salut à tous,

J'ai un problème qui ressemble fort au dernier que j'ai posté: http://linuxfr.org/forums/27/19772.html

J'ai un Hash de Hash partagé entre plusieurs thread qui fonctionne maintenant parafaitement comme ceci:

my %realtime : shared;
$realtime{ key } = &share({});


Maintenant quand j'essaye de stocker un descripteur de socket, IO::Socket::INET=GLOB(0x9a6d81c), dans mon hash partagé, même un hash simple, ça ne fonctionne pas:
"Thread 4 terminated abnormally: Invalid value for (à suivre ...)

> Lire le message (2 commentaires, moyenne: 1,5).  

Bonjour,

Voilà... je suis entrain d'écrire un petit morceaux de PERL et comme j'suis pas sure de me rappeler le pourquoi du comment dans quelques mois, je me prends par la main et je rédige un bloc d'aide à la man (power).

Jusque là rien de bien exeptionnel...

Seulement voilà lorsque je demande l'interprétation du bloc par POD::Usage, je suis obligé de virer tous les accents si je ne veux pas voir le vilain méchant loup me répondre à la figure :

XXX
XXX WARNING: old character encoding (à suivre ...)

> Lire le message (2 commentaires, moyenne: 1).  

Bonjour,

je suis débutant en perl et j'ai un peu de mal au niveau de l'extration de texte.

En fait, j'ai un texte du genre:
un deux trois mot1 quatre cinqmot2 six sept mot3 ....

et j'aimerai juste récuperer:
mot1
mot2
mot3
...

Ca doit etre simple mais je galere pas mal alors si vous avez une petite idee... merci

> Lire le message (9 commentaires, moyenne: 1,6).  

Bonjour,

Je me prends méchamment la tête de puis un moment sans trouver mon erreur.

J'ai un script avec deux threads qui se paratagent un hash de hash. L'un des thread (ecoute) ajoute ou modifie les valeurs du HoH alors que l'autre doit juste les afficher... Ca marche avec un hash simple mais pas avec un HoH...

Voilà le code:

#!/usr/bin/perl -w

use 5.008;
use strict;
use warnings;
use threads;
use threads::shared;

my %realtime :shared = ();

sub affiche {

while(1){
foreach my $util (à suivre ...)

> Lire le message (5 commentaires, moyenne: 1,6).  

Bonjour,

Je cherche bêtement à détecter dans mon script PERL quand ma requête SQL me renvoie un champ 'NULL' parmis les autres... Mais n'y arrive point.

Comment fait on ? J'ai testé defined et exists mais ça n'a pas marché...

Pour info, j' "use DBI();" sur une base MySQL V4.1 et je récupère mes enregistrements avec fetchrow_array.

Please Help Me...
Merci d'avance.

> Lire le message (7 commentaires, moyenne: 1,4).  

je develop une interface en perl/tk et je veux imprimer le contenu d une frame cette frame contient le dirtree

> Lire le message (3 commentaires, moyenne: 2).