Forum Programmation.perl Problème envoi en html avec logo en entête

Posté par  . Licence CC By‑SA.
Étiquettes : aucune
0
1
avr.
2021

Bonjour,

J'utilise le code Perl ci-dessous pour envoyer un mail et voir mon logo en entête.

Hélas si dans Gmail (Android) j'ai bien le logo qui s'affiche en entête du mail et adapté à la largeur page, il s'affiche une 2 fois en bas du message comme une pièce jointe.

J'ai tout essayé pour avoir l'image dans le corps du message sans l'avoir aussi affiché comme pièce jointe à télécharger et de plus dans une grande taille (c'est horrible)

Pourriez-vous (…)

Forum Programmation.perl tentatives de web scrapping sur page avec javascript

Posté par  . Licence CC By‑SA.
Étiquettes :
1
14
fév.
2021

Bonjour,
je suis sous UBUNTU18.04 donc avec un Perl 5.26
je cherche à récupérer le contenu d'un tableau rempli par JavaScript. Les données changent quotidiennement et j'ai besoin d'avoir leur somme en fin de mois.

Pour m’entraîner, j'ai construit la page suivante test_recup_javascript.html et je tente de lire la page finale (post JavaScript).
j'ai essayé :
LWP::UserAgent; (pas de gestion du JavaScript)
WWW::Mechanize (); (pas de gestion du JavaScript)
WWW::Mechanize::Firefox; (mais il manque MozRepl plugin de Firefox qui n'existe plus) (…)

Forum Programmation.perl classer des documents markdown par niveau de titres

Posté par  . Licence CC By‑SA.
Étiquettes : aucune
1
31
jan.
2021

Il peut être pratique à certaines occasions de trier des fichiers markdown (ou apparentés), selon leur titres / entêtes. Cela peut concerner un classement par dates, ou par numéros de chapitres par exemple, ce qui pourrait s'appliquer pour un blog, un livre etc

Un exemple de fichier de départ :

C'est un exemple pour le script de classement par titres.

# Chapitre 01

Cette partie appartient au "Chapitre 01".

## 2020-12-15  

Cette partie appartient au "Chapitre 01", et a pour
(…)

Forum Programmation.perl Identifier le caractère qui suit un "_" et le déplacer ou remplacer

Posté par  . Licence CC By‑SA.
Étiquettes : aucune
0
30
mar.
2018

Bonjour à tous !

Nouveau en Perl, je rencontre une petite difficulté. Dans un fichier texte, je voudrais faire la modification suivante :

Lorsqu'en lisant le fichier lignes par lignes je tombe sur un underscore ("") je voudrais faire une boucle permettant d'analyser le caractère qui se situe à droite du "". Si c'est une lettre, le déplacer sur la position où se trouvait l'underscore en laissant un espace à l'ancienne place de cette lettre. Si c'est un chiffre (…)

Forum Programmation.perl inserer une ligne d'un fichier txt dans un autre si le premier mots existe

Posté par  . Licence CC By‑SA.
Étiquettes : aucune
0
19
avr.
2017

Bonjour,

je suis débutante en perl

j'ai un probleme que je veux resoudre a l'aide des tables de hachage
fichier1.txt =>
j'ai le velo
je veux manger
fichier2.txt =>
maison belle
velo de patrice
manger pizza
fichier resultat =>

      j'ai le velo de patrice
      je veux manger pizza

comment proceder svp merci

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

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