Forum Programmation.perl Help pour script

Posté par  . Licence CC By‑SA.
Étiquettes : aucune
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 Besoin d'aide pour mon premier script en perl: parser un fichier BIND

Posté par  . Licence CC By‑SA.
Étiquettes :
0
7
juil.
2015

Bonjour à tous,

Je suis tout nouveau en perl et je viens du monde ms.
Ne connaissant que vbs et powershell il faudra être patient avec moi.

Bon voilà mon besoins:
Je dois faire des modifications massive d'enregistrements DNS dans 15 zones Bind9.7.
En entrée j'ai un fichier csv qui se compose ainsi.
RecordName,Type,NewIP
SERVER1,A,YYYY
server2,A,YYYY

L'idée algorithmique serait la suivante:

#------debut script ------------------
    $csvfile = readcsv(/tmp/csv)
    $zonefile = open (/var/cache/bind/mydomain.com)

    foreach ($row in 
(…)

Forum Programmation.perl problème d'encodage

Posté par  . Licence CC By‑SA.
Étiquettes : aucune
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 Traitement de gros fichier

Posté par  . Licence CC By‑SA.
Étiquettes :
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.
Étiquettes :
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.
Étiquettes :
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.
Étiquettes :
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  (site web personnel) . Licence CC By‑SA.
Étiquettes : aucune
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  (site web personnel, Mastodon) . Licence CC By‑SA.
Étiquettes :
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  .
Étiquettes :
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  (site web personnel) .
Étiquettes :
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  .
Étiquettes : aucune
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  (site web personnel) .
Étiquettes :
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  .
Étiquettes : aucune
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 (…)