perl基础-4 (Perl编程24学时教程)

#!


$s = 'test';
@array1 = ("apple","orange",80,$s);
@array2 = qw(apple orange 80 $s);

print "@array1","n";
print @array1,"n";
print @array2,"n";

###########################################
&test;

#上下文的概念
sub test{
	$i=0;
	$array1[4] = "shit";
	for($i;$i<($size=@array1);$i++)   #($size=@array1)
	{
		print @array1[$i],"n";
	}
	
	if($array1[4] == $array1[-1])
    {
    	print "equal","n";
    } 
    
	foreach $k (@array1) #迭代
	{
		print $k,"n";
	}
}


$a = @array1;
print $a,"n";        #数组元素个数

print $#array1,"n";  #最后索引号

#上下文的概念对比
print localtime,"n"; 
print scalar(localtime),"n"; 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;

###########################################

#scalar(localtime) 的值：Mon Oct 29 20:29:41 2012
@arraytime = split(/ /,scalar(localtime));  #/ / 分割模式，即正则表达式
print $num = @arraytime,"n";
print "@arraytime","n";

###########################################

@array3 = (
            "zhangshan,18","lisi,19","wangwu,20"
           );
           
print $size=@array3,"n";
$i = 0;
for $str (@array3)
{   
	print "test","n";
    ($name,$age) = split(/,/,$str);
    print $name,"n";
    print $age,"n";
}

###########################################

$number = join('-',(1..10));   
print $number,"n";               #1-2-3-4-5-6-7-8-9-10

$temp = 'just testing';
$number1 = join('-',split(//,$temp)); 
print $number1,"n";