快捷導(dǎo)航

perl命令行參數(shù)內(nèi)建數(shù)組@ARGV淺析

更新時間：2014年06月24日 08:50:38 投稿：junjie

這篇文章主要介紹了perl命令行參數(shù)內(nèi)建數(shù)組@ARGV淺析,本文重點在于講解@ARGV的用法,并通過實例來說明,需要的朋友可以參考下

當perl腳本運行時，從命令行上傳遞給它的參數(shù)存儲在內(nèi)建數(shù)組@ARGV中，@ARGV是PERL默認用來接收參數(shù)的數(shù)組，可以有多個參數(shù)，$ARGV[0]是表示接收到的第一個參數(shù)，$ARGV[1]表示第二個。
使用方法為：

復(fù)制代碼代碼如下:

perl my.pl $ARGV[0] $ARGV[1]

看一個具體例子：
比如文件1的內(nèi)容：

復(fù)制代碼代碼如下:

文件2的內(nèi)容：

復(fù)制代碼代碼如下:

5709072117805887 4001 1301854

5709072117807510 4001 1320292

5709072117838653 4001 1301857

5709072117814280 4001 1305832

5709072117839397 4001 1310673

5709072117839335 4001 1311270

我想先把文件1的內(nèi)容讀取出來，然后讀取文件二的內(nèi)容，在讀取文件2的內(nèi)容的時候，文件2的最后一列需要包含在上文件1內(nèi)。

復(fù)制代碼代碼如下:

[root@localhost ~]$ perl ex.pl 1.txt 2.txt
[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";

您可能感興趣的文章:

相關(guān)文章

為Java程序員準備的10分鐘Perl教程
這10分鐘教程并不是Java和Perl的比較。目標是探索作為Java開發(fā)人員如何快速學(xué)習(xí)Perl。以下是一些從我的角度來看的關(guān)鍵筆記
2013-11-11
perl實現(xiàn)blog備份的腳本代碼
用perl實現(xiàn)的備份sql的代碼，需要的朋友可以參考下
2013-02-02
Perl哈希表用法解析
Perl語言有很多值得學(xué)習(xí)的地方，那么你對Perl哈希表的概念是否熟悉呢，這里和大家分享一下，希望本文的介紹能讓你有所收獲
2013-02-02
Perl命令行應(yīng)用程序詳解
這篇文章主要介紹了Perl命令行應(yīng)用程序詳解,本文大量講解了perl的命令行參數(shù)和一句話實現(xiàn)的一些功能,需要的朋友可以參考下
2015-02-02
Perl腳本實現(xiàn)遞歸遍歷目錄下的文件
這篇文章主要介紹了Perl腳本實現(xiàn)遞歸遍歷目錄下的文件,本文直接給出實現(xiàn)代碼,代碼中包含明細注釋,需要的朋友可以參考下
2015-04-04
Perl 字符串處理備忘錄
Perl字符串處理學(xué)習(xí)備忘錄，包括chop和chomp函數(shù)、getc函數(shù)、拼接字符串、分割字符串、重復(fù)拼接字符串、字串替換等。有需要的朋友，可以參考下
2013-02-02
通過perl實現(xiàn)一個簡單的NIDS
使用perl實現(xiàn)一個簡單的NIDS，有需要的朋友可以參考下
2013-02-02
About Perl（翻譯Perl官網(wǎng)介紹）
這篇文章主要介紹了About Perl（翻譯Perl官網(wǎng)介紹）,本文翻譯自Perl官網(wǎng)介紹,講解什么是Perl、Perl的歷史、Perl 5 特征、Perl在WEB環(huán)境下的使用等內(nèi)容,需要的朋友可以參考下
2015-06-06
Perl信號處理學(xué)習(xí)簡單小結(jié)
這篇文章主要介紹了Perl信號處理學(xué)習(xí)簡單小結(jié),本文著重列出了Unix下常見的處理信號表,需要的朋友可以參考下
2014-09-09
perl跳過首行讀取文件的實現(xiàn)代碼
要求直接跳過第一行，然后讀取后面的內(nèi)容，以下代碼來自網(wǎng)絡(luò)，感謝原作者的辛苦勞動，順祝新年快樂
2013-02-02