Discussion :

[dubis]

Bonjour,


J'ai un petit soucis. Voici mon script :

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl 
use warnings;
use strict;
use POSIX;
 
my $now_string = localtime;
print "$now_string \n";
my @time_string= $now_string; 
print "$time_string[1] \n";

que me retournne ceci :

Tue Sep 14 15:51:46 2010
Use of uninitialized value in concatenation (.) or string at ./time_test.pl line 9.

Vous l'aurez deviné, j'essaie d’isoler le Tue de la première ligne de résultat de mon script mais apparemment je m'y prend mal

Merci de votre aide.

[lilian_h]

Bonjour,

Je ne crois pas localtime() te renvoie un tableau.

Ce que tu récupère, c'est la même chose que ceci:

Code :

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

1
2
 
my $var=strftime("%a %b %e %H:%M:%S %Y", localtime);

Dans ton cas, tu peux te contenter de:

Code :

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

1
2
 
my $var=strftime("%a",localtime);

Lilian.

[dubis]

Merci Lilian,

mais il me donne le jour en français

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use warnings;
use strict;
use POSIX;
 
my $now_string = localtime;
print "$now_string \n";
my $time_string= strftime("%a",localtime);
print "$time_string \n";

Resultat :

Code :

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

1
2
3
./time_test.pl 
Wed Sep 15 11:10:18 2010 
mer.

[lilian_h]

Je ne sais pas comment lui demander dans une autre langue...

Mais tu peux toujours utiliser une autre solution:

Code :

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

1
2
3
4
 
my $now_string = localtime;
$now_string=~s/\ .*$//g;
print "$new_string\n";

Lilian.

[dubis]

C'est la fonction use POSIX qui fait la réponse,

Code :

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

1
2
perl -e 'my $time_string= strftime("%a",localtime); print "$time_string \n";'
Undefined subroutine &main::strftime called at -e line 1.

Pour comparer :

Code :

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

1
2
3
perl -e 'use POSIX; my $time_string= strftime("%a",localtime); print "$time_string \n";'
 
mer.

alors que :

Code :

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

1
2
3
 perl -e 'my $now_string = localtime; print "$now_string \n";'
 
Wed Sep 15 14:03:29 2010

Comment isoler le mot "Wed" Quand je fait un tableau le mot est changé par un nombre :

Code :

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

1
2
3
perl -e 'my @now_string = localtime; print "$now_string[1] \n";'
 
4

[lilian_h]

Je maintient ma précédente réponse,

Mais le '4', ne serait-il pas l'index du jour de la semaine ?

Lilian.

[Philou67430]

Je ne sais pas comment lui demander dans une autre langue...

Il faut définir la bonne locale. Pour le finnois, par exemple :

Code bash :

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

1
2
3
 
$ perl -e 'use POSIX;setlocale(LC_DATE, "fi_FI");print strftime "%A", localtime()'
torstai