Structure d'un programme, exemple

> cat exemple.pl
 #!/usr/loca/bin/perl
 
 #les dièses servent à commenter une ligne
 
 
 #une routine
 sub ma_routine
 {
   ($arg1,$arg2)=@_;
 
   print "argument 1 : $arg1\n";
   print "argument 2 : $arg2\n";
 
   if ($arg1 == $arg2) 
   {
      print "les argumuments sont egaux\n";
   }
   else
   {
      print "les argumuments sont differents\n";
   }
 }       
 
 #le programme principal
 
 $argument_1 = @ARGV[0];
 $argument_2 = @ARGV[1];
 
 ma_routine($argument_1, $argument_2);
 >

Christophe Dupont