Discussion :

[shinux2004]

Voila j'ai un tableau @adresse , je veut en supprimé les entré vides. J'ai fait le sous programme suivant , mais il ne fonctionne pas auriez vous une idée de ce qui cloche.

Code :

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

1
2
3
4
5
6
sub clean(@)
{
 my @adresse = @_;
  @adresse  =  grep { $_ ne ' ' } @adresse;
  return @adresse 
}

J'ai aussi un autre problème , avec stat();

j'ai le sous programme suivant, qui ne fonctionne lui aussi pas et je ne trouve vraiment pas ce qui cloche

Code :

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

1
2
3
4
5
6
7
sub size(@)
{
 my @fichier = @_;
  for my $T( @fichier ) {
  return my $taille=(stat("$T"))[7];
 }
}

[GLDavid]

Salut

Pour ta fonction clean, je te propose le code suivant, sans doute plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sub clean(@)
{
  my (@adresse);
  foreach(@_){
        #Si ce n'est pas un caractère d'espacement, on retient.
	if(/(\S)/) {
		push(@adresse, $_);
	}
  }
  return @adresse
}

Concernant ta deuxième question, tu peux l'alléger de cette manière :

Code :

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

1
2
3
4
5
6
 
sub size
{
	my($fichier) = $_[0];
	return my($taille)=(stat($fichier))[7];
}

Attention, la fonction n'attendra qu'un argument (un nom de fichier) et rendra la taille en octets. Maintenant, ça devrait pas être compliqué pour qu'elle accepte une liste de fichiers et retourne une liste des tailles de ces fichiers.

@++

[vodevil]

Essaie sa

Code :

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

1
2
3
4
5
6
7
sub size(@)
{ 
 for my $T( @_ ) {
   my($fichier) = $_[0]; 
   return my($taille)=(stat($fichier))[7];
   }
}

[nematoad]

Voila j'ai un tableau @adresse , je veut en supprimé les entré vides. J'ai fait le sous programme suivant , mais il ne fonctionne pas auriez vous une idée de ce qui cloche.

Avec ou sans un caractère espace dedans? Sinon,

Code :

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

1
2
3
sub clean {
  return grep { defined } @_;
}

pour "tout sauf undef". (ou bien tu veux

Code :

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

grep { $_ ne '' } # sans espace

et tu auras plus de succès je crois).

J'ai aussi un autre problème :twisted: , avec stat();

j'ai le sous programme suivant, qui ne fonctionne lui aussi pas et je ne trouve vraiment pas ce qui cloche :oops:

Tu commences à boucler sur une liste et tu retournes le premier résultat. Et puis -s et peut-être plus approprié :

Code :

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

1
2
3
sub size {
    return map { -s } @_;
}

Laisses tomber les prototypes, ça ne sert à rien dans ce contexte.

N

[shinux2004]

Thanks sa marche au poil