perl中默认的变量介绍

最新推荐文章于 2023-07-02 17:28:45 发布

oathupdate

最新推荐文章于 2023-07-02 17:28:45 发布

阅读量631

点赞数

CC 4.0 BY-SA版权

分类专栏： perl字符串比较 perl默认变量文章标签： perl

本文链接：https://blog.youkuaiyun.com/oathupdate/article/details/47027675

2 篇文章

订阅专栏

1 篇文章

订阅专栏

本文详细介绍了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函数执行的结果