perl中默认的变量介绍

本文详细介绍了Perl编程语言中的一些特殊变量及其用法,包括默认变量$_、数组元素计数$#、匹配字符串$&以及传入脚本参数@ARGV等,并通过示例代码展示了这些变量的应用场景。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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函数执行的结果

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值