Parsing d'une chaine

**Premium** · 22/12/2008, 10h28

Bonjour,

j'essaye de parser une chaine de caractere contenant des fichiers zippés.
Voici mon code :

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
sub test
{
	foreach my $zip_file (glob("./*.zip"))
	{		
		print $zip_file."\n";
		my $rep = $zip_file;
		$rep =~ s/(.*?)\.zip$/$1/;
 
		my $toto = $rep;
		$toto =~ s/\.\/(\w\d)+\.zip$/$1/;
 
		my $test = "temp\_$toto";
		print $test;
	}
}
 
test();