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 (…)
Forum Programmation.perl Mini Proxy HTTP
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.
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.
Forum Programmation.perl Bot sur serveur Jabber.
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 (…)
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 (…)
Forum Programmation.perl Stocker un descripteur de Socket dans un Hash Partagé
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:
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 shared scalar at ..."
J'ai testé des trucs avec les références mais (…)
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 shared scalar at ..."
J'ai testé des trucs avec les références mais (…)
Forum Programmation.perl Erreur 'Character encoding' dans man
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 (…)
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 (…)
Forum Programmation.perl Extraction de texte
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
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
Forum Programmation.perl Hash de Hash partagé entre Threads
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:
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 {
(…)
Forum Programmation.perl Tester un 'NULL'
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é
Pour info, j' "use DBI();" sur une base MySQL V4.1 et je récupère mes enregistrements avec
Please Help Me...
Merci d'avance.
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.
Forum Programmation.perl perl/tk
je develop une interface en perl/tk et je veux imprimer le contenu d une frame cette frame contient le dirtree
Forum Programmation.perl Appelle à module 'use' dans un thread
Bonjour,
Je finalise une application qui utilise des threads. Je la porte actuellement sous Windows pour qu'elle puisse travailler en OLE avec MS Outlook;
Cependant, probleme, je suis bloqué par un soucis : tout mes actions vers outlook s'execute dans un de mes threads, et le module ne semble pas marcher correctement quand appelé ainsi.
Exemple :
Je finalise une application qui utilise des threads. Je la porte actuellement sous Windows pour qu'elle puisse travailler en OLE avec MS Outlook;
Cependant, probleme, je suis bloqué par un soucis : tout mes actions vers outlook s'execute dans un de mes threads, et le module ne semble pas marcher correctement quand appelé ainsi.
Exemple :
use threads;
use threads::shared;
sub test {
use Win32::OLE::Const 'Microsoft Outlook';
print Win32::OLE->GetActiveObject('Outlook.Application');
}
test();
my $thr1 = threads->create(sub {
use Win32::OLE::Const 'Microsoft (…)
Forum Programmation.perl Fermer proprement un socket
Salut,
Je n'arrive pas à fermer correctement mon socket et ça commence à me souler...
Quand je sors du script en lui balançant "exit" le prog se termine normalement mais quand je le relance juste derrière j'ai une erreur à l'accrochage du socket : Adresse déjà utilisée...
Au bout d'une minute l'adresse est libérée et je peux réutiliser le port.
Qu'est-ce que j'oublie ?
Je n'arrive pas à fermer correctement mon socket et ça commence à me souler...
Quand je sors du script en lui balançant "exit" le prog se termine normalement mais quand je le relance juste derrière j'ai une erreur à l'accrochage du socket : Adresse déjà utilisée...
Au bout d'une minute l'adresse est libérée et je peux réutiliser le port.
Qu'est-ce que j'oublie ?
# numero de port utilisé par le serveur
$port = 5123;
# protocole mis en jeu (…)
Forum Programmation.perl Récupérer les hash dans une liste de hash
Bonjour, j'ai créé une liste de hash, et en bon débutant en perl que je suis, j'ai appliqué bêtement la doc (merci les mongueurs) que j'ai trouvé. Ca donne ça :
@TabVars étant le tableau dont chaque case contient un hash (avec à chaque fois les mêmes clé valeur.
(J'aimerai éviter de faire une table de hash de table de hash, cette structure (…)
my $refvar;
my %var;
foreach $refvar (@TabVars) {
my %h2 = %$refvar;
print "$h2{Valeur} : $h2{Type}\n";
}
@TabVars étant le tableau dont chaque case contient un hash (avec à chaque fois les mêmes clé valeur.
(J'aimerai éviter de faire une table de hash de table de hash, cette structure (…)
Forum Programmation.perl Evénement sur un TreeView avec PERL::GTK2
Bonjour,
j'essaie d'écrire une interface pour browser des répertoires avec PERL/GTK2. Je voudrais savoir comment faire pour récupérer l'évenement quand on clique sur un élément d'un TreeView (ou TreeColumn ou TreeStore).
Si quelqu'un a une autre solution qu'un TreeView, je suis preneur aussi...
Merci
NOTE: je débute en PERL.
j'essaie d'écrire une interface pour browser des répertoires avec PERL/GTK2. Je voudrais savoir comment faire pour récupérer l'évenement quand on clique sur un élément d'un TreeView (ou TreeColumn ou TreeStore).
Si quelqu'un a une autre solution qu'un TreeView, je suis preneur aussi...
Merci
NOTE: je débute en PERL.
Forum Programmation.perl free et perl
Bonjour à tous,
Savez-vous si il est possible de lancer du Perl chez free ?
Savez-vous si il est possible de lancer du Perl chez free ?
Forum Programmation.perl Que pensez-vous de Perlcc?
Bonjour,
je souhaiterais avoir votre avis sur perlcc... j'ai pu les lire des avis très divergeant dans plusieurs forum. Il est vrais que la taille de l'exécutable généré peut paraître énorme par rapport au source, mais si c'est le prix de l'indépendance de mon exécutable: ça ne me choque pas!
Ce que je voudrais savoir c'est surtout s'il existe un gain de performance significatif en générant un exécutable avec perlcc et également si l'exécutable généré est stable?
Merci pour vos (…)
je souhaiterais avoir votre avis sur perlcc... j'ai pu les lire des avis très divergeant dans plusieurs forum. Il est vrais que la taille de l'exécutable généré peut paraître énorme par rapport au source, mais si c'est le prix de l'indépendance de mon exécutable: ça ne me choque pas!
Ce que je voudrais savoir c'est surtout s'il existe un gain de performance significatif en générant un exécutable avec perlcc et également si l'exécutable généré est stable?
Merci pour vos (…)
Forum Programmation.perl Problème de charset
Bonjour, j'ai fait un script perl parsant quelques regexp d'un fichier au format iso-8859-1.
J'ai pas mal d'accent dedans, à peu près tout ceux qu'on trouve en langue française.
Sous cygwin (ce qui explique peut être mes problèmes), le script perl me fait sauter quasiment tous les accents.
J'ai essayé de jouer avec encode, mais ça marche pas terrible.
Une idée ?
Merci :)
J'ai pas mal d'accent dedans, à peu près tout ceux qu'on trouve en langue française.
Sous cygwin (ce qui explique peut être mes problèmes), le script perl me fait sauter quasiment tous les accents.
J'ai essayé de jouer avec encode, mais ça marche pas terrible.
Une idée ?
Merci :)
Forum Programmation.perl grep multi-ligne
Bonjour, j'essaie depuis deux jours d'effectuer un grep multiligne sur un certains nombre de fichier sources pour en extraîres les commentaires.
Je cherche à sélectionner des patterns de ce genre :
- to_ulongint:ULONGINT <-
( //? {self >=0};
//? {self <=# (ULONGINT.maximum)};
au milieu de //
// Conversion format with test.
//
- to_ulongint:ULONGINT <-
( //? {self >=0};
//? {self <=# (ULONGINT.maximum)};
to_raw_ulongint
);
J'ai donc créé l'expression suivante :
^\s*-([.]*)<-\s*\(*\s*//(.*)
Lorsque je la teste avec un outil comme (…)
Je cherche à sélectionner des patterns de ce genre :
- to_ulongint:ULONGINT <-
( //? {self >=0};
//? {self <=# (ULONGINT.maximum)};
au milieu de //
// Conversion format with test.
//
- to_ulongint:ULONGINT <-
( //? {self >=0};
//? {self <=# (ULONGINT.maximum)};
to_raw_ulongint
);
J'ai donc créé l'expression suivante :
^\s*-([.]*)<-\s*\(*\s*//(.*)
Lorsque je la teste avec un outil comme (…)
Forum Programmation.perl Gtk2 : rafraichissement d'un champ Gtk2::Entry
Bonjour a tous,
je programme actuellement une interface en Gtk2 ou j'utilise des champs de date pour lancer une exploitation de logs entre ces dates.
C'est très simple, j'ai deux champs $datedebut et $datefin qui sont du type Gtk2::Entry->new_with_max_length(10) et j'ai également un bouton qui appel la fonction "lancer"
dans cette fonction "lancer" je fais mes deux récupérations de valeurs :
Celà marche bien. Mais quand mon exploitation est terminée et que (…)
je programme actuellement une interface en Gtk2 ou j'utilise des champs de date pour lancer une exploitation de logs entre ces dates.
C'est très simple, j'ai deux champs $datedebut et $datefin qui sont du type Gtk2::Entry->new_with_max_length(10) et j'ai également un bouton qui appel la fonction "lancer"
dans cette fonction "lancer" je fais mes deux récupérations de valeurs :
my $debut_exp = $datedebut->get_text();
my $fin_exp = $datefin->get_text();
Celà marche bien. Mais quand mon exploitation est terminée et que (…)
Forum Programmation.perl Problème avec Socket et/ou Telnet sur le manager d'Asterisk
Bonjour,
Je cherche à ecrire un script Perl se connectant au manager API d'Asterisk. On s'y connecte "humainement" avet un simple telnet sur le port 5038. Ensuite on peut envoyer des commandes à Asterisk qui se présentent sous cette forme:
et lui même nous envoie des élément de la même forme:
Mon but est de me coonecter à cet API et évidemment de pouvoir envoyer (…)
Je cherche à ecrire un script Perl se connectant au manager API d'Asterisk. On s'y connecte "humainement" avet un simple telnet sur le port 5038. Ensuite on peut envoyer des commandes à Asterisk qui se présentent sous cette forme:
action: login\n
username: office\n
secret: welcome\n
\n
et lui même nous envoie des élément de la même forme:
Event: PeerStatus
Privilege: system,all
Peer: SIP/103
PeerStatus: Registered
Mon but est de me coonecter à cet API et évidemment de pouvoir envoyer (…)
Forum Programmation.perl 2 actions dans un "die"
Hello,
j'ai un petit soucis avec die : je voudrais que lorsqu'un "open" ne fonctionne pas, die m'écrire et log et sorte avec "-1"
donc j'ai une ligne comme ca :
mais il n'en veux pas.... si je ne met que l'appel vers "meurt" ou le "return -1", ca fonctionne mais pour les deux en meme temps ya pas moyen...
ya t'il une syntaxe particulière que j'ai raté ? ou peut (…)
j'ai un petit soucis avec die : je voudrais que lorsqu'un "open" ne fonctionne pas, die m'écrire et log et sorte avec "-1"
donc j'ai une ligne comme ca :
opendir(DSTREPORT,$destreport)or die (meurt("Impossible d'ouvrir le répertoire $destreport... $!");return -1);
mais il n'en veux pas.... si je ne met que l'appel vers "meurt" ou le "return -1", ca fonctionne mais pour les deux en meme temps ya pas moyen...
ya t'il une syntaxe particulière que j'ai raté ? ou peut (…)
Forum Programmation.perl decouper une image en plusieur image de 100x100px en perl.
Bonjour,
Tout est dans le titre...!
Est il possible en perl, de decouper une image en plein de petite
images de 100x100 pixel...?
Je ne pense pas, mais bon...
Merci d'avance pour vos reponse.
Tout est dans le titre...!
Est il possible en perl, de decouper une image en plein de petite
images de 100x100 pixel...?
Je ne pense pas, mais bon...
Merci d'avance pour vos reponse.
Forum Programmation.perl Perl
bonjour,
je veux modifier le contenu d'un fichier text à partir d'un code cgi.
mon pb est comment je peut supprimer des données à partir de ce fichier
je veux modifier le contenu d'un fichier text à partir d'un code cgi.
mon pb est comment je peut supprimer des données à partir de ce fichier
Forum Programmation.perl quota Cyrus::Imap:Admin !!!!!!!!!!!!!!!!!!!!!!!!!!!!
salut
j'ai ne sais pas comment utiliser la fonction listquota de cyrus::imap :admin
module
le resultat de fonction executé à partir de la ligne de commande à l'aide de la commande cyradm est different à celui de mon code
svp regardez mon code au dessous
* a l'aide la commande Iq cyradm
lq mailbox
STORAGE 48/120000 (0.04%)
mon script perl est comme ça;
Cyrus::IMAP:Admin:
my %quota;
my $e;
my $r;
my $mailbox = 'user/bob@xxxxxxxxx';
($e, %quota, $r) = $cyrus->quota($mailbox);
print (…)
j'ai ne sais pas comment utiliser la fonction listquota de cyrus::imap :admin
module
le resultat de fonction executé à partir de la ligne de commande à l'aide de la commande cyradm est different à celui de mon code
svp regardez mon code au dessous
* a l'aide la commande Iq cyradm
lq mailbox
STORAGE 48/120000 (0.04%)
mon script perl est comme ça;
Cyrus::IMAP:Admin:
my %quota;
my $e;
my $r;
my $mailbox = 'user/bob@xxxxxxxxx';
($e, %quota, $r) = $cyrus->quota($mailbox);
print (…)
Forum Programmation.perl ajouter un group
bonjour
est ce que quelqu 'un sait comment peut creer un nouveau group avec script perl?
merci
est ce que quelqu 'un sait comment peut creer un nouveau group avec script perl?
merci
Forum Programmation.perl session CGI
bonjour,
je suis entrain de développer une application web et je veut récupérer les valeurs de login et le mot de passe d'une page php pour qu'ils soient vu dans plusieurs script CGI. je pense à l'aider d'introduire la notion de session mais je n'ai pas une idée sur son syntaxe sous perl/cgi.
comment pourrais je récupérer des valeurs dans une session pour qu'il soit existé dans plusieurs script CGI??
je suis entrain de développer une application web et je veut récupérer les valeurs de login et le mot de passe d'une page php pour qu'ils soient vu dans plusieurs script CGI. je pense à l'aider d'introduire la notion de session mais je n'ai pas une idée sur son syntaxe sous perl/cgi.
comment pourrais je récupérer des valeurs dans une session pour qu'il soit existé dans plusieurs script CGI??