numerotation en 0001 , 0002 etc
Le
Mag
Bonjour,
je suis en debutant sous perl ;=)
Je cherche a faire un compteur a 4 chiffres
qui s'incremente, le probleme, si je part en '0001'
et que je fais un simple
$count=$count+1
cela passe a 2 et non pas a 0002
comment faire ?
merci d'avance
je suis en debutant sous perl ;=)
Je cherche a faire un compteur a 4 chiffres
qui s'incremente, le probleme, si je part en '0001'
et que je fais un simple
$count=$count+1
cela passe a 2 et non pas a 0002
comment faire ?
merci d'avance
Poser une question
% perl -e 'for $num (1..10) {printf "%04s",$num, print "n"}'
donc perldoc -f sprintf
PK
--
| _,,,---,,_ Patrice KARATCHENTZEFF
ZZZzz /,`.-'`' -. ;-;;,_ mailto:
|,4- ) )-,_. , ( `'-' http://p.karatchentzeff.free.fr
'---''(_/--' `-'_)
En me relisant, je me dis que c'est un peu lourd :
% perl -e 'for $num (1..10) { printf "%04sn", $num }'
ou bien en utilisant map
% perl -e 'map { printf "%04sn", $_ } (1..10)'
Enfin, cela n'enlevait rien à la solution :)
PK
--
| _,,,---,,_ Patrice KARATCHENTZEFF
ZZZzz /,`.-'`' -. ;-;;,_ mailto:
|,4- ) )-,_. , ( `'-' http://p.karatchentzeff.free.fr
'---''(_/--' `-'_)
Il semble que Perl fonctionne aussi sous Windows :
C:WINDOWS>perl -e "map { printf "%04sn", $_ } (1..10)"
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
C:WINDOWS>
Attention, un nombre écrit avec un zéro en tête est exprimé
en octal (base 8), ce qui peut mener à des surprises...
tth ~ $ perl -e 'print 0042,"n";'
34
tth ~ $
--
Par trois fois: --{ Thierry B. a plopé ceci: }--