[Perl] J'ai une variable qui varie toute seule...

[Patrice Karatchentzeff]

Salut,

J'ai un truc que je ne pige pas. Voici un POC :

% cat test.pl

#!/usr/bin/perl

use strict;
use warnings;
use English;

my $ptime;


$ptime = printTime();
print  "$ptime : $ptime  grrrr\n";
print  "toto $ptime : rrrggg\n";


sub printTime {
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
  my $time = printf("%02d:%02d:%02d", $hour, $min, $sec);
  return $time;
}

% ./test.pl
16:00:561 : 1  grrrr
toto 1 : rrrggg

Pour quoi la variable ptime devient 1 dès son second emploi ?

Merci

PK

-- 
      |\      _,,,---,,_           Patrice KARATCHENTZEFF
ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:patrice.karatchentzeff at gmail.com
     |,4-  ) )-,_. ,\ (  `'-'      http://p.karatchentzeff.free.fr
    '---''(_/--'  `-'\_)
-------------- section suivante --------------
Une pièce jointe HTML a été nettoyée...
URL: <http://listes.mongueurs.net/mailman/private/perl/attachments/20170914/de4d1c05/attachment.html>