[TP] exemple stupide des types en perl

[cipher16]

Code: Tout sélectionner

#!/usr/bin/env perl

@chiffres=(1,2,3,4,5,6,7,8,9,0);
print $#chiffres;
print "\n";
for($i=0;$i<=$#chiffres;$i++)
{
print $chiffres[$i];
print "\n";
}
%obj=("Test","lol simple test\n","Test2",2);
print $obj{"Test2"};
print "\n";

sub aff_tab
{
my ($test)=@_;
print $test;
print "\n";
}

aff_tab("c'est marrant");
@lol= localtime;
print "sec:$lol[0]\n
min: $lol[1]\n
heure $lol[2]\n
jour: $lol[3]\n
mois $lol[4]\n
année $lol[5]\n";