bonjour tout le monde. Je suis le "absolute beginner", et j'aimerais savoir si il y a un moyen en Perl d'afficher tout le contenue d'une table de hachage. J'obtient ma table en faisant: $response = $session-#get_table( -baseoid =#; $oid ) ; ps: desolé pour cette question, mais je trouve pas...! pps: je n'arrive pas à afficher les "plus grand que", c'est remplacé par #

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

Bonjour

J'essai de récupérer la date dans une variable

my $b=system("date -I");

mais ca m renvoi 0 quand j affiche $b

Une idée quelqu'un?
(date -I renvoi la date sous forme 2006-03-08)

merci

Bonjour,
J'ai un soucis de performance donc je cherche des solutions type awk voir perl.
Pour toutes les lignes commencant par ACT, je veux remplacer la valeur du champ 12 avec celle du champ 14 si la valeur du champ 12 commence par 0.
Pour l'instant j'ai une boucle qui prend toutes les lignes commencant par ACT et je teste si le champ 12 commence par zéro, si oui je fais un sed. Pour plus de performance, j'ai voulu contstruire (…)

Bonjour,

J'essaye desperement de poster un bout de code,
et je n'y arrive pas, comment faire pour poster du code,
y compris avec des "plus grnad que" et "plus petit que"...



un exemple de ce que ça me donne...


Bonjour à tous.

J'ai fais un script qui sauvegarde la configuration des equipements
reseaux du site sur lequel je boss.

Il donne des fichiers comme ça:



salle server 18
suresnes/e/e4
cisco internetwork operating system software ios (tm) c2900xl software (c2900xl-c3h2s-m), version (…)

bonjour,

Avec la bibliotheque XML::Simple, quand je parse mon fichier,
j'obtient un tableau de hash...

@int = $fichier->{int};

print Data::Dumper->Dump([\@int],['*int']);

@int = (
[
{
'type' => 'vl1',
'mib' => '1',
'descr' => {}
},
{
'type' => 'fa0/1',
'mib' => '2',
'descr' => 'deck'
},
{
'type' => 'fa0/2',
'mib' => '3',
'descr' => 'deck2'
},
{
'type' => 'fa0/3',
'mib' => '4',
'descr' => ' user440 '
},
{
'type' => 'fa0/4',
'mib' => '5',
'descr' => 'same-as-you'
(…)

Bonjour,
je cherche une solution à ce problème depuis quelques heures et je n'ai rien trouvé pour le moment. Lorsque l'on utilise require(), mod_perl regarde à l'intérieur de la liste des répertoires contenus dans la variable @INC. J'aimerais pouvoir séparer un script en plus petites parties (faire des modules .pm) mais je n'arrive pas à faire en sorte que require() regarde dans le répertoire du script. Lors de l'exécution du script, le répertoire courant est / et non celui du (…)

Hello,
voila je suis occuper à créer un programme qui parse pas mal de ligne dans un fichier.
il effectue des actions chaque ligne dans différents modules que je charge en fonction d'un fichier de configuration.

pour l'appel des fonction , j'utilise un eval($NomdeFct.'()')
je trouve pas ca fort propre, de plus, ce code rallenti beaucoup ( plus de 2X) le code...
y'aurai t-il pas un moyen plus élégant et surtout plus rapide d'executer des fonctions dont on connait le (…)

salut
comment peut t-on creer un utilisateur avec un script perl
j'ai essayé avec
` adduser $newuser -p $newpassword`;
sauf que lorsque je consulte le fichier /etc/shadow je trouve que l'utilisateur est crée mais le mot de passe n'est pas crypté
quelleset la solution svp ?

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

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

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.

(…)

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

je suis debutente dans la programmation avec perl
j'aime bien avoir un programme qui ouvre un flux sur le fichier /et/c/shadow
il parcoure le fichier et verifie si un nom d'utilistaeur existe ou pas
dans le cas ou il n'existe pas il va le creer avec la commande useradd
une reponse svp

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

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

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

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

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

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

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

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

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