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

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

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

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

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

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

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

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*/;

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

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