请教awk匹配IP地址

asusarhai

请教awk匹配IP地址，其中ip地址为shell传递的变量
我匹配的时候老报错 不知道怎么去解决
我的脚本如下
#!/bin/bash
FILEPOOL=(QZIP.csv)
for i in ${FILEPOOL[@]}
do
sed -i 's/  */ /g' $i
IP=`awk   '{print $1}' $i`
for m in "${IP[@]}"
do
zone=`./ip_search.pl $m|cut -b1-4`
num=`awk  '{if ($1~/'${m}'/) print $2}' $i`
echo -en "$num\t\t\t $zone\n"
#echo -en "$m $num $zone\n" >>./zh/$i
done
done
QZIP.csv的内容如下
61.130.78.178 1
61.130.78.178 1
61.130.78.178 1
61.130.78.178 1
61.130.78.178 1

报错如下
awk: {if ($1~/58.213.165.204
awk:          ^ unterminated regexp
awk: cmd. line:1: {if ($1~/58.213.165.204
awk: cmd. line:1:                        ^ unexpected newline or end of string

tomgrean

Post by asusarhai;1962027

#!/bin/bash
FILEPOOL=(QZIP.csv)
for i in ${FILEPOOL[@]}
do
...

楼主的Shell是Bash？你的Bash是什么版的？真强啊。
还有，你就说要匹配IP，具体干什么不知道啊，比如想要等到什么样的效果（结果等）。
还有你脚本里还用其它的perl程序了，应该说一下那个程序是干什么的吧。

给个我的建议：别用Shell里的数组，如果只是想匹配ＩＰ地址，直接用awk按行来处理，我觉得就够了。

asusarhai

我有一个文本文件 格式如下
192.168.1.1  12
第一段是IP 第二段是这个IP登陆的次数
我要用iP_search 找出这个IP的地址位置 如‘江苏’ 附加 为这个文本文件的第三列

变成 192.168.1.11 12 江苏

tomgrean

awk '{printf $0;printf " "; system("./ip_search.pl " $1);}' qzip.csv

你试试吧。如果你的ip_search.pl程序没输出回车符，就在后边再来个  printf "\n";  吧.

asusarhai

可以了 谢谢啊
system("./ip_search.pl " $1);}

这个我还没用过 原来还可以调用系统命令啊

Jockey

强，sh、Awk、Perl全部用上了...何苦...

chasye

perl -n -e 'if(/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\b/){if ( $1 <= 255 && $2 <= 255 && $3 <= 255 && $4 <= 255 ) { print }}' ur_filename

#包括太于255
perl -n -e 'if(/\d{1,3}(\.\d{1,3}){3}\b/){ print }' ur_filename

asusarhai

用了纯真的IP库去找IP信息的了