$gh> pt

 (gH) 2001 -- cli.pl

   ## taper vos instructions perl sur une seule ligne
   ## il faut parfois utiliser 2 fois la touche "up"
   ## pour rappeler les commandes précédentes
   ## (on quitte par ^C, par <ENTER> ou par exit ;)

 perl> 16**4 ;
       65536

 perl> 2012%128 ;
       92

 perl> sprintf("%x", ord("A") )
       41

 perl> hex("FFF")
       4095

 perl> ord("a")
       97

 perl> chr(98)
       b

 perl> $cmd = "prog --fmt tex --nbdec 4 --fichier demo.rex" ;
       prog --fmt tex --nbdec 4 --fichier demo.rex

 perl> $cmd = ~/--fmt (.*?) /  ;  print "$1 \n" ;
       tex
       1

 perl> $phr = "A2837 12 18 37 25" ;
 perl> @phr = split(" ",$phr) ;
 perl> shift(@phr) ;
 perl> print "phr @phr \n" ;
       phr 12 18 37 25

 perl> $f = 1 ; $f *= $_ for 1..8 ; # $f = 0 par défaut...
 perl> print " factorielle 8 = $f \n" ;
       factorielle 8 = 40320

 perl> @tv= split(" ","12 5 20 8 15") ; foreach $v (@tv) { $s += $v } ; $s /= $#tv ;

 perl> localtime() ;
       Sat Dec  1 17:22:54 2012