国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 江油市| 萝北县| 全椒县| 松原市| 临桂县| 辉南县| 皮山县| 贵南县| 马龙县| 京山县| 宁陵县| 镇雄县| 台中市| 碌曲县| 凤冈县| 建德市| 虹口区| 隆子县| 阜宁县| 阳原县| 平湖市| 武夷山市| 聊城市| 双鸭山市| 台山市| 定远县| 中方县| 宝兴县| 宁阳县| 浮山县| 凤城市| 察雅县| 公安县| 达拉特旗| 宜兰县| 林州市| 紫阳县| 且末县| 安福县| 淳安县| 合作市|