Discussion :

[Krispy]

Bonjour.

voilà mon probleme. j'ai un repertoire de 100 gigas avec des mails dedans. autrement dit, énormément de fichiers.

je veux le supprimer mais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rm mails/

me donne l'erreur du too many arguments.

j'ai donc fait un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ls -1 mails/ >> liste.txt

j'ai donc la liste de ces mails dans un fichier texte.

mais now, comment les virer un par un ?
une boucle for devrait suffire, mais je n'y arrive pas. c'est tout con, mais ça me prend la tete. donc si vous avez une idée.

merci bcp

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rm -rf mails/

[Krispy]

oué, j'aurais du préciser. merci de ta réponse.

malhereusement, cette commande échoue
elle rame et mouline pendant des heures sans resultat

[djibril]

tu veux un script perl qui t'efface tes fichiers puis repertoires?

[Krispy]

euh. bah juste les millions de fichiers contenus dans ce repertoire. mais faire tt un script pr ça, c'est ptet lourd.

[djibril]

voilà un script.
mets ce script dans un fichier toto.pl
puis chmod +x toto.pl
puis perl toto.pl

voilà

test le sur un petit repertoire pour voir, j'ai pas eu le temps de le retester.
T'as juste à mettre le chemin de ton repertoire dans $repertoire.

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
#!/usr/bin/perl -w
use strict;
use Carp;

my $repertoire = "Le chemin de ton repertoire racine sans le slash de la fin";
&supp_rep($repertoire):

sub supp_rep{
	my $repertoire = shift;
	my @rep=();
	opendir (REP, $repertoire) || die "impossible d'ouvrir le repertoire $repertoire";
 	my @file_rep = grep { !/^\.\.?$/ } readdir(REP);
	closedir (REP);
	foreach my $nom (@file_rep) {
		if ( -f "$repertoire/$nom") {
			unlink ("$repertoire/$nom"); 
                        print "$repertoire/$nom supprimé\n"; 
	    	}elsif (-d "$repertoire/$nom") {
	      		push (@rep, "$repertoire/$nom");
	      		&supprimer_repertoire("$repertoire/$nom");
	    	}
	}
	#supprime les repertoires qui sont vide (du premier vide au dernier vide d'où le reverse)
	foreach my $rep_vide (reverse @rep) {
		rmdir ($rep_vide) if (-e $rep_vide);
	}
	rmdir($repertoire);
}

[djibril]

y avait des conneries dans le scripts, mets celui ci, je l'ai testé et optimisé :

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
#!/usr/bin/perl -w
use strict;
use Carp;

my $repertoire = "Le chemin de ton repertoire racine sans le slash de la fin";
&supp_rep($repertoire);

sub supp_rep{
	my $repertoire = shift;
	my @rep=();
	opendir (REP, $repertoire) || die "impossible d'ouvrir le repertoire $repertoire";
	foreach my $nom (grep { !/^\.\.?$/ } readdir(REP)) {
		if ( -f "$repertoire/$nom") {
			unlink ("$repertoire/$nom"); 
                        print "$repertoire/$nom supprimé\n"; 
	    	}elsif (-d "$repertoire/$nom") {
	      		push (@rep, "$repertoire/$nom");
	      		&supp_rep("$repertoire/$nom");
	    	}
	}
	#supprime les repertoires qui sont vide (du premier vide au dernier vide d'où le reverse)
	foreach my $rep_vide (reverse @rep) {
		rmdir ($rep_vide) if (-e $rep_vide);
	}
	rmdir($repertoire);
}
system("rm -rf $repertoire");
	closedir (REP);

[gnto]

oué, j'aurais du préciser. merci de ta réponse.

malhereusement, cette commande échoue
elle rame et mouline pendant des heures sans resultat

si c'est des 100 de giga c'est normal !

Sinon action immédiat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rm -f /mails/*

ca mettra le meme tps mais qd tu arretera la commande y'auras des fichier de dissaparu donc au lancement de la seconde commande temps < au premier lancement

[laurentschneider]

si c'est des 100 de giga c'est normal !

Sinon action immédiat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rm -f /mails/*

rm -f /mails/* ne fonctionnera pas s'il y a trop de fichiers.

tu peux faire quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
# rm /mails/* 
ksh: /usr/bin/rm: 0403-027 The parameter list is too long.
# echo /mails/* | xargs -n 100 rm

ça te les efface par group de 100.

testé seulement sur AIX, man xargs peut t'aider

[Katyucha]

J'avais eu ce problème sous Solaris aussi. Un répertoire rempli de 85 000 fichiers....
J'avais fait un truc simplissime :
rm -rf /mails/a*
rm -rf /mails/b*
rm -rf /mails/c*
etc...

Mais je pense que l'idée de Laurent est plus .... propre :p

[gnto]

rm -f /mails/* ne fonctionnera pas s'il y a trop de fichiers.

Ah ! Connais-tu la limite ? Est-ce mal codé ? Ce bug est-il connu, repertorié ?