Forum Programmation.perl Algo ; Evitez les doubles "boucles" ?

Posté par (page perso) . Licence CC by-sa
4
28
oct.
2014

Salut les regex !

J'ai souvent à parser des gros fichiers en tentant de matcher par rapport à une liste.
Du coup je me retrouve souvent à faire des doubles boucles bien dégueulasses et bien gourmandes en ressources.

En gros j'aimerais savoir (en Python ou en Perl), comment faire ça de manière en plus élégante et moins "brutale", de préférence en évitant d'aller charger des modules externes ça serait le top, pis si ça pouvait rester lisible aussi, parce que je (...)

Forum Programmation.perl parrot, llvm etc.

Posté par .
Tags : aucun
2
8
juil.
2009
Bonjour,

Quels sont selon les avantages de Parrot sur LLVM en particulier, et sur la JVM et CLR en général ?

J'ai noté en gros deux points qui sortent du lot :

1) C'est une VM spécialisée dans les langages avec typage dynamique.

2) Elle est très petite (7mo à l'install contre 47 pour LLVM).

Le point numéro 2 me semble particulièrement séduisant.

Qu'en pensez-vous ? Que savez-vous sur le sujet ? Il est assez difficile de trouver sur le (...)

Forum Programmation.perl [resolu] regexp qui ne marche pas, enfin pas toujours.

Posté par .
Tags :
2
6
déc.
2012

le texte que je cherche à nettoyer tout sur une seule ligne, au milieu d'un fichier que je parcours ligne à ligne :

 src="C2_Fr_OIITXD.jpg" pageID="1" width="1651" height="2335" Sender="Moi" Receiver="" Script="" Document_Location="" Category="2a" Document_Date="05/09/2013" Document_Object="Bon de livraison" Language="french" NumPage="2" Receiver_Address="une adresse avec un numero des espaces, des virgules" Receiver_Name="marie ubert" Phone="+33(0)1.22.33.44.55"

le code qui vide les champs
il fait ca avec tous les champs, j'utilise la meme logique sur chacun des champs

if ($_ =~ /(Sender=".*?")/)
 {
   $_=~
(...)

Forum Programmation.perl problème d'encodage

Posté par . Licence CC by-sa
Tags : aucun
2
7
mai
2015

à chaque fois que ma chaîne de caractère contenant des caractère accentué (exemple :sécurité) passe par mon script perl les caractères accentués sont mal affiché ?
le résultat ça donne s?\195?\169curit?\195?\169
j'ai essayé d'utiliser les fonctions:

    $characters = decode('UTF-8', $octets,     Encode::FB_CROAK);
    $octets     = encode('UTF-8', $characters, Encode::FB_CROAK);

ça ne change rien

quelqu'un aurai une idée d’où vient le problème ?

Forum Programmation.perl Perl et expect

Posté par .
Tags : aucun
1
26
déc.
2008
Bonjour,

je tente d'utiliser expect avec Perl mais je bute sur un sérieux problème. Je sais qu'il existe un module expect.pm mais je veux utiliser le expect normal.

J'ai plusieurs lignes à envoyer à expect et ça bloque dès que j'ai un "send".


my $commandes = "set timeout 5\n".
"spawn telnet 192.168.1.1\n".
"sleep 5\n".
"send \"root\r\"\n".
"sleep 1\n".
"send \"xxxxxx\r\"\n".
"sleep 1\n".
"send \"ifconfig ppp0\r\"\n".
"sleep 1\n".
"send \"exit\r\"\n";

open ( my $pipe, '-|', "echo \"$commandes\" | expect 2>&1" );
(...)

Forum Programmation.perl Parser une variable en Perl

Posté par .
Tags : aucun
1
14
avr.
2009
Vu que maintenant je dois faire ca en perl , je repose cette question mais dans le forum Perl !!!!! (Merci à ceux qui m'ont répondu en bash ...)

Je dois parser cette variable
7845124512200904091025.pdf de façon à récupérer
la chaine 20090409

Il faut que je commence impérativement par la fin car la chaine avant 2009 ..
est variable.
Pourriez vous m'aider, je galère un peu

Merci d'avance

Forum Programmation.perl Chemin symbolique Vs chemin réel

Posté par (page perso) .
Tags : aucun
1
15
nov.
2009
Bonjour à tous.

J'ai un script Perl qui se balade dans les répertoires (c'est un script tout con de création de listes de lecture) et j'ai un problème de chemin symbolique avec Perl :
j'ai un répertoire /home/truc/mp3* dont j'ai fait un lien symbolique vers /home/luc/Desktop/mp3

Mon problème est que lorsque je lance le script Perl dans le lien (donc /home/luc/Desktop/mp3) et que je veux écrire les listes dans le répertoire supérieur, il remonte dans le répertoire réel, à savoir (...)

Forum Programmation.perl Equivalent en Perl de Hashcode en Java

Posté par .
Tags : aucun
1
29
avr.
2010
Bonjour,

Je dispose de code Java que je voudrais réécrire en Perl, et j'ai toutes les peines du monde sur la fonction longHashcode(String str) que voici :

    public static long longHashCode(String str) {
long h = 0;
byte val[] = str.getBytes();
int len = str.length();
for (int i = 0; i h = 31 * h + val[i];
return h;
}


Voici deux exemples de ce que me renvoie ce code pour deux entrées :
short_string => 3010251491749729588
rather_longer_longer_string => (...)

Forum Programmation.perl Auto configuration de cpan

Posté par (page perso) .
Tags : aucun
1
1
oct.
2010
Bonjour,

Lors du premier lancement de cpan sur un ordinateur, un outil de configuration se lance. Dans la plupart des cas il suffit de valider sans se poser de question toutes les réponses proposé par défaut.

Je cherche un moyen de dire à cpan si c'est son premier lancement de ne pas poser toutes ces questions mais de prendre toutes les réponses proposer par défaut afin d'intégrer ça dans un script.

Merci pour vos réponses.

Forum Programmation.perl Interface graphique web

Posté par .
Tags :
1
18
avr.
2011

Bonjour,
pour mon stage je dois créer un programme perl pour superviser le réseau. J'ai déjà codé les scripts perl qui effectuent des requêtes SNMP sur les switchs et routeurs. J'ai donc les infos nécessaires pour m'attaquer à la présentation de ces données, cependant je dois les rendre visibles dans un navigateur. Je me suis un peu renseigné et j'ai trouvé Perl/CGI, mais je cherche plus UI que simplement prendre des arguments et retourner du HTML.

Je voudrais réaliser quelquechose (...)

Forum Programmation.perl Demande d'aide pour un script en perl

Posté par .
Tags : aucun
1
22
avr.
2011

Bonjour, Je suis un chercheur en biologie et j'aimerais savoir comment faire pour mettre un fichier de nombres exemple: plusieurs lignes de chiffres sur une seul colonne, dans un tableau et ensuite récupérer le dernier chiffre pour le soustraire a l'avant dernier ainsi de suite. Merci pour votre aide précieuse.

Forum Programmation.perl PHP client -> Perl serveur (communication socket)

Posté par (page perso) .
Tags :
1
24
mai
2012

Bonjour

J'aimerais faire appel à un script PERL qui écoute sur un port via un script PHP. Je ne suis pas loin du résultat (test pour le moment)
Le problème est que ma page php (pour le moment lancé en CLI) bloque au socket_read() . A savoir que sur le serveur quand je remplace par "toto" ça roule de bout en bout mais dès que j'essaye de lire ça bloque…

Une idée lumineuse? Une piste?

Note : j'ai fait un (...)

Forum Programmation.perl Passage d'array dans une subroutine

Posté par (page perso) . Licence CC by-sa
Tags :
1
24
fév.
2013

Bonjour tout le monde !

J'aurais besoin d'un coup de main pour comprendre pourquoi mon test perl fonctionne ainsi :

#!/usr/bin/perl -swl
my $scalar=45;
my @table=[5, 6, 7];
my %hash=("test"=>"TEST", "abc"=>"ABC", "ghi"=>"GHI");

my @final=[ $scalar, \@table, \%hash];

sub findHashValue{
        my ($contref,$key)=@_;
        my @container=@$contref
(...)

Forum Programmation.perl Traitement de gros fichier

Posté par . Licence CC by-sa
Tags :
1
24
mar.
2015

Salut à tous,

Voilà je dois rechercher dans un fichier le contenu d'un autre fichier.

mais deux fichiers ont 8 champs chaqu'un séparer par des ";"

je dois vérifier si le champs 8 de mon premier fichier est présent dans mon second fichier ( champs 8 égalements ) si c'est pas le cas ecrire la ligne complete dans un fichier de sortie.

Seulement mon second fichier fais un peu plus de 7 millions de lignes =/

Donc les double boucle (...)

Forum Programmation.perl Help pour script

Posté par . Licence CC by-sa
Tags : aucun
1
8
juil.
2015

Je voudrais faire un nouveau fichier a partir d'un fichier source qui contient des valeurs. Mon vrai besoin c'est exploiter un report de scan nessus. Mon fichier de scan a cette structure

Numero de serie
12345677889

chiffrement du certif : SHA256

Numero de serie
23345677889

chiffrement du certif : SHA1

Numero de serie
26545677889

chiffrement du certif : SHA1

….
et je voudrais mettre ces infos dans un fichier mieux structurer pour faire des stats dans excel. Idealement je voudrais (...)

Forum Programmation.perl Avoir le debit d'une connexion

Posté par .
Tags : aucun
0
17
juin
2004
Salut, Je cherche un moyen sur google.... de trouver le débit d'une connexion j'ai pense a cat /proc/.... mais je trouve rien (du moins je pense) sur le débit d'une connexion/seconde. Auriez vous une idée pour récupérer en PERL le débit? Merci d'avance bye

Forum Programmation.perl blogogoud ...

Posté par .
Tags : aucun
0
29
juin
2004
Coincoin (Le premier qui dit panpan s'en prend une ;))

Bon, voilà, j'ai un problème métaphysique. les feuilles de style personnalisées c'est bien, mais je trouve pas ça encore assez marrant.
Donc l'idée que j'ai dans un coin, c'est en fait de fournir simplement de quoi faire sa propre page, en utilisant des données communes, en passant par un certain nombre de fonctions disponibles. En gros, on a quelque chose du genre :


SGBD --> fonction d'accès données --> diverses (...)

Forum Programmation.perl caractères invisibles dans une chaîne (sockets)

Posté par (page perso) .
Tags : aucun
0
3
juil.
2004
Je vais toujours poster le code source du serveur (le client, cest telnet):
#!/usr/bin/perl -w use strict; use IO::Socket; # Usage: # # client.pl [ (--exit|-e)  ] [ ] [ ] # client.pl [ -h ] [ --help ] my $filename = "client.pl"; my $help = " Usage $filename [ ] [ ] Options ( -P | --port )  Port to listen ( -p | --protocol ) Set a protocol (tcp, udp, ...). Default is \"tcp\" (...)

Forum Programmation.perl Use of uninitialized value pour tester si une variable existe

Posté par (page perso) .
Tags : aucun
0
4
juil.
2004
C'est encore moi .... je fais mon serveur et j'utilise maintenant les thread de perl. Et j'ai un problème pour tester si une variable existe ... Voici donc mon code un peu simplifié: #!/usr/bin/perl -w use strict; # use diagnostics; use IO::Socket; use Net::hostent; # gethostbyaddr() use threads; # use thread::Queue; use threads::shared; my $server; my @messages : shared = (); my $current_message : shared; my $life : shared = 1; $server = IO::Socket::INET->new( Proto => $protocol, LocalPort => $port, (...)

Forum Programmation.perl threads - fork() ...

Posté par (page perso) .
Tags : aucun
0
6
juil.
2004
Bonsoir,

J'aimerais trouver un moyen pratique, portable de faire du multitache en perl ... J'ai testé les threads et fork() qui semble être porté sous Fenêtres(R) mais ...
- fork() me permet d'envoyer des signaux aux processus
- les threads me permettent de partages des données facilement (files, variables partagées, vérous, sémaphores)
- les threads fonctionnent partout
- Mon application utilisant les threads à la place de fork() était plus lente (peut être car j'avais ajouté des fonctionnalités)

J'aimerais donc (...)

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

Posté par .
Tags : aucun
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 HTML <-> ASCII

Posté par .
Tags : aucun
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 .
Tags : aucun
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 Des regexps plus rapides !

Posté par .
Tags : aucun
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 (...)