#!/usr/bin/perl -w
#foreach輸出陣列或列表
#$_為 PERL的預設變數， 當foreach不設定引數時， 預設儲存到$_中
#eg.

@array = qw/path user login passwd test/;
print "陣列\@arry值為：@array\n";
print qq/用foreach輸出陣列:\n/;

#注意這裡的陣列要用括號括住才行
foreach $test (@array){
	print "$test\t";
}
print "\n";
#注意， 些時再輸出$test會得到undef， 因為當退出foreach時， $test迴歸原來狀態
print "\n";
print "\$test = $test\n";
print "\n";
foreach $test (1..9){
	print "$test\t";
}
print "\n";
#現在省略$test變數再輸出試下
foreach (@array){
	print "$_\t";
}
print "\n";
#現在省略$test變數再輸出試下
foreach (a..z,A..Z){
	print "$_\t";
}
print "\n";

#each能返回陣列或列表的索引與值
@array=qw/NAME ROOT HOST LOCALHOST IP 192.168.1.3/;
my($a, $b);
while (($a, $b) = each @array){
	print "$a\t$b\n";
	#注意這裡的括號
}
#注意， 用my定義變數時， 要加括號括起來， 而my定義的變數， 只在一個塊裡有效，
#像上面一樣， 當while塊結束時， my定義的兩個變數值會重新變成undef
print q/$a = /;
print "$a\n";
print q/$b = /;
print "$b\n";