国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

perl調(diào)用外部命令(g)awk的方法

2020-10-31 15:19:29
字體:
供稿:網(wǎng)友

但是,linux系統(tǒng)的常用小工具awk天生對列操作友好,有時(shí)直接在perl中調(diào)用awk比寫相應(yīng)的perl腳本要方便有效的多。比如用system插入awk語句:

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

system(gawk '{print $1}' $filename);

執(zhí)行該l語句,你會發(fā)現(xiàn)這行會報(bào)錯(cuò),提示你使用了read-only 的變量$1。
那么,如何處理兩種生態(tài)系統(tǒng)下的沖突呢?
有一個(gè)簡單的解決辦法:

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

my $i="$1";
system(gawk '{print $i}' $filename);

這樣便解決了(g)awk的$1和perl的 內(nèi)置變量$1的沖突的問題了。

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 长汀县| 罗平县| 长武县| 河源市| 板桥市| 通州区| 师宗县| 普定县| 明光市| 斗六市| 土默特右旗| 枝江市| 开远市| 武安市| 讷河市| 铁岭市| 台北县| 乐昌市| 肥城市| 吉安市| 伊川县| 商都县| 志丹县| 青阳县| 彭阳县| 镇江市| 赤水市| 松原市| 金湖县| 博白县| 安化县| 盐池县| 苗栗市| 兴安县| 隆子县| 通海县| 东乡| 陆河县| 周至县| 岑溪市| 白朗县|