Créer une sortie sous forme de fichier html

**sde755** · 05/03/2019, 14h01

Bonjour,

Je construis un script pour parser des fichiers et, en fonction du test de pattern, mettre les résultats dans un tableau.

Voici pour l'instant ce que j'ai fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use open ':encoding(utf8)';
binmode(STDOUT, ":utf8");
 
my $DateLog = localtime();
print "===>Date : $DateLog\n";
 
#my $contacts = '#';
 
my $file = $ARGV[0];
open(my $fh, '<:encoding(utf8)', $file) or die "Can't open '$file' $!";
 
 
my $html = "rapport.html";
 
 
#parsing des fichiers et creation du tableau de synthese
 
while (my $row = <$fh>) {
  chomp $row;
    if ($row =~ "^77") {
       $html .= "<html><head></head><body><table><tr>";
      my @arr = split / /, $row;
      foreach my $item (@arr) {
     $html .= "<td>" . $item . "</td>";
      }
     $html .= "</tr></table></body></html>";
     }
    }
  print $html;

Le script génère bien le code html mais comment générer un fichier html pour qu'ensuite on puisse l'envoyer? Je bloque sur ce point.

Merci d'avance pour votre aide.

Cordialement,

**CosmoKnacki** · 05/03/2019, 14h22

Ton code a plutôt l'air d'être en Perl 5.

Pour ce qui est d'enregistrer dans un fichier, il suffit d'ouvrir un fichier destination en écriture et d'indiquer la ressource du fichier comme premier paramètre de print qui écrira alors dans le fichier à la place de la sortie standard.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open(my $fh, '<:encoding(UTF-8)', $file) or die "Can't open '$file' $!";
open(my $fho, '>:encoding(UTF-8)', 'rapport.html') or die "Can't open 'rapport.html' $!";
my $html = "";
 
#parsing des fichiers et creation du tableau de synthese
 
while (my $row = <$fh>) {
    chomp $row;
    if ($row =~ "^77") {
        $html .= "<html><head></head><body><table><tr>";
        my @arr = split / /, $row;
        foreach my $item (@arr) {
            $html .= "<td>" . $item . "</td>";
        }
        $html .= "</tr></table></body></html>";
        # J'imagine qu'à ce stade tu peux sortir de la boucle while
    }
}
print $fho $html;
 
# ne pas oublier de fermer les fichiers
close $fh;
close $fho;

D'ailleurs tu peux très bien te passer de la variable $html en écrivant tout au fur et à mesure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
while (my $row = <$fh>) {
    chomp $row;
    if ($row =~ "^77") {
        print $fho "<html><head></head><body><table><tr>";
        my @arr = split / /, $row;
        foreach my $item (@arr) {
            print $fho "<td>$item</td>";
        }
        print $fho "</tr></table></body></html>";
    }
}

Peut-être faut-il mieux placer l'ouverture et la fermeture du fichier rapport dans le if au cas où la ligne commençant par 77 n'existe pas.

À ta place j'ajouterai à minima un doctype et une balise meta avec l'encodage dans ton html.

Un peu de documentation: Writing to files with Perl et perldoc.

**sde755** · 05/03/2019, 14h47

Ok, merci mais quand je teste, cela me génère un fichier html vide.
Est-ce lié au pattern que je dois tester ?

**CosmoKnacki** · 05/03/2019, 14h57

Si le fichier est vide, c'est que la condition $row =~ "^77" n'est pas satisfaite (condition qui exige que la ligne chompée commence par 77).

**sde755** · 05/03/2019, 15h01

Parfait, ça marche! Merci

Envoyé par CosmoKnacki

Si le fichier est vide, c'est que la condition $row =~ "^77" n'est pas satisfaite (condition qui exige que la ligne chompée commence par 77).

**sde755** · 06/03/2019, 11h27

Petit ajout à ma demande.

Je dois envoyer le fichier crée par mail.
Quand je le fais en ligne de commande, c'est ok mais j'ai un soucis dans mon code

Voici mon bout de code concernant l'envoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $mail = "
Bonjour,
 
Vous trouverez ci-joint le rapport mensuel des contrats rejetes.
 
Fichier de synthese en piece jointe :'$fho'
 
Cordialement,
";
  print "=> Envoi du mail\n";
  print  $mail;
   my $cmd=" /usr/bin/mutt -s ".'"Controle des contrats rejetes" -c '.$CCcontacts.' -- '.$contacts. -a '.$fho. ''';
        system $cmd;
    }

Je penche pour une histoire de quote ou double quotes mais j'ai un doute.

Merci d'avance pour votre aide

Créer une sortie sous forme de fichier html

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager