modified

sposs · Oct 30, 2011 · 25d944b · 25d944b
1 parent 52242fb
commit 25d944b
Showing 1 changed file with 41 additions and 0 deletions.
diff --git a/Test/testperl.pl b/Test/testperl.pl
@@ -8,3 +8,44 @@
 
 print ("par la racine : $len\npar le calcul : $comp\n");
 
+my @a;
+my $a;
+my @b;
+my $b;
+
+if (defined($a))
+{
+	print "scalar a : $a\n";
+}
+
+if ($a==0)
+{
+	print "scalar a : $a\n";
+}
+
+if (defined($b))
+{
+	print "scalar b : $b\n";
+}
+
+if (defined(@a))
+{
+	print "list a : @a\n";
+}
+
+if (defined(@b))
+{
+	print "list b : @b\n";
+}
+$a = 0;
+
+if (defined($a))
+{
+	print "(0) scalar a : $a\n";
+}
+
+if ($a==0)
+{
+	print "(a=0) scalar a : $a\n";
+}
+