Question

perl提取指定字符

192.168.1.2 (DHCP)
192.168.100.58 (DHCP)
源文件如上，有很多行，我想提取IP地址，不要后面的空格个(DHCP)，保存到新的文件new.txt中，怎么做？

Answer 1

open IN,"<$ARGV[0]";
open OUT,">$ARGV[1]";
while(<IN>){
chomp;
if($_=~/(192\.168\.\d+\.\d+)/){
$id=$1;
print OUT "$id\n";
}}

望采纳

Answer 2

if (/(\d+.\d+.\d+.\d+)/) {print $1;}