Forum Programmation.perl Can't find string terminator "EOF"

Posté par  . Licence CC By‑SA.
Étiquettes :
0
13
mar.
2022

Bonjour à tous,

Je m'exerce au PERL à travers la création d'un petit script pour mon serveur Nagios.
J'ai l'erreur suivante :

    Can't find string terminator "EOF" anywhere before EOF at check_disque.pl line 15.

Mon script est le suivant :

    #!/usr/bin/perl
    #=====================================================================
    # Auteur : Admin
    # Date   : 13/03/2022
    # But    : plugin Nagios pour vérifier l'espace disque utilisé
    #=====================================================================
    # Module à utiliser
    use strict;
    use warnings;
    use Nagios::Plugin;
    use feature qw(switch say);
    use
(…)

Forum Programmation.perl Perl débutant: exercice (temp min et heure)

Posté par  . Licence CC By‑SA.
Étiquettes :
0
26
fév.
2022

Bonjour,

Je débute en Perl.
Pour un exercice de programmation, je dois pouvoir à partir d'une modification d'un script comme celui-ci indiquer en plus du nombre obtenu une heure (soit seconde valeur):

use warnings;
use strict; 
use diagnostics;
 my $file = $ARGV[0]; 
open (FICHIER, "<", $file) or die ("Impossible de lire le fichier $ARGV[0]" );
my $minimum= <FICHIER>;
while (my $ligne =<FICHIER>)
{ 
if
(…)

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