Tfe

Old stuff/Perl/anim/backup.pl

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

my ($char,$line,$debut,$fin);
my $p;
my  @temp;
my @nums = ( #emplacements des dieses... (de 0 a 4)
       ["1-3","0 4","0 4","0 4","1-3"] ,#0
       ["1-2","0 2","2","2","0-4"], #1
       ["1-2","0 3","3","1","0-4"], #2
       ["1-3","0 4","2-3","0 4","1-3"], #3
	   ["3","2-3","1 3","0-4","3"], #4
	   ["0-4","0","1-3","4","0-3"], #5
	   ["1-4","0","0 2-3","0 4","0-3"], #6
	   ["0-3","4","3","2","1"], #7
	   ["1-3","0 4","2","0 4","1-3"], #8
	   ["1-3","0 4","1-4","4","0-3"] #9
	   );
	   
$|++;	   


	$line = 0;
#chaque numero
		  foreach(@{$nums[5]})
		   {
			   $char = 0;
		  
			  foreach (split)
			  {
				
				  while (!/^$char/) { $char++; print " ";}
				  if (/-/) { ($debut,$fin) = split("-");  $char++; for ($debut .. $fin) { print "#"; } next;}
				  else { print "#";  $char++; next;}
		
			   }   	
				
		print "\n";	
		}
	

print "\n\n\n";