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

je develop une interface en perl/tk et je veux imprimer le contenu d une frame cette frame contient le dirtree

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

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

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

(…)

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

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

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

Bonjour à tous;

Estce-ce que quelqu'un peut me donner des infos (bugs, succes, compatiblité avec d'autes langages) sur bugzilla svp!

Merci.

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

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

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

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 ?

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

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

Comment trouver les lignes contenant le même mot dans un fichier texte en langage PERL.

Merci

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

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 :


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

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

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

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

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é

(…)

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:


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

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 problème je récupère dans un tableau appelé '@LIST' la commande ls -l $PATH avec '$PATH' le chemin d'un dossier passé en paramètre. Je l'affiche dans un jolie 'foreach' pas de problème. Maintenant il faut que je traite toutes les réponses de la commande une a une.

Les valeures stockées dans (…)

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 :

[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 ?