perl脚本

lzj24

总结：
1.有一个num.txt文本，上面记录的是用户的手机号码，每一行记录一个用户的手机号；
2.遍历这个文本的号码，也就是遍历每一行，通过 cat num.txt | (while read line;do grep $line /logs/login/*/*.2015-11-09|awk -F '|' '{print $8}'|uniq >>ipaddr.txt;done)
来查询日志，从而生成ipaddr.txt文本文件，上面记录的是用户的ip地址；
3.然后通过cat ipaddr.txt|while read line;do curl ipinfo.io/$line|awk -NF|sort >>ipwhere.txt;done 生成ipwhere.txt文件，记录用户登录的一些基本信息，比如地理位置等；
4.通过tr -s "\t| " "\n" <ipwhere.txt|sort|uniq -c >> count_province 来去掉多余的信息，只保留用户的地理位置信息并对相同地理位置的用户进行统计，并保存到文件当中。

用一个脚本来实现（perl脚本和shell脚本实现）
菜鸟学飞