Ubuntu-fr

Yannick_LM

[Résolu] Problème script Perl

Bonjour à tous, voilà un petit script Perl que j'ai écrit pour télécharger les épisodes du 'Donjon de Naheulbeuk', j'en avais marre de devoir faire 'Clique droit, enregistrer sous, décompresser ici ...'

#!/usr/bin/perl -w
use strict;
use LWP::Simple;


my $source = "source" ;
my $url = "http://www.penofchaos.com/warham/download/";
getstore($url,$source) or die ("get : $!");

open(FIC,$source);

my $i = 0;
my $content = "donjon";
while (<FIC>)
{
	my $ligne = $_;
	if ($ligne =~ m/donjon(\d\d).zip/) {
		$i = $1;
		$content = "donjon".$i;
		$url = $ligne;
		$url =~ s/.*href=\'//;
		$url =~ s/\'.*$//;
		if ( ! -e $content ) {
			print "Téléchargement de l'épisode $i ... \n";
			getstore($url,$content) and $i +=1;	
			print "O.K. : décompression de l'archive : ...";
			open(FILE,"|unzip $content");
		} ;
	};	
}

close(FIC);

Le petit souci, c'est que les différents print ne se font pas au bon endroit : Le print "Décompression de l'archive se fait après la décompression et non avant.
Des idées ?

Si vous trouvez, je mettrai ça dans la section "Trucs et Astuces"...

EDIT :
En fait,ça marche ... Voir ici

Si un modo passe par là, il peut supprimer.

Dernière modification par Yannick_LM (Le 23/05/2007, à 02:24)

---

Trucs et astuces pour Vim
Ma web page  avec des trucs dessus ...