Forum Programmation.perl grep multi-ligne

Posté par  (site web personnel) .
Étiquettes : aucune
0
26
juil.
2006
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 (…)

Forum Programmation.perl Problème avec Socket et/ou Telnet sur le manager d'Asterisk

Posté par  .
Étiquettes : aucune
0
21
juil.
2006
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 envoyer (…)

Forum Programmation.perl 2 actions dans un "die"

Posté par  (site web personnel) .
Étiquettes : aucune
0
19
juil.
2006
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 (…)

Forum Programmation.perl Gtk2 : rafraichissement d'un champ Gtk2::Entry

Posté par  (site web personnel) .
Étiquettes : aucune
0
17
juil.
2006
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. Mais quand mon exploitation est terminée et que (…)

Forum Programmation.perl Perl

Posté par  .
Étiquettes : aucune
0
15
juin
2006
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

Forum Programmation.perl quota Cyrus::Imap:Admin !!!!!!!!!!!!!!!!!!!!!!!!!!!!

Posté par  .
Étiquettes : aucune
0
13
juin
2006
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 (…)

Forum Programmation.perl quota Cyrus::Imap:Admin

Posté par  .
Étiquettes : aucune
0
13
juin
2006
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 (…)

Forum Programmation.perl Perl html

Posté par  .
Étiquettes : aucune
0
12
juin
2006
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??

Forum Programmation.perl un Checkbox dans un TreeView en GTK

Posté par  (site web personnel) .
Étiquettes : aucune
0
12
juin
2006
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é?

Forum Programmation.perl session CGI

Posté par  .
Étiquettes : aucune
0
12
juin
2006
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??

Forum Programmation.perl cgi et perl

Posté par  .
Étiquettes : aucune
0
9
juin
2006
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 ou est l'erreur ? ou comment peut on proceder autremen t?
merci

Forum Programmation.perl session en perl

Posté par  .
Étiquettes : aucune
0
7
juin
2006
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','0','10000','$password');
$cyrus->nom_de_methode (listing renommage , modifier quota ....)
pour ce la je pense au notion de session en (…)

Forum Programmation.perl split en perl

Posté par  .
Étiquettes : aucune
0
6
juin
2006
j'ai une phrase comprend des points (user.nom_de_user)
je veux recuperer seulement le nom_de_user pour cela j'ai essayé avec le code suivant :
my $phrase = "user.nom_user";
my @mots = split(/./, $phrase);
my $nombre = @mots;
print "username ".$mots[1];
avec ce code il ne m'affiche pas le nom de user sachant que lorque j'ai changé le separateur par un autre (: , espace ) pour le test le pg fonction normalement
est ce que il ya un traitement spécial de caractère (…)

Forum Programmation.perl TreeView dynamique avec GTK2

Posté par  (site web personnel) .
Étiquettes : aucune
0
5
juin
2006
Hello,
je débute avec perl-gtk et j'essaye de construire une vue des dossiers en arbre afin de choisir les dossier de travail.
un peu comme dans un explorateur.

pour l'instant ce que j'ai réussi à construire est une fonction récursive qui ajoute au chargement les fichiers dans l'arbre.
le problème est que plus les répertoires à analyser sont nombreux plus la fonction est lente (logique) mais ça devient vite lent... :'(
et aussi que les répertoire ne sont pas mis (…)

Forum Programmation.perl Session en perl !!

Posté par  .
Étiquettes : aucune
0
5
juin
2006
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";
(…)

Forum Programmation.perl connaitre le mot de pass crypté

Posté par  .
Étiquettes : aucune
0
5
juin
2006
Salut
je suis entraion develloper une application (php ,perl ) permet d'adminstrer un systeme de messagerie(sendmail cyrus imap)
l'authentification imap d'un utilisateur systeme existe deja (cree avecc useradd) necessite le meme login et password.
sa creation doit etre faite à l'aide de commande suivante
saslpasswd2 -c nom_user
Password:/// donner le password du user qui est déjà ajouté avec user add sinon ellene fonctionne pas (authentication failed).
ma question est il'ya -il une fonction perl ( ou un programme perl ) (…)

Forum Programmation.perl Session en perl

Posté par  .
Étiquettes : aucune
0
3
juin
2006
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 (…)

Forum Programmation.perl CTmaiL

Posté par  .
Étiquettes : aucune
0
2
juin
2006
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 (…)

Forum Programmation.perl appel un script php dans un code CGI

Posté par  .
Étiquettes : aucune
0
31
mai
2006
je fais un appel d'un script php dans un script cgi a l'aide de la ligine suivante
.....
{
exec "php -f connect.php";
}
else
{
....
}
lors de l'execution il me declenche l'erreur suivante
400 Content-type: text/html Security Alert! The PHP CGI cannot be accessed directly.

This PHP CGI binary was compiled with force-cgi-redirect enabled. This means that a page will only be served up if the REDIRECT_STATUS CGI variable is set, e.g. via an Apache Action directive.

(…)

Forum Programmation.perl recuperation de data dans un thread

Posté par  .
Étiquettes : aucune
0
31
mai
2006
bonjour, J'ai un script qui ressemble à ça: 


#! /usr/pkg/bin/perl -w

use strict ; 
use Config ; 
use threads ; 

my %a ; 
my $key ;
my $thrd1 ;
my $thrd2

sub deck {
    my %b=( 'deck' => '5567' , 
            'raym' => 'fooo' )  ; 
    print "Je fais plein de chose...\n\n\n" ; 
    return %b ;
}

$thrd1 = threads->new(\&deck) ; 
$thrd2 = threads->new(\&deck) ; 


$thrd1->join ; 
$thrd2->join ;
Comment faire pour recuperer le hash qui est dans $thrd1...? Je dois (…)