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

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

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=".*?")/)
 {
   $_=~

(…)

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

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

(…)

Il peut être pratique à certaines occasions de trier des fichiers markdown (ou apparentés), selon leur titres / entêtes. Cela peut concerner un classement par dates, ou par numéros de chapitres par exemple, ce qui pourrait s'appliquer pour un blog, un livre etc

Un exemple de fichier de départ :

C'est un exemple pour le script de classement par titres.

# Chapitre 01

Cette partie appartient au "Chapitre 01".

## 2020-12-15  

Cette partie appartient au "Chapitre 01", et a pour

(…)

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

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

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

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

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.

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

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.

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

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

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

Bonjour,
je suis sous UBUNTU18.04 donc avec un Perl 5.26
je cherche à récupérer le contenu d'un tableau rempli par JavaScript. Les données changent quotidiennement et j'ai besoin d'avoir leur somme en fin de mois.

Pour m’entraîner, j'ai construit la page suivante test_recup_javascript.html et je tente de lire la page finale (post JavaScript).
j'ai essayé :
LWP::UserAgent; (pas de gestion du JavaScript)
WWW::Mechanize (); (pas de gestion du JavaScript)
WWW::Mechanize::Firefox; (mais il manque MozRepl plugin de Firefox qui n'existe plus) (…)

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

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

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

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

Merci d'avance

Dan

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

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

Bonjour,

J'ai un script qui se connecte à une base de donnée mysql et qui exécute des requêtes (avec le module DBI), jusqu'ici aucun souci. Dans ce script je suis amené à faire un fork pour pouvoir exécuter quelques commandes (plutôt longues en termes de temps...) en parrallèle. Mais, à la fin de l'exécution du fils (que je termine par un exit;, je perds automatiquement la connexion mysql et le programme père s'arrète du coup également avec le message (…)

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