Forum Programmation.perl Perl, les locales (gettext) et le packaging

Posté par (page perso) .
Tags : aucun
0
8
nov.
2005
Salut forum,
j'ai récemment développé un chtit programme en perl/Gtk2 que je sortirai prochainement, il sert à réduire facilement un lot d'images, si on veut les mailer par exemple (développé à l'origine pour un néophyte).

Problème n°1 : Le programme marche nickel, mais j'aimerais intégrer la gestion des langues dedans. Comme en plus j'utilise glade, je suppose qu'il faut fusionner les .po du fichier glade et du script perl. Cela dit, j'ai vu deux trois tutoriels en C, mais je (...)

Forum Programmation.perl Champs "Assign to" Bugzilla

Posté par .
Tags : aucun
0
3
nov.
2005
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 (...)

Forum Programmation.perl Installation de module avec ppm

Posté par .
Tags : aucun
0
19
oct.
2005
Bonjour,

Système d'exploitation utilisé : Windows 2000
Version de Activeperl : 5.6.1.638
Version de ppm : 2.2.0

- j'utilise ppm pour installer des modules perl suplémentaire
mais lors de l'installation, il ne trouve le fichier "ppd" du package.

- Je fais alors une recherche avec la commande "search" mais il n'arrive pas à ce connecter sur un serveur du genre : ppm.activestate.com\ ....

- Comment puis-je installer ces modules suplémentaire?
- La commande "search" utilise t'elle le port 80 pour (...)

Forum Programmation.perl utilisation de Expect pour envoyer un telnet

Posté par .
Tags : aucun
0
18
oct.
2005
Bonjour,
Je suis novice en langage Perl! et je ne me m'en sort plus!!!!
j'ai un problème avec un script en perl sous windows. Il utilise le module Expect.pm pour envoyer un telnet sur un cisco, mais lors de l'exécution il me fait des erreurs du genre:


Can't locate loadable object for module IO::Tty in @INC (@INC contains: . C:/Perl/perl/lib C:/Perl/perl/site/lib .) at C:/Perl/perl/lib/IO/Tty.pm line 29
Compilation failed in require at C:/Perl/perl/lib/IO/Pty.pm line 7.
BEGIN failed--compilation aborted at C:/Perl/perl/lib/IO/Pty.pm line (...)

Forum Programmation.perl aidez moi

Posté par .
Tags : aucun
0
11
oct.
2005

bonjour a tous;

j'essaye d'interroger ma base de donnée mysql via perl;

malheuresement , mes script bugs;

mon script est:

!/usr/bin/perl

use DBI();

$dbh= DBI->connect( "DBI:mysql:mydatabase=nabil;host=192.168.1.10",

"",

"",

{'RaiseError' => 1});

my %data= ();

%data=("num_titi" => "12345a","ref_titi" => "89Fd6",

);

$query ="INSERT INTO titi_nab(num_titi,ref_titi) values('$data{"num_titi"}','$d

ata{"ref_titi"}');";

$sth = $dbh->do($query);

print" "titi_nab" $sth->{'mysql_insertid'} "inseree dans la base"!\n"";

Forum Programmation.perl Archivage de pdf locaux avec swish-e

Posté par .
Tags : aucun
0
11
oct.
2005
Bonjour,

en cherchant comment je pouvait avoir une base de donnée locale pour pouvoir indexer et fouiller mes pdf, je suis tombé la dessus:
http://www.linuxjournal.com/comment/reply/6652(...)

En bref, ça explique comment configurer swish pour faire justement ce que je veux. Ça a l'air de marcher assez bien, sauf un petit détail: le programme utilise un petit script perl permettant de convertir les pdf en xml pour l'archivage:


#!/usr/bin/perl -w
use pdf2xml;
my @files =
`find /home/alf/Travail/Biblio -name '*.pdf' -print`;
for (@files) (...)

Forum Programmation.perl Back up

Posté par .
Tags : aucun
0
10
oct.
2005
Bonjour,

je dois écrire un programme perl(ou csh script) permettant l'autorisation de la réalisation des back up intermédiaire et totaux.
Je dois aussi écrire une programme de récupération des fichiers...

Qqun a t'il une idée lumineuse ? :d


Merci !

Forum Programmation.perl Qui m'aime me suive !!

Posté par .
Tags : aucun
0
10
oct.
2005
Hi all,

Je commence à apprendre Perl et je suis vraiment "séduit" par le côté inhabituel de ce language (de cette langue plutôt, non ?). Je vous propose donc de m'aider à continuer mon apprentissage tout en sauvant le monde des abominables logiciels propriétaires... :)

Voici ce que je pense être assez instructif et intéressant pour la communauté.
Le protocole Jabber incarne le protocole ouvert pour la messagerie instantanée.
Ce protocole est prévu pour être extensible. De plus, la plupart (...)

Forum Programmation.perl Threads en Perl dans un CGI

Posté par (page perso) .
Tags : aucun
0
14
sept.
2005
J'ai un CGI qui appelle trois threads :

$thr1 = threads->new(\&sub1, "linux");
$thr2 = threads->new(\&sub1, "bsd");
$thr3 = threads->new(\&sub1, "windows");

Ensuite, je fais en sorte d'attendre les threads :

$data1 = $thr1->join;
$data2 = $thr2->join;
$data3 = $thr3->join;

La fonction sub1 est assez stupide :

sub sub1 {
my @Parametres = @_;
return "\"@Parametres\"";
}

Trois fois sur quatre, le script plante lors de l'appel au troisième thread...

Si je rajoute un sleep (5) dans la fonction, par contre, ça (...)

Forum Programmation.perl Regexps sans accents ?

Posté par (page perso) .
Tags : aucun
0
12
sept.
2005
Bonjour,

J'ai une petite question concernant les regexps. Le contexte est simple : j'essaie d'écrire un petit script qui "surligne" les occurences de mots recherchés dans un résultat de recherche.

Le problème est que le moteur de recherche en amont ne fait pas la distinction au niveau des accents. Si vous recherchez "meme", il trouvera indistinctement "meme", "même" ou "mémé".

Je me demandais donc s'il y avait moyen de faire ça facilement en Perl, ou de trouver un module qui (...)

Forum Programmation.perl Problème avec exec() en Perl/Gtk

Posté par (page perso) .
Tags : aucun
0
8
sept.
2005
Bonjour :)

Voilà : j'adore le système des Alias sous bash. Le problème c'est que lorsque je tape un alias, qui va lui-même lancer un ou plusieurs programmes, la console est inutilisable tant que l'application lancée n'est pas fermée.

Il est possible d'intégrer le lanceur de programme (Alt+F2) dans ma barre d'outils (je suis sous xfce mais je crois qu'on peut faire pareil sous gnome ou kde), malheuresement ce lanceur de programme ne gère pas les alias (ce qui est (...)

Forum Programmation.perl Gtk::Image

Posté par .
Tags : aucun
0
8
sept.
2005
Je utilise le module de Gtk2 de perl sous linux ( mandrake 10 ) .

Je souhaite créer un graphique histogramme ou camembert, je pense qu'il faut utiliser Gtk::Image mais je n'ai trouvé aucune documentation sur ce module.

J'ai besoin de tracer une ligne, un rectangle plein et une ellipse


Merci de votre aide

Forum Programmation.perl données provenant d'une mdb access

Posté par .
Tags : aucun
0
24
août
2005
Bonjour à tous,

j'ai besoin de récupérer des données d'une base de donnée Access pour les transformer et les injecter dans une db mysql.
J'arrive à connecter les db sans problèmes mais les données récupérées sont dans un format posant des problèmes sous ubuntu (les accents ressemblent à des losanges).

Je précise que tous mes softs et mon bash utilise les caractères accentués sans problèmes.
Ma locale est en UTF-8.
J'ai essayé de changer la locale (en iso8859 pour le (...)

Forum Programmation.perl code perl remplacement automatique dans un fichier texte

Posté par .
Tags : aucun
0
23
août
2005
Je voudrais réaliser à l'aide d'un script perl les actions suivantes:

1)renommer une chaine de caractères (en fait intercaller :
- dans un fichier texte, rechercher une séquence générique seq1
- regarder si la longueur de la sequence qui suit (mot suivant) est supérieure à 1
- si oui, alors intercaller un "_" entre chaque lettre
- le répéter jusqu'à la fin du fichier pour chaque paragraphe

2) modifier une valeur dans un fichier:
rechercher toutes les lignes commençant par (...)

Forum Programmation.perl calcul de la taille d'un répertoire

Posté par .
Tags : aucun
0
22
août
2005
Bonjour,

Je voudrais savoir s'il existait un moyen d'obtenir la taille d'un répertoire. Pour avoir la taille d'un fichier particulier, j'utilise la fonction perl "stat". Je trouve assez fastidieux d'utiliser cette fonction dans une boucle pour calculer la taille d'un ensemble de fichiers...

J'ai pensé faire par exemple :

system('du -s /home/monrep');

mais le résultat du "du" me rend la taille suivi du répertoire en question... je désire avoir seulement un résultat numérique...

Auriez vous une meilleur solution? Merci pour (...)

Forum Programmation.perl Probleme libapache2-request-perl

Posté par .
Tags : aucun
0
16
août
2005
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 (...)

Forum Programmation.perl padb2csv

Posté par (page perso) .
Tags : aucun
0
11
août
2005
Ce post fait suite à http://linuxfr.org/forums/12/10604.html(...)

J'avais demandé comment convertir un fichier Palm vers autre chose et Ellendhel (http://linuxfr.org/~Ellendhel/)(...) m'avais proposé ce script http://www.cpan.org/authors/id/A/AK/AKOLB/padb2csv(...)

En essayant, j'ai pas mal de problèmes ... d'accents (ou plutôt de caractères spéciaux) mais je ne suis pas sur. J'ai une chi** de parse() failed du style :


parse() failed on argument: * Luis 11/8/60
* Colette 23/9/56
* Luisito 7/8/89
* Lucie 26/7/88
* Juliette 20/2/88
* Diego 26/4/87
parse() failed on argument: (...)

Forum Programmation.perl Switch en perl 5.8 qui veut pas compiler

Posté par .
Tags : aucun
0
9
août
2005
Quelqu'un pourrait me dire pourquoi ce gros naze de perl 5.8 (testé avec ActivePerl 5.8.7 build813 sous Windows 2000 et perl 5.8.1 sous Mac OS X), refuse de compiler ce pauvre script :


use Switch;

my $maxreq = 2147483646;

&check_updates(1);

sub check_limit
{
my $sz = int($maxreq / 1024);

return "(< $sz Kb)" if $sz < 1024;

# Seems to trigger the error
$sz = int($maxreq / (1024 * 10.24)) / 100;

return "(< $sz Mb)" if $sz < 1024;
(...)

Forum Programmation.perl problème sympa (gestionnaire de mailing-lists)

Posté par .
Tags : aucun
0
2
août
2005
Voilà.

J'essaye de faire tourner sympa sur une redhat (sur laquelle il n' y a pas de package), et lorsque je le lance, j'ai une erreur sur le chargement d'un module perl :

[sympa@dsadv00003:~] # /etc/init.d/sympa start
Starting Sympa subsystem:
Starting module sympa.pl: Can't locate loadable object for module XML::LibXML::Common in @INC (@INC contains: /usr/product/sympa/bin /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/XML/LibXML.pm line 11
Compilation failed in require at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/XML/LibXML.pm line 11.
BEGIN failed--compilation aborted at (...)