Forum Programmation.perl Argggggggg dans un fichier avec des 0x00

Posté par  .
Étiquettes : aucune
0
20
juil.
2004
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 !!!!

Forum Programmation.perl problème sympa (gestionnaire de mailing-lists)

Posté par  .
Étiquettes : aucune
0
2
août
2005
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 (…)

Forum Programmation.perl HTML <-> ASCII

Posté par  .
Étiquettes : aucune
0
4
août
2004
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 (…)

Forum Programmation.perl Localisation

Posté par  .
Étiquettes : aucune
0
13
août
2004
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. (…)

Forum Programmation.perl Consommation mémoire excessive

Posté par  (site web personnel) .
Étiquettes :
0
30
nov.
2005
Bonsoir, suite à https://linuxfr.org/~golum/20068.html , j'ai écrit en perl le code correspondant.

Je suis politiquement content puisqu'il marche, mais informatiquement dubitatif puisqu'il me bouffe plus de 40 mo au bout d'une heure d'utilisation.

De bonne âmes pourraient-elles m'expliquer pourquoi (pour apprendre aux lecteurs ignorants) et proposer des solutions ?
Merci :)

Voici le code :

#!/usr/bin/perl

use WWW::Mechanize;

use strict;
use diagnostics;
use warnings;

my @url_list =
(
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

(…)

Forum Programmation.perl Des regexps plus rapides !

Posté par  .
Étiquettes : aucune
0
24
août
2004
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 (…)

Forum Programmation.perl Charder des autres fichiers & utiliser des répertoires

Posté par  .
Étiquettes : aucune
0
24
août
2004
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, (…)

Forum Programmation.perl Invoquer une fonction se situant dans une table de hashage déclaré dans un autre paquetage

Posté par  .
Étiquettes : aucune
0
3
oct.
2004
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.

Forum Programmation.perl Remplacement à la chaine dans un dossier

Posté par  (site web personnel) .
Étiquettes : aucune
0
25
jan.
2005
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 (…)

Forum Programmation.perl Perl

Posté par  .
Étiquettes : aucune
0
15
juin
2006
bonjour,
je veux modifier le contenu d'un fichier text à partir d'un code cgi.
mon pb est comment je peut supprimer des données à partir de ce fichier

Forum Programmation.perl Problème avec Socket et/ou Telnet sur le manager d'Asterisk

Posté par  .
Étiquettes : aucune
0
21
juil.
2006
Bonjour,

Je cherche à ecrire un script Perl se connectant au manager API d'Asterisk. On s'y connecte "humainement" avet un simple telnet sur le port 5038. Ensuite on peut envoyer des commandes à Asterisk qui se présentent sous cette forme:
action: login\n
username: office\n
secret: welcome\n
\n


et lui même nous envoie des élément de la même forme:
Event: PeerStatus
Privilege: system,all
Peer: SIP/103
PeerStatus: Registered


Mon but est de me coonecter à cet API et évidemment de pouvoir envoyer (…)

Forum Programmation.perl desinstaller un module perl ?

Posté par  .
Étiquettes : aucune
0
22
jan.
2005
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 (…)