Bonjour, je me perd un peu avec la caractère dynamiquement typé de perl, car j'ai du mal à récupérer le contenu HTML des cases des tableaux contenus dans une page HTML. J'ai le script suivant : #!/usr/bin/perl use LWP::Simple; use LWP::UserAgent; use HTML::TableExtract; # recup de STDIN dans une string my $holdTerminator = $/; undef $/; my $buf = ; $/ = $holdTerminator; my @lines = split /$holdTerminator/, $buf; $buf = "init"; $buf = join $holdTerminator, @lines; my $te; my (...)
Salut à tous, Voilà des jours que je bloque sur Perl. Je suis un piètre programmeur et je me suis mis à Perl voilà 2 semaines, et je galère comme pas possible. Mon script doit extraire la pièce jointe du dernier mail arrivé dans une boite IMAP. Je dois pas en être loin, puisque mon script arrive à afficher le contenu du message grâce au module IMAP:Talk. Le problème, c'est qu'ensuite j'essaye de passer le message au module Attachment::stripper. Celui (...)
Bonjour, je suis en train d'écrire un petit script m'aidant à générer de la doc J'ai ça : - from_external p:NATIVE_ARRAY[CHARACTER] <- ça me rend : //* Syntaxe,Header : := from_external_copy
J'ai écris pour cela le bête code : #!/bin/perl use strict; my $res; while (my $line = ) { if ($line =~ /\s*-([\w\s_:,\[\]]+)<-/) { # C'est une ligne de def de slot $res = 1ドル; $res =~ s/([\w_]+)(\s*:[A-Z_\]\[]+)/<1ドル>/g; print " //* Syntaxe,Header : (...)
Bonjour, j'ai créé une liste de hash, et en bon débutant en perl que je suis, j'ai appliqué bêtement la doc (merci les mongueurs) que j'ai trouvé. Ca donne ça : my $refvar; my %var; £spaces£ £/spaces£foreach $refvar (@TabVars) { £spaces£ £/spaces£my %h2 = %$refvar; £spaces£ £/spaces£print "$h2{Valeur} : $h2{Type}\n"; £spaces£ £/spaces£} @TabVars étant le tableau dont chaque case contient un hash (avec à chaque fois les mêmes clé valeur. (J'aimerai éviter de faire une table de hash de table (...)
Bonjour, j'ai fait un script perl parsant quelques regexp d'un fichier au format iso-8859-1.
J'ai pas mal d'accent dedans, à peu près tout ceux qu'on trouve en langue française.
Sous cygwin (ce qui explique peut être mes problèmes), le script perl me fait sauter quasiment tous les accents.
J'ai essayé de jouer avec encode, mais ça marche pas terrible.
Une idée ?
Merci :)
Bonjour, j'essaie depuis deux jours d'effectuer un grep multiligne sur un certains nombre de fichier sources pour en extraîres les commentaires. Je cherche à sélectionner des patterns de ce genre : ` - to_ulongint:ULONGINT <- ( //? {self>=0}; //? {self <=# (ULONGINT.maximum)}; ` au milieu de ` // // Conversion format with test. // - to_ulongint:ULONGINT <- ( //? {self>=0}; //? {self <=# (ULONGINT.maximum)}; to_raw_ulongint );` J'ai donc créé l'expression suivante : `^\s*-([.]*)<-\s*\(*\s*//(.*)` Lorsque je la teste avec (...)
Bonsoir, suite à [https://linuxfr.org/~golum/20068.html](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 = £spaces£ £/spaces£( £spaces£ £/spaces£'[http://www.google.fr/search?num=100&hl=fr&client=fir(...)](http://www.google.fr/search?num=100&hl=fr&client=firefox-a&rls=org.mozilla%3Afr%3Aofficial&q=droite&btnG=Rechercher&meta=',) £spaces£ £/spaces£'[http://www.google.fr/search?num=100&hl=fr&client=fir(...)](http://www.google.fr/search?num=100&hl=fr&client=firefox-a&rls=org.mozilla%3Afr%3Aofficial&q=sarkozy&btnG=Rechercher&meta=',) £spaces£ £/spaces£'[http://www.google.fr/search?num=100&hl=fr&client=fir(...)](http://www.google.fr/search?num=100&hl=fr&client=firefox-a&rls=org.mozilla%3Afr%3Aofficial&q=chirac&btnG=Rechercher&meta=',) £spaces£ £/spaces£'[http://www.google.fr/search?num=100&hl=fr&client=fir(...)](http://www.google.fr/search?num=100&hl=fr&client=firefox-a&rls=org.mozilla%3Afr%3Aofficial&q=syndicats&btnG=Rechercher&meta=',) £spaces£ £/spaces£'[http://www.google.fr/search?num=100&hl=fr&client=fir(...)](http://www.google.fr/search?num=100&hl=fr&client=firefox-a&rls=org.mozilla%3Afr%3Aofficial&q=politique&btnG=Rechercher&meta=',) £spaces£ (...)
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, 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 (...)