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 (...)
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 (...)
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;
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 (...)
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 ?
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.
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 . (...)
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 (...)
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 (...)
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 (...)
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;
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 (...)
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 (...)
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 min 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 (...)
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 :
my $refvar;
my %var;
@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 (...)
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...
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?