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 Regexps sans accents ?
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 (…)
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 Gtk::Image
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
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 calcul de la taille d'un répertoire
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 (…)
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 données provenant d'une mdb access
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 (…)
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 formule
je cherche la formule pour calculer le temps d'acces d'un fichier que n'a pas été modifié minimun 90 jours.
Forum Programmation.perl code perl remplacement automatique dans un fichier texte
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 (…)
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 substitution d'une chaine dans un fichier texte
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.
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.
Forum Programmation.perl Switch en perl 5.8 qui veut pas compiler
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 padb2csv
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 :
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 Recherche de developpeurs Perl et Java
Je suis à la recherche de développeurs Perl pour le projet pooos (aka Open Messenger Service).
http://sourceforge.net/projects/poooms/(...)
Le but est de créer un systeme de messagerie instantanée open-source.
Tout la description est sur le site.
Julien
http://sourceforge.net/projects/poooms/(...)
Le but est de créer un systeme de messagerie instantanée open-source.
Tout la description est sur le site.
Julien
Forum Programmation.perl problème sympa (gestionnaire de mailing-lists)
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 (…)
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 (…)
Forum Programmation.perl les threads ...
Je cherche a comprendre comme on s'en sert en PERL.
Voire mieux : les threads GTK2.
Mais la doc est bien pauvre et le me tape un message :
Voire mieux : les threads GTK2.
Mais la doc est bien pauvre et le me tape un message :
This Perl hasn't been configured and built properly for the threads
module to work. (The 'useithreads' configuration option hasn't been used.)
Having threads support requires all of Perl and all of the XS modules in
the Perl installation to be rebuilt, it is not just a question of adding
the threads (…)
Forum Programmation.perl rexep exception
Bonjour à tous,
J'utilise actuellement un plugin pour nagios, écrit évidemment en Perl, qui me permet d'avoir les états des interfaces réseaux en fonction d'une regexp sur le nom. Or, j'aimerais pouvoir mutualiser au possible la définition du service qui s'en suivra. Aussi, j'aimerais donc avoir toutes les interfaces sauf une: "MS TCP Loopback interface".
Merci d'avance,
J'utilise actuellement un plugin pour nagios, écrit évidemment en Perl, qui me permet d'avoir les états des interfaces réseaux en fonction d'une regexp sur le nom. Or, j'aimerais pouvoir mutualiser au possible la définition du service qui s'en suivra. Aussi, j'aimerais donc avoir toutes les interfaces sauf une: "MS TCP Loopback interface".
Merci d'avance,
Forum Programmation.perl Source Perl
bonjour,
Voila j'ai deux problèmes. Je suis sous linux, j'ai télécharger le source de Perl et je souhaiterai compiler le source pour avoir Perl sur une plateforme ARM. Je vois pas comment faire.
Deuxième chose je souhaiterai brider ma version du Perl, c'est à dire par exemple, de lui interdire la fonction open: je souhaiterai faire ça au moment de l'install du source. Je me demande si c'est pas possible dans le .config que configure génère.
si qqn a une (…)
Voila j'ai deux problèmes. Je suis sous linux, j'ai télécharger le source de Perl et je souhaiterai compiler le source pour avoir Perl sur une plateforme ARM. Je vois pas comment faire.
Deuxième chose je souhaiterai brider ma version du Perl, c'est à dire par exemple, de lui interdire la fonction open: je souhaiterai faire ça au moment de l'install du source. Je me demande si c'est pas possible dans le .config que configure génère.
si qqn a une (…)
Forum Programmation.perl Utilisation de Net::LDAP
Salut tout le monde , j'ai un petit problème: je suis en train d'écrire un logiciel en perl dans lequel j'ai besoin d'effectuer une recherche dans un annuaire Ldap;les résultats de cette recherche sont ensuite affichés sur une page web(use DBI).Malheureusement, lorsque je fais mon bind le script s'interrompt et je ne peux meme pas récupérer de message d'erreur avec msg->code ou msg->error. Le pire c'est que si je sors ce passage ldap de mon script et que je le (…)
Forum Programmation.perl recherche de fichiers dans un arborescence
salut,
svp je cherche un script Perl qui me permet de chercher des fichiers dans un dossier en incluant ses sous dossiers dans la recherche.
MERCI
svp je cherche un script Perl qui me permet de chercher des fichiers dans un dossier en incluant ses sous dossiers dans la recherche.
MERCI
Forum Programmation.perl conversion MAJ >> min
svp comment faire une conversion des chaines majiscule en minuscule et vice versa
merci
merci
Forum Programmation.perl Suppression de fichier selon la date de creation
Bonjour à tous,
je suis un débutant en perl, je cherche à faire un perl qui me permettrait de supprimer des fichiers dans un repertoire selon leur date de creation.
exemple : supprimer tous les fichiers dont la date de creation est inférieur de 1 mois par rapport à la date du jour.
Quelqu'un pourrait-til m'aider.
merci par avance
je suis un débutant en perl, je cherche à faire un perl qui me permettrait de supprimer des fichiers dans un repertoire selon leur date de creation.
exemple : supprimer tous les fichiers dont la date de creation est inférieur de 1 mois par rapport à la date du jour.
Quelqu'un pourrait-til m'aider.
merci par avance
Forum Programmation.perl Recuperer une valeur en Perl sur un site
Bonjour,
j aurais voulu savoir si il etait possible de recuperer une valeur en Perl en plein milieu d une page web ? ou est ce qu un autre langage serait plus adapte ?
exemple :
-la page est la suivante :
http://us.expasy.org/uniprot/Q8X0Z6(...)
- et je voudrais recuperer la valeur "Primary accession number" (2eme case du tableau) pour la stocker dans un fichier excel.
merci d avance
Forum Programmation.perl Cross compilation
Bonjour,
je suis actuellement sur une plateforme i386 (et sous linux). Je souhaiterai compiler sur cette plateforme, un source Perl pour une plateforme ARM : en gros faire de la cross compilation.
Si qqn a une idée, …
Merci par avance
Forum Programmation.perl Analyse de code C++
Hello !
Non, ne vous inquiétez pas, je ne pense pas m'être trompé de forum…
Je cherche en fait un "bout de code" qui pourrait me permettre d'analyser et de remplacer des parties de sources qui sont en C++. Je penses que Perl est le mieux adapté, alors je poste donc ici.
L'idéal serait pour moi que le script me permette d'accéder à des classes / structures qui représentent mon code : les variables, les appels de fonctions, avaec quels paramètres, (…)
Forum Programmation.perl Dynaloader
Bonjour,
Je souhaiterai utiliser des bibliothèques (C) de façon dynamique pour un programme en Perl. Je sais qu'on peut le faire avec Dynaloader mais je trouve pas d'exemple ou de docs en Français expliquant comment s'en servir. Si vous connaissez son fonctionnement , faites moi signe svp
Merci par avance
jb
Je souhaiterai utiliser des bibliothèques (C) de façon dynamique pour un programme en Perl. Je sais qu'on peut le faire avec Dynaloader mais je trouve pas d'exemple ou de docs en Français expliquant comment s'en servir. Si vous connaissez son fonctionnement , faites moi signe svp
Merci par avance
jb
Forum Programmation.perl Regexp
Bonjour à tous,
J'ai un problème d'expression régulière.
Je veux une expression qui reconnaisse par exemple "lockdev-1.0.0-1.2" mais pas "lockdev-devel-1.0.0-1.2". (Après, ce sera à généraliser pour d'autre termes que lockdev, mais ce ne sera plus un problème).
Cette expression sera utilisée dans une syntaxe du style:
Cela interdit l'usage de syntaxe du style !~ ou des if imbriqués.
Ce que j'ai tenté, mais qui ne passe pas:
(…)
J'ai un problème d'expression régulière.
Je veux une expression qui reconnaisse par exemple "lockdev-1.0.0-1.2" mais pas "lockdev-devel-1.0.0-1.2". (Après, ce sera à généraliser pour d'autre termes que lockdev, mais ce ne sera plus un problème).
Cette expression sera utilisée dans une syntaxe du style:
if ("lockdev" =~ /$maJolieExpression/) {
print "OK\n";
}
else {
print "KO\n";
}
Cela interdit l'usage de syntaxe du style !~ ou des if imbriqués.
Ce que j'ai tenté, mais qui ne passe pas:
(…)
Forum Programmation.perl Script Perl pour transferts FTP
Bonjour,
Je débute en Perl et je cherche une bonne âme qui pourrait me donner un tuyau sur ce que je veux faire :
Je voudrait automatiser (sûrement avec un CRON) la connexion à un site FTP pour faire
- un PUT de fichiers avec une extension commune (*.t0? : par ex *.t01 et *.t02.....)
- un GET d'autres fichiers avec une autre extension (*.t?0 : par ex *.t10 et *.t20) et supprimer chaque fichier du site une fois téléchargé
(…)
Je débute en Perl et je cherche une bonne âme qui pourrait me donner un tuyau sur ce que je veux faire :
Je voudrait automatiser (sûrement avec un CRON) la connexion à un site FTP pour faire
- un PUT de fichiers avec une extension commune (*.t0? : par ex *.t01 et *.t02.....)
- un GET d'autres fichiers avec une autre extension (*.t?0 : par ex *.t10 et *.t20) et supprimer chaque fichier du site une fois téléchargé
(…)