perl中默认的变量介绍

fun("test","test1");
sub fun
{
        my($pram1,$pram2) = @_;
        print "$pram1 @_[0]n";
        print "$pram2 @_[1]n";
}

test1 test1

2.?$_：默认变量在没有定义变量的情况下把数据存入$中；代码如下，为两个不同按行读取文件的方式。

open(FILE,"<file.txt")
while(<FILE>)
{
   print $_;
}
open(FILE,"<file.txt")
while($line = <FILE>)
{
   print $line;
}

3. $1,$2： $1就是在使用正则表达式的时候第一对小括号中的原符号所对应的匹配内容。 ? $2就是第二对小括号中的原符号所对应的匹配内容。测试代码如下。

<pre name="code" class="python">#! /usr/bin/perl
my $line = "123as gen=12345";
if ($line =~ /(d*).*gen=(d*)/)
{
        print "$1 $2";
}

分别输出第一个括号匹配的内容和第二个括号匹配的内容。输出为：123 12345

4. $#： 数组中元素的个数。

5. $&与格式匹配的字符串。测试代码如下。

<pre name="code" class="python">#! /usr/bin/perl -w
my $line = "123as gen das";
if ($line =~ /gen/)
{
        print $&;
}输出gen