Forum Programmation.perl empêcher le champ vide à la fin du tableau

Posté par . Licence CC by-sa
Tags : aucun
0
22
août
2015

j'ai une boucle for qui me produit un champ vide a la fin de mon tableau comment pourrai je empeche cela?

    for my $i(map {clean($_)} @$row) {
      #chomp $i;       
    my $d = "<tr><td>$i</td></tr>\n";
    print $per_line_fh $d if ($i); 
    }
    print $per_line_fh "</table>\n</body>\n</html>";
    close $per_line_fh;
}

sub clean {   
    my $string = shift;
    $string =~ /\s*,\s*/;
    $string =~ /\s*,\s*/;
(...)

Forum Programmation.perl Concatenation

Posté par . Licence CC by-sa
Tags : aucun
0
13
août
2015

Salut j'ai un petit souci de concatenation, j'ai mon code qui me retourne des values avec

        print $per_line_fh  map {clean($_)} @$row ;

de par et d'autre j'aimerai que lors de la sortie ceci me retourne avec certains characteres de html par et d'autre, a savoir:

print $per_line_fh "<tr><td>map {clean($_)} @$row</td></tr>" ;
malheureusement lorsque je je tape le Charactere "" la commande perl map n'est plus active et donc le resultat n'est plus ce que je j'attend.

je sais pas si (...)

Forum Programmation.perl Parser / Modifier le fichier dhcpd.conf

Posté par . Licence CC by-sa
Tags : aucun
0
24
juil.
2015

Bonjour,

J'utilise le module Net::ISC::DHCPd::Config pour parser la configuration du fichier de conf dhcpd donc voici un extrait :

subnet 192.168.10.0 netmask 255.255.255.0 {
    option routers 192.168.10.1;
    range 192.168.10.100 192.168.10.200;
    host pnom {
        hardware ethernet D0:AA:12:BC:13:65;
        fixed-address pnom.domain.net
    }
    host pnom2 {
        hardware ethernet D0:AA:12:BC:13:66;
        fixed-address pnom2.domain.net
    }
}
subnet 192.168.20.0 netmask 255.255.255.0 {
    option routers 192.168.10.1;
    range 192.168.10.100 192.168.10.200;
     host pnom3 {
        hardware ethernet D0:AA:12:BC:13:67;
        fixed-address pnom.domain.net
    }
    host pnom4 {
        hardware ethernet D0:AA:12:BC:13:68;
        fixed-address pnom2.domain.net
    }
}
subnet
(...)

Forum Programmation.perl Help pour script

Posté par . Licence CC by-sa
Tags : aucun
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
Tags :
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
Tags : aucun
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 ?