perl提取指定字符
答案:2 悬赏:70 手机版
解决时间 2021-03-20 09:26
- 提问者网友：
- 2021-03-19 09:50
perl提取指定字符
最佳答案
- 五星知识达人网友：蓝房子
- 2021-03-19 10:18
open IN,"<$ARGV[0]";
open OUT,">$ARGV[1]";
while(){
chomp;
if($_=~/(192\.168\.\d+\.\d+)/){
$id=$1;
print OUT "$id\n";
}}
望采纳
open OUT,">$ARGV[1]";
while(
chomp;
if($_=~/(192\.168\.\d+\.\d+)/){
$id=$1;
print OUT "$id\n";
}}
望采纳
全部回答
- 1楼网友：酒安江南
- 2021-03-19 11:54
if (/(\d+.\d+.\d+.\d+)/) {print $1;}
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯