perl 常用语法

 

$string = join(" ","this","is","a","string"); 
@list = ("words","and"); 
@string = join("::","@list","color");    
print "@string\n";   #words and::color 
@string = join("::",@list,"color"); 
print "@string\n";   #words::and::color 
@array = split(/::/,$string); 
print "@string\n"; #words::and::color 

 
匹配输入 
my $string = "25abc8"; 
$string =~ /abc/; 
$matched = $&;  #  $&当前匹配值  
print  $matched ; 

perl 子函数传入参数 
 
sub sub1{ 
    my($number1, $number2, $number3) = @_;  # 必须用 @_ 
    ... 
  }