perl命令行参数内建数组@ARGV浅析
更新时间：2014年06月24日 08:50:38 投稿：junjie
这篇文章主要介绍了perl命令行参数内建数组@ARGV浅析,本文重点在于讲解@ARGV的用法,并通过实例来说明,需要的朋友可以参考下
当perl脚本运行时，从命令行上传递给它的参数存储在内建数组@ARGV中，@ARGV是PERL默认用来接收参数的数组，可以有多个参数，$ARGV[0]是表示接收到的第一个参数，$ARGV[1]表示第二个。
使用方法为：
复制代码 代码如下:
perl my.pl $ARGV[0] $ARGV[1]
看一个具体例子：
比如文件1的内容：
复制代码 代码如下:
1320238
1320239
1320239
1320238
1320238
1320238
1320235
1320237
1320239
1320239
1320238
1320238
1320238
1320235
1320237
文件2的内容：
复制代码 代码如下:
102 5709072117805887 4001 1301854
102 5709072117807510 4001 1320292
102 5709072117838653 4001 1301857
102 5709072117814280 4001 1305832
102 5709072117839397 4001 1310673
102 5709072117839335 4001 1311270
102 5709072117807510 4001 1320292
102 5709072117838653 4001 1301857
102 5709072117814280 4001 1305832
102 5709072117839397 4001 1310673
102 5709072117839335 4001 1311270
我想先把文件1的内容读取出来，然后读取文件二的内容，在读取文件2的内容的时候，文件2的最后一列需要包含在上文件1内。
复制代码 代码如下:
[root@localhost ~]$ perl ex.pl 1.txt 2.txt
[root@localhost ~]$ cat ex.pl
#!/usr/bin/perl
use strict;
[root@localhost ~]$ cat ex.pl
#!/usr/bin/perl
use strict;
open(ONE,"$ARGV[0]") or die $!;
open(TWO,"$ARGV[1]") or die $!;
my %hash;
while (<TWO>) {
chomp;
my @line=split;
my $column4=$line[3];
$hash{$column4}=$_;
}
while (<ONE>) {
chomp;
print $hash{$_} if defined $hash{$_};
}
print"\n";
相关文章
这篇文章主要介绍了Perl中的特殊符号介绍,需要的朋友可以参考下2017-10-10
在Perl排名持续下降的情况下学Perl，似乎是有点不明智。但是，工作需要，不得不学啊。再说，Perl现在在测试领域还是用得非常多的。Phython虽然也在测试领域开始活跃起来，不过我始终还是不太喜欢Phython的语法。2009-04-04
有关perl引用的相关知识，有需要的朋友可以参考下2013-02-02
怎么用perl程序，随机生成一条序列，使ACGT四种碱基的含量分别为0.3，0.3，0.2，0.2！2013-03-03
Perl使用File::Basename获取文件扩展名的代码
本文为大家介绍的这个例子，实现了获取/home/topgkw中所有文件后缀，其中目录返回空值2013-02-02
这篇文章主要介绍了Perl进行错误处理和创建子程序的示例,Perl允许开发者编写健壮的代码,能够优雅地处理运行时错误和异常情况,需要的朋友可以参考下2024-06-06
Perl中使用dig和nali判断DNS解析地址归属地是否一致脚本分享
这篇文章主要介绍了Perl中使用dig和nali判断DNS解析地址归属地是否一致脚本分享,本文同时介绍了一个使用纯真IP库实现的Perl查询工具,需要的朋友可以参考下2014-09-09
perl获取日期与时间的例子，供大家学习参考2013-02-02
这篇文章主要介绍了Perl实现的Linux下socket代理服务器,比较简洁的一个版本,需要的朋友可以参考下2014-08-08
Perl利用函数rand()和srand()为随机数（更确切的说是“伪随机数”）字符串的生成提供了基本的工具2013-02-02
最新评论