fun("test", "test1");
sub fun
{
my($pram1, $pram2) = @_;
print "$pram1 @_[0]\n";
print "$pram2 @_[1]\n";
}
输出为:test test
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
6. @ARGV:传入脚本中的参数。取参数方式问$ARGV[0]..7. $?: 上一个命令的执行结果状态
8. $!: 根据上下文内容返回错误号或者错误串 相当于die函数执行的结果