校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > perl命令行參數內建數組@ARGV淺析

perl命令行參數內建數組@ARGV淺析

熱門標簽:智能機器人電銷神器 萬利達百貨商場地圖標注 okcc外呼系統怎么調速度 惠州龍門400電話要怎么申請 上海企業外呼系統 熱門電銷機器人 外呼電信系統 電話機器人哪里有賣 河南虛擬外呼系統公司

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

復制代碼 代碼如下:
perl   my.pl $ARGV[0]  $ARGV[1]

看一個具體例子:
比如文件1的內容:
復制代碼 代碼如下:
1320238
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

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

復制代碼 代碼如下:
[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";

您可能感興趣的文章:
  • Perl調用shell命令方法小結
  • Perl Sort函數用法總結和使用實例
  • Perl內置特殊變量總結
  • Perl中的特殊內置變量詳細介紹

標簽:淮安 合肥 秦皇島 綏化 綿陽 周口 百色 周口

巨人網絡通訊聲明:本文標題《perl命令行參數內建數組@ARGV淺析》,本文關鍵詞  perl,命令行,參數,內建,數組,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《perl命令行參數內建數組@ARGV淺析》相關的同類信息!
  • 本頁收集關于perl命令行參數內建數組@ARGV淺析的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 甘泉县| 垫江县| 三明市| 天镇县| 贡觉县| 隆安县| 关岭| 南华县| 桂东县| 武山县| 黎平县| 阿克苏市| 西畴县| 永善县| 新平| 广汉市| 金阳县| 崇明县| 阿克| 隆德县| 讷河市| 九寨沟县| 吴桥县| 天柱县| 阿拉尔市| 溧阳市| 贞丰县| 肇州县| 襄城县| 乐东| 简阳市| 从江县| 布尔津县| 车致| 甘孜县| 阳泉市| 新宁县| 万安县| 察雅县| 乌兰浩特市| 潞城市|