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

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

je cherche la formule pour calculer le temps d'acces d'un fichier que n'a pas été modifié minimun 90 jours.

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

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

Bonjour,

Je voudrais remplacer toutes les occurences d'une chaîne se trouvant dans un fichier par une autre chaîne.

Auriez vous des pistes à m'indiquer pour pouvoir réaliser cela? de tels fonctions existent-elles déjà?

Merci de vos éclaircissement.