#!/usr/bin/perl
# Tableaux
@tab1 = ("lu", "ma", "me");
@tab2 = @tab1[1,2];
@tab2 = @tab1;
print $tab[0];
print $#tab1; # $# = index du dernier élément
$tab1[3] = "Je";
$tab1[30] = "Mon Langage Perl";

$#tab $_

@ARGV

$ARGV[0] # Le premier argument saisi
$#ARGV
