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";
相关文章
这10分钟教程并不是Java和Perl的比较。目标是探索作为Java开发人员如何快速学习Perl。以下是一些从我的角度来看的关键笔记2013-11-11
用perl实现的备份sql的代码，需要的朋友可以参考下2013-02-02
Perl语言有很多值得学习的地方，那么你对Perl哈希表的概念是否熟悉呢，这里和大家分享一下，希望本文的介绍能让你有所收获2013-02-02
这篇文章主要介绍了Perl命令行应用程序详解,本文大量讲解了perl的命令行参数和一句话实现的一些功能,需要的朋友可以参考下2015-02-02
这篇文章主要介绍了Perl脚本实现递归遍历目录下的文件,本文直接给出实现代码,代码中包含明细注释,需要的朋友可以参考下2015-04-04
Perl字符串处理学习备忘录，包括chop和chomp函数、getc函数、拼接字符串、分割字符串、重复拼接字符串、字串替换等。有需要的朋友，可以参考下2013-02-02
使用perl实现一个简单的NIDS，有需要的朋友可以参考下2013-02-02
这篇文章主要介绍了About Perl（翻译Perl官网介绍）,本文翻译自Perl官网介绍,讲解什么是Perl、Perl的历史、Perl 5 特征、Perl在WEB环境下的使用等内容,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Perl信号处理学习简单小结,本文着重列出了Unix下常见的处理信号表,需要的朋友可以参考下2014-09-09
要求直接跳过第一行，然后读取后面的内容，以下代码来自网络，感谢原作者的辛苦劳动，顺祝新年快乐2013-02-02
最新评论