Commandes shell pour modifier des lignes

[tmpfs]$ cat fichier.html
<a href="javascript:PopupImage('membre/images/image01.jpg')"><img align="center" src="membre/thumbnails/image01.jpg" width="154" height="118" title="image1_4.jpg" border="0"></a>

[tmpfs]$ sed 's#\([^>]*/\)\([^)]*\)\(.*src="[^"]*/\)\([^"]*\)\(".*\)\(title="\)\([^"]*\)\(".*\)#\1\7'\''\3\7"\5\6\7\8#' fichier.html

<a href="javascript:PopupImage('membre/images/image1_4.jpg')"><img align="center" src="membre/thumbnails/image1_4.jpg" width="154" height="118" title="image1_4.jpg" border="0"></a>

[tmpfs]$ 

\([^"]*"\)\(.*\)

\([^"]*\)\(".*\)

#!/usr/bin/perl

use strict;
use warnings;

my @fichiers;

print "Entrer le chemin complet du répertoire : \n";
my $rep = <STDIN>;

chomp($rep);

if(!(-e $rep))
{
	warn "Pas de dossier de ce nom";
	
	exit(0);
}

print "Entrer la chaine de caractère à remplacer : \n";
my $chaine1 = <STDIN>;

chomp($chaine1);

print "Entrer la chaine de caractère en remplacement : \n";
my $chaine2 = <STDIN>;

chomp($chaine2);

print "Attention, vous vous apprêtez à remplacer $chaine1 par $chaine2 dans tous les fichiers du répertoire $rep, taper O pour continuer : \n";
my $confirmation = <STDIN>;

chomp($confirmation);

if($confirmation !~ /O|o/)
{
	exit(0);
}

&parcoursArborescence($rep);

&changeTerme();


##Déclaration des fonctions


sub parcoursArborescence
{
	my($rep) = shift;
	
	opendir(REP, $rep);
	
	my @liste = readdir(REP);
	
	closedir(REP);
	
	foreach my $nomfichier (@liste)
	{
		if($nomfichier ne "." && $nomfichier ne ".." && $nomfichier !~ /^\./)
		{
			my $fichier = $rep."/".$nomfichier;
			
			if(-f $fichier && !(-B $fichier) && !(-l $fichier))
			{
				push(@fichiers, $fichier);
			}
			
			if(-d $fichier)
			{
				&parcoursArborescence($fichier);
			}
		}
	}
}

sub changeTerme
{
	foreach my $fichier (@fichiers)
	{	
		my @temp;
		my $estModifie = 0;
		
		open(FICHIER, "$fichier");
		
		while(<FICHIER>)
		{
			push(@temp, $_);
		}

		close(FICHIER);
		
		open(FICHIER, ">$fichier");
		
		foreach my $temp (@temp)
		{		
			if($temp =~ /$chaine1/)
			{
				$estModifie = 1;
			}
			
			$temp =~ s/$chaine1/$chaine2/g;
			
			print FICHIER $temp;
		}
		
		close(FICHIER);
		
		if($estModifie == 1)
		{
			print "Modifications effectuées dans $fichier\n";
		}
	}
}

#!/usr/bin/perl

use strict;
use warnings;

my @fichiers;

print "Entrer le chemin complet du répertoire : \n";
my $rep = <STDIN>;

chomp($rep);

if(!(-e $rep))
{
	warn "Pas de dossier de ce nom";
	
	exit(0);
}

print "Attention, vous vous apprêtez à modifier certains fichiers du répertoire $rep, taper O pour continuer : \n";
my $confirmation = <STDIN>;

chomp($confirmation);

if($confirmation !~ /O|o/)
{
	exit(0);
}

&parcoursArborescence($rep);

&changeTerme();


##Déclaration des fonctions

sub parcoursArborescence
{
	my($rep) = shift;
	
	opendir(REP, $rep);
	
	my @liste = readdir(REP);
	
	closedir(REP);
	
	foreach my $nomfichier (@liste)
	{
		if($nomfichier ne "." && $nomfichier ne ".." && $nomfichier !~ /^\./)
		{
			my $fichier = $rep."/".$nomfichier;
			
			if(-f $fichier && !(-B $fichier) && !(-l $fichier))
			{
				push(@fichiers, $fichier);
			}
			
			if(-d $fichier)
			{
				&parcoursArborescence($fichier);
			}
		}
	}
}

sub changeTerme
{
	foreach my $fichier (@fichiers)
	{	
		my @temp;
		my $estModifie = 0;
		
		open(FICHIER, "$fichier");
		
		while(<FICHIER>)
		{
			push(@temp, $_);
		}

		close(FICHIER);
		
		open(FICHIER, ">$fichier");
		
		foreach my $temp (@temp)
		{		
			
			if( $temp =~ /<a href(.*?)\/(\w*)\.(\w*)(.*?)><img align(.*?)title\=\"(.*?)\"(.*?)>/)
			{
				my $nouveau = $6;
				my $ancien = $2.".".$3;
				
				$temp =~ s/$ancien/$nouveau/;
				
				print "Remplacement de $ancien par $nouveau\n";
				
				$estModifie = 1;
			}
			
			print FICHIER $temp;
		}
		
		close(FICHIER);
		
		if($estModifie == 1)
		{
			print "Modifications effectuées dans $fichier\n";
		}
	}
}