Bonjours
Voilà, j'ai un fichier texte là où je veux chercher des mots bien spécifiques (sport, foot, ...)
Et les remplir dans un tableau

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
34
35
36
37
38
39
 
 
use strict;
use warnings;
use Data::Dumper qw(Dumper);
use 5.010;
use switch;
$|=1;
 
my $file = 'test1.txt';
my $file2 = 'test2.txt';
my @mots = ();
 
open(INPUT, $file) or die("Input file $file not found.\n");
 
# Recheche .
	while(my $line = <INPUT>) {
		if($line =~ /(sport*)/ || $line =~ /(joue...*)/ || $line =~ /(foot...)/) {
			print " mots :'$1'\n";
			print "\n\n";
			push @mots, $1;
            say Dumper \@mots;
 
		}
	}
 
 
 
 
 
	print "\n\n";
	print "le document un contient les mots suivant \n ";
	foreach my $n (@mots) {
    say $n  ;
}
 
 
 
	close(INPUT);
Le problème c'est que j'obtiens que la première partie (sport ) et si je remplace || par && j'obtiens rien


en essayant avec switch

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
 
my $line = <INPUT>;
	switch($line){
		case 1 {if($line =~ /(sport)/ ) {
			print " mots :'$1'\n";
			print "\n\n";
			push @mots, $1;
            say Dumper \@mots;
 
		}}
          case 2 {if($line =~ /(foot*)/ ) {
			print " mots :'$1'\n";
			print "\n\n";
			push @mots, $1;
            say Dumper \@mots;
 
		}}                         
	}
mais j'obtiens rien
Merci.

Modification par lolo78: j'ai retiré le préfixe Perl 6 du titre de ton post, car il ne concerne pas Perl 6, mais bien Perl 5.