婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 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淺析的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 楚雄市| 临湘市| 泸水县| 色达县| 五寨县| 库伦旗| 阿勒泰市| 武强县| 阿勒泰市| 凌云县| 锡林浩特市| 榆社县| 福州市| 龙山县| 梅河口市| 新竹市| 泸定县| 新竹县| 曲靖市| 玉屏| 太和县| 高平市| 洮南市| 庆安县| 屏东县| 温泉县| 章丘市| 涞水县| 甘洛县| 西城区| 惠东县| 龙口市| 安化县| 商都县| 安吉县| 盐边县| 利津县| 广丰县| 余庆县| 新乡市| 鲁甸县|