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 Algo ; Evitez les doubles "boucles" ?

Posté par . 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 La clef d'une valeur présente dans un hash

Posté par . Licence CC by-sa
0
1
août
2014

Bonjour,

Pour un script qui analyse des fichiers présents dans des dossiers, j'essaye d'associer un langage avec une extension de fichier.

Par exemple, le script scrute un répertoire et trouve un .pl ou .pm dedans et il en déduit que c'est du langage Perl.

Je me suis dit que ceci ferait l'affaire pour essayer d'associer les extensions aux langages (la recherche dans le dossier fonctionne déjà):

#!/usr/bin/env/perl

use warnings;
use utf8;

my %hashLang = (
    'Perl' => [
(...)

Forum Programmation.perl Proposition de mon programme à la communauté

Posté par . Licence CC by-sa
0
29
mar.
2014

Bonjour amis Linuxiens !!

Voilà, j'arrive sur la fin d'un script Perl que j'aimerais proposer à la communauté.

Je ne suis pas un super dev mais je fais ça entre mes nombreuses heures de système, j'aimerais le proposer afin de voir dans un premier temps si il plairait aux utilisateurs et ensuite afin que les dev confirmés puissent, si ils le désirent, l'améliorer

Vous l'aurez compris ce serait ma première contribution à cette grande famille, je ne sais pas comment m'y (...)

Forum Programmation.perl Perl 5.14 split

Posté par (page perso) . Licence CC by-sa
Tags : aucun
0
11
nov.
2013

Bonjour,

J'utilise un script (Q4Mon pour ne pas le nommer) qui fonctionnait très bien sous Squeeze (perl 5.10) et également bien avant. Sous wheezy (perl 5.14) que neni.

Après débogage c'est ce petit bout de code qui pose problème

foreach (@query_results) {
    if ($_) {
        if (split(/,,/,$_) && $_[0] eq "Q4S") {
                # Server Info
                $temp_server_address=$_[1];
                $server_address=$_[1
(...)

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 [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 Application perl dancer en cgi lente

Posté par (page perso) .
0
31
oct.
2012

Bonjour,

Je viens de déployer un petit blog écrit en perl avec dancer sur mon serveur lighttpd. Le déploiement se fait en cgi (je n'arrive pas à le faire tourner en fastcgi). Mais l'application est affreusement lente, il faut plusieurs secondes pour afficher une bête page avec peu de contenu.

Je tiens à préciser que l'application est tout à fait véloce si je la lance manuellement avec perl (sans passer par lighttpd).

Voilà le contenu du dispatch.cgi :

#!/usr/bin/env perl
(...)

Forum Programmation.perl [regex] rajouter du texte avant une liste

Posté par (page perso) .
Tags : aucun
0
29
oct.
2012

bonjour,

je cherche à modifier dans un fichier texte toutes les lignes (vide) qui précèdent une suite de choix débutant par un "-", avec le rajout d'une ligne contenant toujours la même constante.

Par exemple :

blabla.
blabla.

- choix 1
- choix 2
- choix 3

blabla.

- nouveau choix 1
- etc

deviendrait :

blabla.
blabla.

constante
- choix 1
- choix 2
- choix 3

blabla.

constante
- nouveau choix 1
- etc 

J'ai essayé avec

perl
(...)

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 Request Tracker fait des siennes

Posté par (page perso) .
Tags : aucun
0
3
oct.
2011

Bonjours.

Lors de tests d'une migration de request tracker 3.8 à 4.0.2 détail j'ai un petit soucis sur mon serveur de test.
Les mails (commentaires et réponses) ont un contenu un peut particulier:

URL: {$RT::WebURLExternal}Ticket/Display.html?id={$Ticket->id}
{$Transaction->Content()}

Ce qui n'est pas normal (si je ne me trompe pas il s'agit de code perl).
Le gros problème est que parfois je reçois les mail sous la bonne forme tout comme il faut (qui m'apporte une tasse de café...)

Est-ce que quelqu'un a (...)

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 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 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 Résultat de fonction localtime en anglais

Posté par .
Tags : aucun
0
15
sept.
2010
Bonjour l'utilisation simple de la fonction localtime m'est retournée en anglais :


perl -e 'use POSIX; my $now_string = localtime; print "$now_string \n";'

Wed Sep 15 15:06:21 2010


Par contre si je veux isoler un champ dans le résultat il est en français :

perl -e 'use POSIX; my $time_string= strftime("%a",localtime); print "$time_string \n";'

mer.


Comment faire pour avoir "Wed" à la place de "mer." ?
Merci de votre aide.

Forum Programmation.perl Script perl dans /etc/init.d

Posté par .
Tags : aucun
0
20
août
2010
Salut,

j'ai un mal torride à faire se lancer un script perl depuis un script
shell de /etc/init.d ... (sur une vieille Red Hat -noyau 2.4- que je pense
étrangère au souci)

Si j'execute à la main /etc/init.d/script.sh start , ça roule : le script
perl est bien lancé
(il est lancé avec la forme
su - pouet -c "cd /path && ./script.pl" &
)

Si je remplace le contenu du script shell (lanceur) par un bête date >>
/tmp/date_boot, (...)

Forum Programmation.perl Lire un fichier et le découper

Posté par .
Tags : aucun
0
11
mai
2010
Bonjour,

Je débute en PERL et je voudrais lire un fichier qui contient n lignes et m valeurs sur chaque lignes.

Je le fais de la façon suivante:


#! /bin/bash

while IFS=: read CeldaActiva Numcelda Lat Lon binfilt Ds

do
echo -e "CeldaActiva :\t $CeldaActiva\n\
Numcelda :\t Numcelda\n\
Lat :\t $Lat\n\
Lon :\t $Lon\n\
binfilt :\t $binfilt\n\
Ds :\t $Ds\n\
done


Mon fichier est ainsi (celui que je lis):

1 1 14.9375 -91.4375 0.01 0.0545455
1 2 14.9375 -91.5625 0.01 (...)

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