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

Bonjour,

Dans un programme en perl-gtk ? est-il possible d'interdire plusieurs instances du programme / de ne pas avoir la possiblité de le lancer deux fois en meme temps ?

Merci

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

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,

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,

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,

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

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

(…)

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

Je voudrai savoir si en perl, il existe une fonction qui permet de retourner l'adresse mac.

Merci d'avance

Dan

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

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

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

bonjour,

je suis à la recherche d'un programme me permettant de chercher des motifs (via des regexp) dans différents fichiers d'une arborescence, afin d'y effectuer des remplacements en série, sachant que les chaines que je veux insérer, contiendront des bouts de chaines matchées (entendre par là les références arrières)

Bref je sais pas si c'est très clair, donc un ptit exemple :
je recherche
"plop (.+?), ca va \?" --> va matcher "plop cho7, ca va ?"
et je remplace (…)

Bonjour,

J'ai construit un wrapper perl pour un des mes projects (wzdftpd) en utilisant perlxs. Il se contruit et s'installe correctement, mais impossible de le desinstaller:

make uninstall


Uninstall is unsafe and deprecated, the uninstallation was not performed.

We will show what would have been done.


no packlist file found:  at /usr/share/perl/5.8/ExtUtils/Install.pm line 318.

Si j'essaye la commande manuellement, rien de mieux:

perl "-MExtUtils::Command::MM" -e uninstall /home/pollux/DEL/lib/perl/5.8.4/auto/wzdftpd/.packlist


Uninstall is unsafe and deprecated, the uninstallation was not performed.
We will show (…)

Comment invoque-t-on une fonction située dans une table de hashage déclarée dans un autre paquetage?
Le truc qui merde le moins, c'est :
$attaques::list->{$natt}->(\$lanceur,\$preneur);
sachant que
$attaques::list->{$natt}(\$lanceur,\$preneur); donne le même msg d'erreur.
list est bien délcaré avec our.

Bonjour,

Bon voilà, j'use et j'abuse de "require truc.pl" quand je peux mettre du code partagé entre différentes applications dans un fichier truc.pl (j'ai hérité ça du C).

Vous allez me dire, c'est une bonne idée, ca permet de maintenir un peu plus facilement le code. Le problème est que Perl n'est pas (trop) prévu pour ça.

Mon cas (avec /usr/local/ comme préfixe, par exemple):
- les binaires sont dans bin.
- truc.pl devrait se trouver dans share/nom_du_soft/.

Jusqu'à présent, (…)

Bonjour,

Tout est dans le titre.
Dans mon cas, j'ai une chaîne qui contient du texte. A côté, j'ai un tableau rempli d'éléments (environ 100-200), dont certains contiennent du code d'expression régulière. L'objectif est de savoir, pour chaque élément du tableau, s'il est contenu dans la chaîne (et éventuellement de le renvoyer dans un autre tableau).

Ce que je fais, c'est un grep, du genre:
@nouveau_tableau = grep($ma_chaine =~ m/$_/, @mon_tableau);

J'ai essayé aussi avec un foreach.

Le problème, c'est (…)

Bonjour,

Voilà, je crée actuellement un logiciel en Perl (que je devrais bientôt rendre public) et j'ai envie de faire une traduction.

C'est pour cela que j'en appelle à votre science et votre expérience. Si vous avez déjà fait ça, comment l'avez-vous fait ?

Pour info, ce logiciel fait moins de 1500 lignes de code (~1200 sans les commentaires), ce dont je suis plutôt content car les logiciels du même genre font plutôt 3000 lignes avec des fonctionnalités en moins. (…)

Salut tout le monde,

Comme j'ai un peu de temps libre, je me mets au Perl. Actuellement, j'écris un programme qui va chercher des images sur un site, les sauvegarde et écrit les données ITPC en fonction de ce qu'il a trouvé sur la page.

Jusque là, grâce aux articles des mongueurs, je m'en sors sans trop de problème. Merci à eux d'ailleurs pour leur beau boulot. Mais y a un petit détail qui me chiffonne... Vu que le prog (…)

Salut !!!!

Je cherche desesperement à écrire avec perl un fichier binaire avec plein d'informations....

J'ai déjà le code qui écrit le fichier avec la bonne syntaxe au format ascii et j aimerai le transcrire au format binaire (à savoir tout mettre en hexa et remplacer les espaces par des 0x00)...

Exemple :
1 2 (format ascii)
3
-------->
000000010000000000000000000002
00000003 (format binaire)

Quelqu un sait comment réaliser simplement cela ???

Merci !!!!