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 : TCP
$protocole = getprotobyname('tcp') (à suivre ...)

> Lire le message (0 commentaire).  

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;

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 est claire).

Le problème (à suivre ...)

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

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.

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

Bonjour à tous,

Savez-vous si il est possible de lancer du Perl chez free ?

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

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

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

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 :)

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

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

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

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

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

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 :


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

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

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 :

my $debut_exp = $datedebut->get_text();
my $fin_exp = $datefin->get_text();

Celà marche bien (à suivre ...)

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

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.

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

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

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

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 "E: ".$e."\n" (à suivre ...)

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

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

> Lire le message (0 commentaire).  

bonjour
est ce que quelqu 'un sait comment peut creer un nouveau group avec script perl?
merci

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

bonjour,
j'ai developper un script cgi et j'integre dans ce script un code html.
tous va bien seulement il n'accepte pas le backgroud, j'ai essayer avec bgcolor est il fonctionne. voila mon instruction:
print "<body background=\ " image.jpg\"> "
avez vous une idée??

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

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

> Lire le message (0 commentaire).  

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

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

j'aurais aimé savoir comment récupérer les valeurs de checkbox (passées par une méthode post):
print"<input type=\"checkbox\" name=\"Mailbox\" size=\"1\" value=\"$NameMailBox[1]\">".$Liste[0]."".$Liste[6]."".$Liste[7]."".$Liste[0]."".$QuotaValue."";
}
pour cela je tape le code suivant pour la recuperation
my $query= new CGI;
@checkbox = $query->param('Mailbox');
print "ddddkkk";
foreach $checkbox (@checkbox)
{
print "$checkbox \n";
}
ça ne me retoure aucun champ
Savez vous (à suivre ...)

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

Salut ,

j'ai une autre question cette fois concerne la notion de session en perl
en effet , l'administarteur doit entrer avec un lodin et password
ceci doit être recuperer pendant toute sa manipulationde l'application puisque chaque tache qui va effectuer necessite la login et le mot de pass grace à l'instrution suivante (en perl )
use Cyrus::IMAP::Admin;
my $cyrus = Cyrus::IMAP::Admin->new('localhost');
$cyrus->authenticate('$Mechanism','imap','','$login' (à suivre ...)

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