Bonsoir,

J'aimerais trouver un moyen pratique, portable de faire du multitache en perl ... J'ai testé les threads et fork() qui semble être porté sous Fenêtres(R) mais ...
- fork() me permet d'envoyer des signaux aux processus
- les threads me permettent de partages des données facilement (files, variables partagées, vérous, sémaphores)
- les threads fonctionnent partout
- Mon application utilisant les threads à la place de fork() était plus lente (peut être car j'avais ajouté des fonctionnalités)

J'aimerais donc (…)

Je vais toujours poster le code source du serveur (le client, cest telnet):

#!/usr/bin/perl -w use strict; use IO::Socket; # Usage: # # client.pl [ (--exit|-e)  ] [ ] [ ] # client.pl [ -h ] [ --help ] my $filename = "client.pl"; my $help = " Usage $filename [ ] [ ] Options ( -P | --port )  Port to listen ( -p | --protocol ) Set a protocol (tcp, udp, ...). Default is \"tcp\" (…)

C'est encore moi .... je fais mon serveur et j'utilise maintenant les thread de perl. Et j'ai un problème pour tester si une variable existe ... Voici donc mon code un peu simplifié: #!/usr/bin/perl -w use strict; # use diagnostics; use IO::Socket; use Net::hostent; # gethostbyaddr() use threads; # use thread::Queue; use threads::shared; my $server; my @messages : shared = (); my $current_message : shared; my $life : shared = 1; $server = IO::Socket::INET->new( Proto => $protocol, LocalPort => $port, (…)

Coincoin (Le premier qui dit panpan s'en prend une ;))

Bon, voilà, j'ai un problème métaphysique. les feuilles de style personnalisées c'est bien, mais je trouve pas ça encore assez marrant.
Donc l'idée que j'ai dans un coin, c'est en fait de fournir simplement de quoi faire sa propre page, en utilisant des données communes, en passant par un certain nombre de fonctions disponibles. En gros, on a quelque chose du genre :


SGBD --> fonction d'accès données --> diverses (…)

Salut, Je cherche un moyen sur google.... de trouver le débit d'une connexion j'ai pense a cat /proc/.... mais je trouve rien (du moins je pense) sur le débit d'une connexion/seconde. Auriez vous une idée pour récupérer en PERL le débit? Merci d'avance bye

Bonjour,

J'ai construit un wrapper perl pour un des mes projects (wzdftpd) en utilisant perlxs. Il se contruit et s'installe correctement, mais impossible de le desinstaller:

make uninstall


Uninstall is unsafe and deprecated, the uninstallation was not performed.

We will show what would have been done.


no packlist file found:  at /usr/share/perl/5.8/ExtUtils/Install.pm line 318.

Si j'essaye la commande manuellement, rien de mieux:

perl "-MExtUtils::Command::MM" -e uninstall /home/pollux/DEL/lib/perl/5.8.4/auto/wzdftpd/.packlist


Uninstall is unsafe and deprecated, the uninstallation was not performed.
We will show (…)

Bonjour,

Depuis hier, je tente de porter mon script python écrit en 5min qui utilise mod_python pour simplement récupérer un fichier envoyé par un client via un POST. Super simple donc.
Maintenant, j'ai des contraintes, je dois utiliser perl. Je me suis donc tourner vers mod_perl qui semble bien plus efficace qu'un simple CGI (surtout que je vais recevoir des rafales de plusieurs centaines de requetes). Autre contrainte, ma distribution basée sur RedHat ne semble pas avoir de paquet pour (…)

Bonjour,

Je voudrai réaliser une "preuve de concept" de l'idée de faire passer du flux webcam via jabber (le fameux manque de webcam...)

Afin de faire un dev rapide j'ai choisi le langage perl avec le module Video::Capture::V4l.
Mais je n'arrive pas à avoir une image simple de la webcam !

Quelqu'un a-t-il réussi à chopper une image de sa webcam via v4l en Perl ?

Salut,

J'ai installé Maypole avec succès (comprendre que tout les modules nécessaires ont été installés sans message d'erreur à la fin), et donc, je teste la base de données offerte, à savoir la fameuse BeerDB.

Et là, je me reçoit un "Internal Server Error", et dans mon error.log, j'ai :

[Wed May 25 22:58:02 2005] [error] Can't call method "_table2class" on an undefined value at /usr/share/perl5/Maypole/Model/CDBI.pm line 250.\n


Cela dit quelque chose à quelqu'un ?

Bonjour à tous,

J'ai un petit problème avec Perl/Tk, l'application compilée en exe avec pp fonctionne parfaitement... sur mon poste, sur tous les autres postes (qui eux ne disposent pas d'un distribution perl) l'application s'exécute et fait son job, mais les textbox n'affichent pas correctement le texte y est remplacé par des caractères barbares.

J'ai essayé de changer les fontes en 'system', 'ainsi' et tout ce qui est censé être supporté par tk sous win, de changer l'encoding mais rien (…)

Bonjour à tous,

Voilà, je souhaiterais installer Bugzilla sur ma RedHat 8, je voulais savoir si cela était possible, si quelqu'un l'a déjà fait.

Si c'est le cas, me conseillez-vous de l'installer avec les packages RPM ? quel version de Bugzilla dois-je prendre pour aller avec ma version de ma RedHat ?

Est-il nécessaire d'installer tous les modules Perl ?

Ensuite, m'est-il possible d'utiliser Bugzilla avec PostgreSQL au lieu de MySQL ?

Merci pour votre aide,

Bonjour, j'ai un probleme d' upload pour la version libapache2-request-perl version :2.04-dev-1.sarge.1 :

$VAR1 = bless( {
'-stacktrace' => 'Can\'t call method "bb" on an undefined value at /usr/share/perl5/Error.pm line 274


J'ai éventuellement trouvé la marche à suivre à cette adresse :

http://httpd.apache.org/apreq/docs/libapreq2/apreq_faq.html(...)

When I use Apache2::Request in my output filter, it seems to lose the incoming POST variables.

The problem is likely that the mod_apreq2 filter has not been added to the input filter chain in time to read (…)

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 (…)

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 (…)

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 (…)

Je n'arrive pas à me connecter à ma base Ingres voila le message d'erreur: install_driver(Ingres) failed: Can't load '/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/DBD/Ingres/Ingres.so' for module DBD::Ingres: libinterp.1.so: Ne peut ouvrir le fichier d'objet partagé: Aucun fichier ou répertoire de ce type at /usr/lib/perl5/5.8.5/i386-linux-thread-multi/DynaLoader.pm line 230. at (eval 3) line 3 Compilation failed in require at (eval 3) line 3. Perhaps a required shared library or dll isn't installed where expected at connexion01.pl line 7 Pouvez vous m'aider. Merci

J'ai un problème avec Perl et Net::Jabber. Voici mon code :
#!/usr/bin/perl
use Net::Jabber;
$jabber = new Net::Jabber::Client();
$jabber->Connect(hostname => "fritalk.com",
port => 5222,
timeout => 90,
connectiontype => "tcpip",
ssl => 0);
@r = $jabber->AuthSend(username => "yannbng",
password => "********",
resource => "Perl-Net::Jabber",
register => 0);
$SIG{ALRM} = \&qqch;
$jabber->SetCallBacks( presence => \&handle_presence,
message => \&handle_message );
@contacts = $jabber->RosterGet();
$jabber->PresenceSend();
qqch();
print "Connecté !";
while(defined($jabber->Process())) { }
sub qqch {
$jabber->Process(1);
}
sub handle_message {
my $message = (…)

bonjour,
j'ai installé CTmaiL pour configurer le serveur sendmail à distance et qu'on je teste setup.php
une erreur déclanchée(relatif à CGIwrap )
CGIWrap Error: Script dir not found
The specified user does not have a script directory set up for execution of cgi scripts, or the directory permissions prevent cgiwrap from using that directory.
dans son installation j'utilise le doc d'installation de CGIWrap
et cette erreur reste toujours
y-t-il une personne entre vous qui peut m'aider et dire comment je (…)

j'ai un epage php qui contient un formulaire (login, password) un clic sur un bouton submit telecharge un fichier cgi .j'ai recupereé mes parametres à partir de page php dans la page cgi mias j'aime bien que ces paramètres soient sauvgarder tout au long mon navigation dans le site car j'en ai besoin comme des paramètres pour des methodes définis dans des autres pages

dans mon fich .cgi j'effectue letraitement suivant
....
use CGI::Session;
use CGI ;
my $cgi=new CGI (…)

salut
une pb m 'a rencontré lors de manipulation de notion de session en perl (je suis debutante dans la programmation avec la lanquage perl !!)
en effet , j 'ai besoin de recuperer le login et le password d'un administrateur pendant toute les etapes demanipulation d'une application des gestions de comptes de messageries pour cela j 'ai pensé au notion de session
dans mon permier page (creation de session ) j'ai fais ce code
#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";
(…)

Hello, voila quelques jours maintenant que je cherche comment mettre une checkBox dans les lignes de mon TreeView.

j'ai réussi a l'insérer en faisant

my $model=Gtk2::TreeStore->new('Glib::Boolean','Glib::String');
....

puis j'ai créer la colonne avec

my $col1=Gtk2::TreeeViewColumn->new_with_attribute('Titre',Gtk2::CellRendererToggle->new);


quand je met le cellrenderer à activatable, j'arrive à éditer le boutons, mais tous en même temps.....
impossible de faire fonctionner les checkbox indépendemment......

je n'ai pas compri non plus comment initialisé le checkbox à l'ajout.....

si quelqu'un peut m'aidé?

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 (…)

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 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,

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) SV * p_msg PREINIT: char msg [256]; CODE: (…)

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 . (…)