Discussion :

[lRedOx]

Bonjour à tous,

Alors voilà, j'ai récupérer plusieurs fichiers html mais je voudrais récupérer qu'une ligne spécifique dans le fichier et les mettre dans un autre fichier. J'y arrive la plupart du temps mais je n'arrive pas à tout récupérer, je ne sais pas pourquoi, c'est pour cela que je vous demande de l'aide !

Mon code brouillon :

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
 
use strict;
use warnings;
 
my $file = shift @ARGV or die ("You must give a file as input\n");
 
 
    my $post_id = $1;
    my $start_post = 0;
    my $post = '';
    open (F, $file) or die("unable to open file $file\n");
    while (my $line = <F>)
    {
	chomp $line;
	if ($start_post) { 
	    if ($line =~ /<\/td>/) { $start_post = 0; } else {$post.=$line."\n"; }
	}
	if (($line =~ /<td bgcolor=#DF9309>/)) { $start_post = 1; }
    }
    close (F);
 
    $post =~ s/<br \/>//g;
    $post =~ s/\&nbsp;/ /g;
 
 
	open (fd,'>test.txt') or die("unable to open file text.txt");
 
	print fd "[$post_id]\n$post\n";
 
	close(fd);
 
    print "[$post_id]\n$post\n";

La ligne de code que je veux récupérer est compris dans les balises <td bgcolor=#DF9309>.

Merci pour vos prochaines réponses !

[Lolo78]

Bonjour,

il faudrait que tu donnes des exemples de données en entrée, en particulier, si possible des lignes que tu récupères et d'autres que tu ne récuypères pas.

Quelques remarques sur le code.

Code :

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

1
2
 
my $file = shift @ARGV or die ("You must give a file as input\n");

Ceci peut marcher la plupart du temps, mais peut aussi échouer, par exemple si l'argument est un zéro (pourquoi pas un fichier s'appelant 0?).

Il vaut mieux compter le nombre d'arguments pouir vérifier que c'est ce qu'on attend. Par exemple:

Code :

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

1
2
3
4
 
die "You must give a file as input\n" if @ARGV != 1;
my $file = shift @ARGV;
die "Fichier inexistant\n" unless -f $file;

Dans ceci:

Code :

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

my $post_id = $1;

je ne sais pas ce que tu cherches à faire, mais $1 n'est certainement pas renseigné ici ($1 représente la première capture d'une expression régulière et il n'y a pas d'expression régulière auparavant.) Pas forcément grave toutefois dans la mesure où la variable $post_id ne semble pas utilisée.

Le reste de la mécanique, je ne peux pas dire sans voir un extrait du fichier en entrée.

Ah, si, une question de style ou de bonne pratique. Plutôt que:

Code :

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

1
2
3
 
    open (F, $file) or die("unable to open file $file\n");
    while (my $line = <F>) #...

on considère qu'il est préférable d'utiliser la syntaxe suivante dite "à trois arguments" et utilisant un filehandle lexical:

Code :

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

1
2
3
 
    open my $F, "<", $file or die "unable to open file $file $!");
    while (my $line = <$F>)