commandes shell pour modifier des lignesRésolu/Fermé

Question

Bonjour, je suis sur ubuntu et j'entretiens plusieurs petits sites, notamment avec des photos, je fais souvent des modifications et du coup mon arborescence genre, ou alors je change de code pour les galeries etc.. du coup j'ai des modifications a faire.. et dans un tas de fichiers... mais à la main c'est pénible et comme j'ai un ordinateur pour bosser à ma place normalement, je me suis mis en quête d'une solution.. informatique :) Après quelques recherches j'en ai conclus que le plus "simple" serais de faire faire ça par un script shell... j'ai donc cherché dans cette directions mais je ne suis pas assez aguerrit en programmation pour avoir une vraie direction, et les sites qui expliquent le shell partent souvent du début (normal) et bon.. j'y comprend pas tout là non plus... voici une ligne type de mon fichier :

dans cette ligne, qui existe à x exemplaires, je veux remplacer systématiquement : membre/images/image01.jpg par : membre/images/image1_4.jpg (ce qui est dans le title="......jpg") Je pense que c'est faisable, j'ai connu quelqu'un qui m'avait fait un script pour ça il y a quelques années mais j'ai perdu le script... Merci d'avance si vous pouvez m'aider. A plus tard. bonne année ! daslook

jipicy · Answer

Salut, Un truc du genre (un peu lourd et tordu) devrait le faire (mais faudra quand même cibler la ligne en question en espérant quelle soit seule sur une ligne) : [tmpfs]$ cat fichier.html

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

[tmpfs]$ ;-)) Édit : Changement de : $[^"]*"$$.*$ par : $[^"]*$$".*$

JessayeDeTrouver · Answer

jipicy t'es trop fort !

c'est la preuve que linux est mieux que windows

miramaze · Answer

Salut,

je sais pas si je vais répondre à ton problème mais j'ai fais un petit script (en perl désolé :( ) qui va permettre de remplacer un terme par un autre dans tous les fichiers (texte, html etc) d'un dossier et tous les fichiers de ses sous-dossiers et ainsi de suite récursivement, je pense que c'est bon mais faut le tester un peu pour voir pour lever les erreurs qui m'auraient échappés. A utiliser avec précautions car il modifie tous les fichiers d'une arborescence (hors fichiers binaires et liens symboliques). A ajouter que la casse est prise en compte.

#!/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";
		}
	}
}

daslook · Answer

Salut jipicy et merci pour ta réponse,
bon, je suppose après m'être à l'instant documenté (non sans avoir tenté de tout entrer à l'arrache deux ou trois fois...) qu'il faut que je monte un tmpfs en prem's ?
Bon remarque ça a l'air pas mal, j'ai trouvé un blog qui explique ça bien.

Je fais tout ça, et je tente à nouveau :)

merci
a plus tard
daslook

miramaze · Answer

Donc tu coup ce que je viens de te filer ne peux pas t'aider alors ?

daslook · Answer

bonsoir miramaze,
merci pour ton aide
ouch, bon déjà je nage en shell alors en perl.. c'est super intéressant en tout cas, je vais voir si je chope de la doc pour avoir des bases avant de faire n'importe quoi, mais clairement que ça m'intéresse pour plus tard.. ça laisse songeur

a plus tard
daslook

miramaze · Answer

Tu sais le script est tout prêt, il va te demander lui-même les infos de répertoire, le terme que tu veux remplacer et par quoi tu veux le remplacer, à saisir dans le terminal, y'a juste à le lancer, y'a rien à modifier. T'as juste à le copier coller dans un fichier texte, à l'enregistrer (mets l'extension pl pour faire plus joli) et à appeller ton programme comme ça : perl nomduprogramme enfin tu le sais peut-être déjà je veux pas te prendre pour une bille.

miramaze · Answer

Et bien le script remplace toutes les occurences d'un termes par un autre dans tous les fichiers et et tous les sous répertoires d'un répertoire donc oui. Après si c'est toujours la même configuration et que c'est le title qui doit remplacer le reste alors effectivement il faut modifier et je n'avais pas pigé ce que tu voulais.

Galawin · Answer

Ya pas une fonction dans gedit pour ça ?
"Chercher et remplacer" non ?

edit : ah non j'avais pas comprit le problème... J'ai rien dit ^^

daslook · Answer

sinon avec le shell j'ai fais des tentatives aussi et j'obtiens ce message :

bash: Erreur de syntaxe près du symbole inattendu « < »

bon, je cherche le "<" en question mais franchement.. 

mon truc est peut être pas faisable sous cette forme en fait

a plus tard en tout cas
daslook

miramaze · Answer

Re, j'ai revu ma copie pour coller exactement à l'exemple plus haut du coup :

il prend le nom donné par title soit ici image1_4.jpg, il prend l'occurence à remplacer ici back03.jpg et il remplace la seconde par la première (si tu as plusieurs fois la seconde dans la ligne il la remplace par exemple si dans src=" tu as aussi la seconde il la remplace par la première) ce qui donne au final :

Et ça encore une fois pour tous fichiers d'un répertoire et de tous ses sous-répertoires récursivement. Il faut que tes lignes à remplacer soit construites sur le même modèle que ci dessus. Voici le script modifié : #!/usr/bin/perl use strict; use warnings; my @fichiers; print "Entrer le chemin complet du répertoire : "; my $rep = ; 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 : "; my $confirmation = ; 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() { push(@temp, $_); } close(FICHIER); open(FICHIER, ">$fichier"); foreach my $temp (@temp) { if( $temp =~ //) { my $nouveau = $6; my $ancien = $2.".".$3; $temp =~ s/$ancien/$nouveau/; print "Remplacement de $ancien par $nouveau "; $estModifie = 1; } print FICHIER $temp; } close(FICHIER); if($estModifie == 1) { print "Modifications effectuées dans $fichier "; } } }

daslook · Answer

ah ouai, ça fonctionne super bien
c'est dingue

super merci, je vais "étudier" (lire des tutos, bidouiller des script..) le perl de plus près, avant ça ça me disait franchement rien :)

merci beaucoup
a plus tard
daslook

miramaze · Answer

De rien.

Bon, c'étais bien ça que tu voulais alors.

C'est super cool le Perl avant que je m'y mette ça me disait trop rien non plus mais maintenant, c'est mon langage préféré mais la solution de jipicy à base du bon vieux shell était nickel aussi...

Tu peux mettre le post en résolu alors si ton problème est réglé.

daslook · Answer

Oui, j'ai mis le post en "résolu" :)

je vais revoir la commande shell, je n'y arrive pas, je dois faire une erreur quelque part... je vais chercher

Merci à tous
bon weekend

Commandes shell pour modifier des lignes

14 réponses

Discussions similaires

Newsletters