Bonjour à tous,

Je programme actuellement un script perl sur un linux embarqué. Je suis sur une plateforme ARM. Le script perl que je programme fait appel à une dizaine de modules (pm) que j'ai créer. Le script perl permet de lancer différents traitements sous forme de threads. Je souhaiterai lancer une trentaine de threads. Or étant sur un linux embarqué, je dispose que de 16Mo de mémoire (extensible à 32Mo). Mon script perl de base contient l'ensemble des bibliothèques (…)

Bonjour,

Cela fait quelques temps que je navigue sans résultat sur le CPAN à la recherche de la fonctionnalité suivante : Avoir la liste des dépendances d'un module et ceci de manière récursive (exemple pour le module CGI::Builder::Session j'aurais les dépendances CGI::Builder et CGI::Session qui elles mêmes me donneraient récursivement CGI, POE ... et ainsi de suite jusqu'aux modules les plus élémentaires).

J'ai besoin de cette fonction afin de récupérer tous les modules utilisés par mon application pour l'installer sur (…)

Bonjour,
J'amerais convertir un flux ISO-8859-1 en UTF-8 en perl... sans devoir passer par de fichiers ? y a-t-il un moyen ?
Je travaille avec perl 5.8.7, je reçois un flux en ISO-8859-1 et j'aimerais le convertir en UTF-8.
Je ne trouve pas de moyens à part en écrivant des fichiers, ce que j'aimerais éviter...
Y a-t-il des posibilités ? Quelqu'un peut m'aider ? Y existe-t-il des exemples ? Comment savoir le format du flux que j'obtiens ?
merci d'avance.
(…)

Bonsoir, suite à https://linuxfr.org/~golum/20068.html , j'ai écrit en perl le code correspondant.

Je suis politiquement content puisqu'il marche, mais informatiquement dubitatif puisqu'il me bouffe plus de 40 mo au bout d'une heure d'utilisation.

De bonne âmes pourraient-elles m'expliquer pourquoi (pour apprendre aux lecteurs ignorants) et proposer des solutions ?
Merci :)

Voici le code :

#!/usr/bin/perl

use WWW::Mechanize;

use strict;
use diagnostics;
use warnings;

my @url_list =
(
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

(…)

Bonjour à tous.

Je suis en train de faire un p'tit script perl pour ajouter facilement des alias dans le fichier ~/.bash_alias. Pour éviter que l'utilisateur n'entre n'importe quoi, je voudrais contrôler la syntaxe de l'alias entré par une regexp.

Le pattern est donc le suivant : nom_sans_espace='des commandes'

Je n'arrive pas à créer la regexp correspondante. Vous pouvez m'aider ?

Merci :)

Grmpf! Il y a des clients mail windows qui ne suivent pas la RFC 1522 (quelle surprise, me direz-vous), et ça donne des sujets de mail imcompréhensible pour
- le module MIME::WordDecoder de perl
- le logiciel ripmime

Par exemple, voici un extrait de mail reçu:
...
Subject: Avis de =?windows-1252?Q?r=E9ception_d=27un_paiement=5D?=
...

Pour les "=E9", "=27" et "=5D", pas de problèmes, c'est standard. Mais comment gérer le "?windows-1252...", en perl de préférence ?

autamatique du langage médical".

le professeur, nous a confié un projet en perl, le programme doit faire appel à un script.bat.
notre problème c'est qu'on ne sais pas comment appeler un script (.bat) à l'interieur d'un programme perl, où bien comment on peut mettre les lignes du script dans le programme perl!!
rmq: le script dont je parle est une suite de commande qui permet d'exploiter un logiciel OpenSource " UNITEX" pour le traitement et la recherche des _expression dans (…)

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

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

J'ai trouver un module en perl que je n'ai pas trouvé en shell mais je n'ai pas d'autre choix que de lancer mon programme en shell.

Ma problématique est maintenant d'exporter une variable de perl vers le shell.

Est-ce possible ?

Merci :-)

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

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

je suis devant mon serveur mysql depuis 4 jours
alors ,il y'a quelqu'un qui veux m'aider merci

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"";

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

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 !

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

Connaissez-vous un hébergeur Web pas trop cher qui propose un support généreux du Perl (version 5.6 et module threads activé) ?
J'ai besoin de peu de place et de peu de bande passante mais d'un bon support de Perl.

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

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

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

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

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

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

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