Discussion :

[NicX2610]

Bonjour, je teste un code qui me permet d'effectuer une action (encore non déterminée...) sur des fichiers datant de plus d'un jour.

Pour se faire, j'ai écrit le petit code suivant en Perl. C'est la première fois que j'utilise ce langage.

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
 
 
#!/usr/bin/perl -w
use strict;
 
@file=`find /export/home/hufg/logs -ctime -1`;
 
 
foreach my $name (@file) 
{
	if (-f $name)
	{
		print $name,"\n";
	}
}

Le problème vient du

Code :

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

if (-f $name)

Quand je l'exécute, je reçoit comme erreur :

Unsuccessful stat on filename containing newline at date_file_directory.pl line 12.

Or si j'ajoute :

Code :

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

$name="/export/home/hufj/logs/error.2008_12_10.log";

Tout ce passe bien...

Ou est ma faute?? Mon FIND me renvoi pourtant une ligne normale sans "newline" quand je l'imprime .

Je suis certain que c'est bête mais la je vois pas..

Merci d'avance

[djibril]

Fais ceci et tu comprendras mieux pourquoi ça ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
use strict;
 
@file=`find /export/home/hufg/logs -ctime -1`;
foreach my $name (@file) 
{
	print $name,"\n";
       # if (-f $name)
#	{
#		print $name,"\n";
#	}
}

[NicX2610]

Global symbol "@file" requires explicit package name at test.pl line 4.
Execution of test.pl aborted due to compilation errors.

Donc je rajoute le "my" devant la variable.
Je reteste et il imprime effectivement le chemin.

Ensuite je dé-commente le code de l'exemple que tu m'a donné et j'obtiens :

/export/home/hippoadmin/hufg/logs

Unsuccessful stat on filename containing newline at test.pl line 8.

Grâce au "my" il ne confond plus avec autre chose (je suppose...) mais ça ne résout pas encore mon problème

Merci déjà djibril

[djibril]

As tu moyen d'installer un module sur ta machine? Si oui installe le module Date::Calc.
Ensuite, refait ton code en Perl pure en ragardant la commande stat de Perl et la gestion des dates dans les Source Perl

Sinon, que te donne le print de ton code. Tu peux nous mettre ici ce qu'il te retourne?
Y a t il des espace ou autres?

[NicX2610]

Il retourne ce que j'ai mis au dessus :

/export/home/hippoadmin/hufg/logs

Unsuccessful stat on filename containing newline at test.pl line 8.

Donc il print le nom d'un fichier qui à été modifier il y a moins d'un jour. Le soucis est que ce fichier est un directory, et donc c'est pour ça que je teste ensuite le -f.

Malheureusement, je ne peut installer de module et je fais avec les moyens du bord pour trouver.

Pour lui un newline est \n ou \r c'est ça? Or ici je n'en ai pas... chez toi, cela donne la même chose (en changeant de répertoire)?

[djibril]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
 
my @file=`find /export/home/hippoadmin/hufg/logs  -ctime -1`;
foreach my $name (@file) {
 chomp $name;
 if (-f $name) {
         print $name,"\n";
 }
}

[NicX2610]

Djibril impeccable!

Explication pour ceux qui liraient le sujet dans le futur :

La fonction chomp supprime le dernier caractère s'il s'agit d'un retour à la ligne.

Un retour à la ligne est un newline (comme \n et \r)...
Donc en gros, c'est une erreur invisible mais bien blocante!

Rien de grave, merci Djibril