0

22

mai

2006

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 ?

0

20

avr.

2006

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

0

3

avr.

2006

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

0

24

mar.

2006

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

0

23

mar.

2006

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

0

20

mar.

2006

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

0

8

mar.

2006

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

0

8

mar.

2006

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

0

6

mar.

2006

Bonjour

Je voulais savoir si on pouvait inserer des commandes propres a linux dans un programme en perl: ex un mkdir etc..

Y'a -t-il une syntaxe spéciale pour ce faire?

Merci

0

1

mar.

2006

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

0

27

fév.

2006

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 #

0

24

fév.

2006

voilà je suis perdue, j'ai besoin d'aide!!! j 'ai créé un formulaire d'enquete sur le logiciel modalisa. j'ai ensuite téléchargé sur mon serveur distant le fichier HTML du formulaire et un scripte cgi (vers lequel le bouton d'envoi du formulaire pointe)placé dans le repertoire cgi-bin. ça marche pas!!
détails du fichier .pl placé dans le repertoire cgi-bin :

#!/usr/bin/perl

if($ENV{'REQUEST_METHOD'} eq 'POST')
{
read(STDIN, $Data, $ENV{'CONTENT_LENGTH'});

# "modarep_perl.txt" est le nom du fichier dans lequel les réponses sont enregistrées
# (...)

0

24

fév.

2006

J'ai une toute pitite question, si quelqu'un pouvait m'aider,
ça m'aiderais bien...!

je fais un script pour recuperer des infos sur des equips reseau
et les coller dans un fichier en XML.

La partie collecte d'info ressemble à ça:

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

use SNMP ;

#$ENV{'MIBS'}="ALL"; #Load all available MIBs
$SNMP_TARGET = "$ARGV[0]";
$SNMP_COMMUNITY = "decK550";

$SESSION = new SNMP::Session (DestHost => $SNMP_TARGET,
Community => $SNMP_COMMUNITY,
Version => 1);

$LISTMIB = new SNMP::VarList(
['sysLocation'], #0
['sysName'], #1
['sysDescr'], #2
['sysUpTime'], #3
(...)

0

24

fév.

2006

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

0

20

fév.

2006

Bonjour,

Je débute en Perl, alors je demande a ceux qui ne le sont pas d'être indulgent.

Voila, je cherche comment faire une redirection des erreurs de mon script vers un fichier log.

voici un exemple de mon script:

!/usr/bin/perl -w

open (F,'<intf.pl') || die "Probleme d'ouverture : $!" ;

my $i=0;

while (my $ligne = ) {

$i++;

}

print "\n011円Nombre de lignes du fichier $F : $i \n\n";

###################

ce que je souhaite, le message "Probleme d'ouverture" soit écrit (...)

0

20

fév.

2006

Bonjour, j'ai un petit problème avec les reg-exp...
Je cherche à remplacer tout les espaces contenu entre 2 quotes.

par exemple j'ai une chaine a='hello "every body".linux "is great"'
après le remplacement avec un %20 par exemple, cette chaine devrai etre :
'hello "every%20body".linux "is%20great"'

0

15

fév.

2006

Bonjour a tous

Je cherche comment faire en script perl une connexion a une base oracle et récupérer dans une table a un champ précis son contenu,
l'écrire dans un fichier txt puis écrire OK dans la table a un champ précis

nom base = ma_base
login = moi
pass = Cmoi
table = toto
champ = tata (pour la lecture)
champ = titi (pour l'ecriture)

Je ne connais pas assez le perl, car je l'apprends en ce moment.

voici (...)

0

15

fév.

2006

Bonjour,

Comment puis faire des requettes snmp en perl...?

J'ai vu sur le net qu'il etait possible de le faire grace au paquet
net-snmp...?

Quelqu'un la t'il deja fait...?

0

13

fév.

2006

Hello vous tous :)

voila bon je sais ca doit être la 120 ième question du genre,
mais j'ai des souci avec le module Apache::ParseLog ( http://search.cpan.org/~akira/Apache-ParseLog-1.02/ParseLog.(...) )

je cherche à récupérer les log des fichier pour les stoké dans une BD.

j'ai donc installer le module avec perl MakeFile.pl
make
make test
et sudo make install

jusque là, pas de pbm.

ensuite je prend un de leur exemple que je test.
et paf ca marche pas
$transferlog = $base->getTransferLog(); (...)

0

9

fév.

2006

hello,

je suis bien conscient que mon titre ne veut pas dire grand chose, je vais mieux expliquer.

Mon code (simplifie) ressemble a ca:


my $variable;
my $v = "variable";

eval "\$$v = 42";

print "$variable\n"; #je voudrais avoir 42


En gros, j'ai une variable qui a un certain nom ($variable), une autre qui contient le nom de la premiere variable ('variable') et je veux pouvoir utiliser $variable a partir de son nom simplement, donc partir de $v.

C'est donc (...)

0

8

fév.

2006

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

0

3

fév.

2006

Bonjour,

J'essaie de trouver les correspondance à $var, qui se trouve
à la fin de chaque ligne d'un tableau:


if ( $etchosts[$i] =~ $var$ ) {
print $&
}


et il me retourne une erreur.


Scalar found where operator expected at /root/equip line 31, near "$var$ )"
(Missing operator before $ )?)
syntax error at /root/equip line 31, near "$var$ ) "
syntax error at /root/equip line 38, near "}"


ça me bloque pour bien debuter en perl...!

0

2

jan.

2006

Bonjour, je voudrais mettre en place un script qui incrementerais
sur des lettres.

Du genre:

aaaa, puis aaab puis aaac, ... , aaaz, aaba, aabb, aabc.

Je ne trouve pas trop comment faire ça, et de plus je suis
tout nouveau dans le monde du perl (d'aujourd'hui en fait)

Merci d'avance...!!

0

28

déc.

2005

Rebonjour!

je voudrai créer un fichier perl pour pouvoir récupérer des fichiers d'un serveur et les mettre dans un autre.

je vous explique plus en detail:

mon objectif c'est de transférer de maniere automatisée et périodique des fichiers qui se trouvent sous un répértoire donné d'un serveur windows vers un serveur linux ce qui alimentra la base de donnée se trouvant dans celui ci.
Nous disposons dans notre exemple que 4 serveurs, A, B, C, et D.
le serveur A (...)

0

28

déc.

2005

bonjour a tous,
je suis en train de travailler sur un projet et je voudrai créer un script perl qui puisse transférer et importer des fichiers d'un serveur vers un autre.
Pourriez vous m'aidez?
merci d'avance