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