Tfe

Old stuff/Perl/anim/num_03.pl

#!/usr/bin/perl -w
use strict;

my ($debut);
my  @temp;


do "fonction_num.pl" or die("ERROR LOADING fonction_num.pl: $!\n"); 		#charge la fonction gechar et genfullchar

my @chars = genfullchar();
@temp = genchar(17);

for (14,21,21,24)
{ 
	for $debut(0 .. 4) { push (@{$temp[$debut]} , @{$chars[$_][$debut]}); }}


foreach (@temp) { foreach (@{$_}) { print "$_"; }   print "\n"; }