好湿?好紧?好多水好爽自慰,久久久噜久噜久久综合,成人做爰A片免费看黄冈,机机对机机30分钟无遮挡

主頁 > 知識庫 > 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淺析的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 欧美日韩精品AV一区二区| 国产三级大片| 琪琪see色原网一区二区| 高潮爽粗h抽搐| 狠狠躁天天躁av性色雪峰影视 | 某某by木苏里| 亚洲日本欧美中文字幕001| 69式互舔高潮视频免费播放| 92午夜福利100少妇在线| 免费观看黄页网站| 翁熄性放纵交换高清视频| 欧美无砖砖区免费| 91av视频免费在线观看| 国产一区二区三区免费观看潘金莲| 午夜免费视频.在线观看| 日本在线电影一区二区三区| 日本人交换乱理伦片| 高H惩罚慎入调教sm| 亚洲国产99在线精品一区二区 | 苍老师的最后一次| aⅴ解说水果派| 羞羞韩漫在线观看| 亚洲乱码国产乱码精品精可以看| 国产?精品?无码?在线看漫画| 一个吃b两个吃| 老司机黄| 日韩少妇高潮抽搐| 成人毛片18女人毛片免费| 久久婷婷国产综合精品青草| 美女的裸照| 狠狠干狠狠色| 色婷婷激情AV精品牛视| 看黄a大片视频播放| 免费a黄色| 6080免费| 茄子成人看A∨片免费软件| 免费看两个女人大毛片| 色四月婷婷| 潼关县| **aaaa**毛片在线播放 | 大尺度嫩模与摄影师视频|