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 

(…)

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

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

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

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,

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' => [

(…)

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

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

(…)

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

(…)

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

(…)

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

(…)

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

(…)

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

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,
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,

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.