Bonjour, je suis en train de coder un petit programme qui transforme certaines séquences de code C en code d'un autre langage, lisaac, pour le besoin d'un ami qui doit traduire 50000 lignes de C en ce langage.
J'en ai profité pour découvrir Perl.
Je travaille sur le problème suivant :
traiter int a,*b,c,*d; qui se tranforme en
+ a,c : INTEGER;
+ b,d : ARRAY[INTEGER];
mon problème est de détecter et séparer les tableau des entiers statiques.
j'ai donc (…)
Forum Programmation.perl perl/tk
je develop une interface en perl/tk et je veux imprimer le contenu d une frame cette frame contient le dirtree
Forum Programmation.perl je veux apprendre le perl
Etant donner que je suis interessé par le perl pour la programmation reseau et systeme, je suis pas tellement bon dans la programmation de base avec les langages java,php ,c et c++. Mais etant donner que je suis fan de reseau et systeme, ce langage m'interesse beaucoup pour les scripts. Quelqu'un pourrait me proposer un livre pour commencer dans ce langage. J'ai trouve un bon site dessus, quelqu'un pourrait me conseiller et m'orienter.
Merci d'avance
Dan Kakon
Merci d'avance
Dan Kakon
Forum Programmation.perl Un "ls -rtl" récursif
J'utilise énormément ls -rtl pour visualiser plus rapidement les derniers fichiers modifiés dans un répertoire : ça permet facilement de voir les derniers fichiers de conf modifiés, les derniers fichiers de log créés, etc. Mais comment faire cela récursivement ? Je n'ai trouvé aucune commande pour le faire, alors je l'ai fait moi-même en Perl :
http://zarb.org/~gc/html/find_recent.html(...)
Peut-être que ça en aidera d'autres...
http://zarb.org/~gc/html/find_recent.html(...)
Peut-être que ça en aidera d'autres...
Forum Programmation.perl Lancer un programme depuis perl et sortie
Que se passe t'il lorsqu'on lance un programme binaire depuis un script perl
La sortie du programme devient t'elle la sortie du script perl ?
Le prog attent t'il la fin de l'execution du premier programme ou lance t'il tout de suite le second
En gros puis-je uttiliser perl plutot qu'un script shell
pour lancer plusieurs fois un programme avec des arguments defini par une boucle for Tout en ayant la sortie sur STDOUT ?
est ce que
for i,j
(…)
La sortie du programme devient t'elle la sortie du script perl ?
Le prog attent t'il la fin de l'execution du premier programme ou lance t'il tout de suite le second
En gros puis-je uttiliser perl plutot qu'un script shell
pour lancer plusieurs fois un programme avec des arguments defini par une boucle for Tout en ayant la sortie sur STDOUT ?
est ce que
for i,j
(…)
Forum Programmation.perl extraction de pièce jointes sur boite IMAP
Salut à tous, Voilà des jours que je bloque sur Perl. Je suis un piètre programmeur et je me suis mis à Perl voilà 2 semaines, et je galère comme pas possible. Mon script doit extraire la pièce jointe du dernier mail arrivé dans une boite IMAP. Je dois pas en être loin, puisque mon script arrive à afficher le contenu du message grâce au module IMAP:Talk. Le problème, c'est qu'ensuite j'essaye de passer le message au module Attachment::stripper. Celui (…)
Forum Programmation.perl heritage variable
Bonjour,
J'exécute un .bat qui lui même appel un programme PERL
qui doit me fournir une variable pour le .bat d'origine.
Comment dois je faire pour que l'héritage de la variable se fasse bien?
Merci
J'exécute un .bat qui lui même appel un programme PERL
qui doit me fournir une variable pour le .bat d'origine.
Comment dois je faire pour que l'héritage de la variable se fasse bien?
Merci
Forum Programmation.perl adaptation cssh en telnet
Bonjour,
je ne connais assez perl pour modifier le script cssh.
je souhaite faire la même chose que le script cssh mais avec telnet pas avec du ssh.
Je sais telnet n'est pas sécuriser, mais je n'ai pas le choix.
Quelqu'un peut il m'aider a adapter ce script pour faire du telnet au lieu du ssh ?
Ci-dessous le script. Merci d'avance pour toutes réponses.
#!/usr/bin/perl
my $VERSION = '$Revision: 3.19 $ ($Date: 2006/07/24 19:12:54 $)';
# Now tidy it (…)
je ne connais assez perl pour modifier le script cssh.
je souhaite faire la même chose que le script cssh mais avec telnet pas avec du ssh.
Je sais telnet n'est pas sécuriser, mais je n'ai pas le choix.
Quelqu'un peut il m'aider a adapter ce script pour faire du telnet au lieu du ssh ?
Ci-dessous le script. Merci d'avance pour toutes réponses.
#!/usr/bin/perl
my $VERSION = '$Revision: 3.19 $ ($Date: 2006/07/24 19:12:54 $)';
# Now tidy it (…)
Forum Programmation.perl Bugzilla
Bonjour à tous;
Estce-ce que quelqu'un peut me donner des infos (bugs, succes, compatiblité avec d'autes langages) sur bugzilla svp!
Merci.
Forum Programmation.perl Coloriser les caractères d'un résultat
Bonjour,
Pouvez-vous me dire s'il est possible d'afficher le résultat d'un programme Perl avec des couleurs et tailles de caracteres différentes des caractères standards?
Merci
Pouvez-vous me dire s'il est possible d'afficher le résultat d'un programme Perl avec des couleurs et tailles de caracteres différentes des caractères standards?
Merci
Forum Programmation.perl mettre les données d'un fichier dans un tableau
Bonjour les mongueurs ;)
Hypothèses de départ :je ne sais pas du tout programmer en Perl (et très peu en autre chose), Je me soigne Je fais de l'astro avec des fichiers de données MON-STRU-EUX
Objectifs : Retirer les données du fichier et les avoir sous forme de tableau (ou autre possibilité plus pratique auquel je ne pense pas)
Format du fichier : (attention long)
Enter starting date of tabulation
Calendar date: Year (1986) ? Month (1-12) (1) ? (…)
Hypothèses de départ :
Objectifs : Retirer les données du fichier et les avoir sous forme de tableau (ou autre possibilité plus pratique auquel je ne pense pas)
Format du fichier : (attention long)
Enter starting date of tabulation
Calendar date: Year (1986) ? Month (1-12) (1) ? (…)
Forum Programmation.perl mod_perl2, CGI, et POST
Bonjour,
Depuis hier, je tente de porter mon script python écrit en 5min qui utilise mod_python pour simplement récupérer un fichier envoyé par un client via un POST. Super simple donc.
Maintenant, j'ai des contraintes, je dois utiliser perl. Je me suis donc tourner vers mod_perl qui semble bien plus efficace qu'un simple CGI (surtout que je vais recevoir des rafales de plusieurs centaines de requetes). Autre contrainte, ma distribution basée sur RedHat ne semble pas avoir de paquet pour (…)
Depuis hier, je tente de porter mon script python écrit en 5min qui utilise mod_python pour simplement récupérer un fichier envoyé par un client via un POST. Super simple donc.
Maintenant, j'ai des contraintes, je dois utiliser perl. Je me suis donc tourner vers mod_perl qui semble bien plus efficace qu'un simple CGI (surtout que je vais recevoir des rafales de plusieurs centaines de requetes). Autre contrainte, ma distribution basée sur RedHat ne semble pas avoir de paquet pour (…)
Forum Programmation.perl WebCam Jabber et Perl
Bonjour,
Je voudrai réaliser une "preuve de concept" de l'idée de faire passer du flux webcam via jabber (le fameux manque de webcam...)
Afin de faire un dev rapide j'ai choisi le langage perl avec le module Video::Capture::V4l.
Mais je n'arrive pas à avoir une image simple de la webcam !
Quelqu'un a-t-il réussi à chopper une image de sa webcam via v4l en Perl ?
Je voudrai réaliser une "preuve de concept" de l'idée de faire passer du flux webcam via jabber (le fameux manque de webcam...)
Afin de faire un dev rapide j'ai choisi le langage perl avec le module Video::Capture::V4l.
Mais je n'arrive pas à avoir une image simple de la webcam !
Quelqu'un a-t-il réussi à chopper une image de sa webcam via v4l en Perl ?
Forum Programmation.perl Cacher un mot de passe dans le fichier
Bonjour,
J'ai créer un programmen Perl-GTK qui utilise des fonctions mysql. Ce programme va changer des valeur d'une table Mysql selon le bouton cliqué dans le programme. Ca marche bien.
Par contre chaque utilisteur doit pouvoir l'executer, le problème c'est que executer signifie aussi lire et donc ils peuvent voir le mot de passe de ma base mysql fourni dans la fonction :
DBI->connect("DBI:mysql:mabase:localhost","login","pass")
Merci pour vos idées afin d'empecher de lire le mot de passe mais que tout le (…)
J'ai créer un programmen Perl-GTK qui utilise des fonctions mysql. Ce programme va changer des valeur d'une table Mysql selon le bouton cliqué dans le programme. Ca marche bien.
Par contre chaque utilisteur doit pouvoir l'executer, le problème c'est que executer signifie aussi lire et donc ils peuvent voir le mot de passe de ma base mysql fourni dans la fonction :
DBI->connect("DBI:mysql:mabase:localhost","login","pass")
Merci pour vos idées afin d'empecher de lire le mot de passe mais que tout le (…)
Forum Programmation.perl Question sur Perl-Gtk !
Bonjour,
J'ai fait un petit programme en Perl-Gtk. J'ai un bouton "Envoyer" et j'aimerais que le clic sur ce bouton affiche un Label du genre "patienter..." et le cache sur un evenement (pour moi Valeur 1 dans une base SQL).
J'ai donc fait :
----
while($valeur==0){
$label-show();
$valeur= result_interrogation_sql();
}
$label-hide();
Mon problème c'est quand je met cela en place le clic sur le bouton il reste enfoncé et mon label ne s'affiche jamais. La situation se débloque quand $valeur=1 (…)
J'ai fait un petit programme en Perl-Gtk. J'ai un bouton "Envoyer" et j'aimerais que le clic sur ce bouton affiche un Label du genre "patienter..." et le cache sur un evenement (pour moi Valeur 1 dans une base SQL).
J'ai donc fait :
----
while($valeur==0){
$label-show();
$valeur= result_interrogation_sql();
}
$label-hide();
Mon problème c'est quand je met cela en place le clic sur le bouton il reste enfoncé et mon label ne s'affiche jamais. La situation se débloque quand $valeur=1 (…)
Forum Programmation.perl Lignes avec mots identiques
Comment trouver les lignes contenant le même mot dans un fichier texte en langage PERL.
Merci
Merci
Forum Programmation.perl compilateur linux
Bonjour,
j'aimerais savoir ou je peus me procurer un compilateur pascal pour linux
et avoir aussi un exemple de code pascal
et savoir les commandes pour compiler
Merci
j'aimerais savoir ou je peus me procurer un compilateur pascal pour linux
et avoir aussi un exemple de code pascal
et savoir les commandes pour compiler
Merci
Forum Programmation.perl Perl, AIX et les limits
Bonjour,
Voilà je rencontre un soucis avec Perl sous AIX, je cherche à comprendre pourquoi un paramètre sytème n'est pas pris en compte dans l'environnement de Perl.
J'ai configuré sous AIX les limit avec les valeurs suivantes :
Ces paramètres sont bien pris en compte par n'importe quelle session shell SAUF dans l'environnement Perl :
Voilà je rencontre un soucis avec Perl sous AIX, je cherche à comprendre pourquoi un paramètre sytème n'est pas pris en compte dans l'environnement de Perl.
J'ai configuré sous AIX les limit avec les valeurs suivantes :
time(seconds) unlimited
file(blocks) unlimited
data(kbytes) unlimited
stack(kbytes) unlimited
memory(kbytes) unlimited
coredump(blocks) 2097151
nofiles(descriptors) 2000
Ces paramètres sont bien pris en compte par n'importe quelle session shell SAUF dans l'environnement Perl :
# perl
system("ulimit -a");
time(seconds) unlimited
file(blocks) unlimited
data(kbytes) 2097152
stack(kbytes) (…)
Forum Programmation.perl regexp en folie
Engagé dans mon entreprise de réaliser un script transformant quelques séquences de langage C en langage lisaac, j'ai développé mon premier programme perl à cette fin. Globalement ça marche moyennant quelques problèmes.
Je sais, je ferai mieux d'utiliser un parser, mais je n'ai que peu de temps à y consacrer et de toutes façon on cherche juste à transformer quelques expression (inverser des if, transformer des = en :=, tranformer des tab[5][8][xio45] en tab.item 5,8,xio45, etc..).
Bref juste les trucs (…)
Je sais, je ferai mieux d'utiliser un parser, mais je n'ai que peu de temps à y consacrer et de toutes façon on cherche juste à transformer quelques expression (inverser des if, transformer des = en :=, tranformer des tab[5][8][xio45] en tab.item 5,8,xio45, etc..).
Bref juste les trucs (…)
Forum Programmation.perl date en milliseconde
Bonjour,
Je voudrais savoir si quelqu'un connaissait le moyen en Perl pour connaître le temps en milliseconde depuis 1970 puis pour l'afficher avec un formatage "classque". La fonctions time() donne ce temps mais seulement en seconde. Je peux biensur faire une multiplication, mais je voudrais le temps précis.
J'ai essayé de me tourner vers le module DateTime mais je ne trouve pas de fonction de la sorte.
Merci
Je voudrais savoir si quelqu'un connaissait le moyen en Perl pour connaître le temps en milliseconde depuis 1970 puis pour l'afficher avec un formatage "classque". La fonctions time() donne ce temps mais seulement en seconde. Je peux biensur faire une multiplication, mais je voudrais le temps précis.
J'ai essayé de me tourner vers le module DateTime mais je ne trouve pas de fonction de la sorte.
Merci
Forum Programmation.perl mettre les données d'un fichier dans un tableau
j'ai fichier du genre A nombre et je souhaite mettre les données dans un tableau
et 0 si A n'est pas présent
comme j'ai vu le précédent message sur le sujet j 'ai essayé d'adapter a mon cas ,mais ça ne marche pas
je débute sous perl et malgré la doc que j'ai lu cet aprés-midi je n'avance pas d'un pouce
deuxième question comment on lit le tableau
et 0 si A n'est pas présent
comme j'ai vu le précédent message sur le sujet j 'ai essayé d'adapter a mon cas ,mais ça ne marche pas
je débute sous perl et malgré la doc que j'ai lu cet aprés-midi je n'avance pas d'un pouce
deuxième question comment on lit le tableau
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é
(…)
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 Coupage de string
Bonjour tout le monde,
Je début le perl, j'ai lu toutes les questions sur le forum perl, et je ne trouve pas la réponse à ma question.
Voila mon petit probleme je recupere dans un tableau apellé '@LIST' la commande `ls -l $PATH` avec '$PATH' le chemin d'un dossier passé en parametre. Je l'affiche dans un jolie 'foreach' pas de probleme. Maitenant il faut que je traite toutes les reponse de la commande une a une.
Les valeures stockées dans (…)
Je début le perl, j'ai lu toutes les questions sur le forum perl, et je ne trouve pas la réponse à ma question.
Voila mon petit probleme je recupere dans un tableau apellé '@LIST' la commande `ls -l $PATH` avec '$PATH' le chemin d'un dossier passé en parametre. Je l'affiche dans un jolie 'foreach' pas de probleme. Maitenant il faut que je traite toutes les reponse de la commande une a une.
Les valeures stockées dans (…)
Forum Programmation.perl Maypole
Salut,
J'ai installé Maypole avec succès (comprendre que tout les modules nécessaires ont été installés sans message d'erreur à la fin), et donc, je teste la base de données offerte, à savoir la fameuse BeerDB.
Et là, je me reçoit un "Internal Server Error", et dans mon error.log, j'ai :
Cela dit quelque chose à quelqu'un ?
J'ai installé Maypole avec succès (comprendre que tout les modules nécessaires ont été installés sans message d'erreur à la fin), et donc, je teste la base de données offerte, à savoir la fameuse BeerDB.
Et là, je me reçoit un "Internal Server Error", et dans mon error.log, j'ai :
[Wed May 25 22:58:02 2005] [error] Can't call method "_table2class" on an undefined value at /usr/share/perl5/Maypole/Model/CDBI.pm line 250.\n
Cela dit quelque chose à quelqu'un ?