[code]#!/usr/bin/perl -w use strict; my $filename = 'ip.log'; open( my $FD, '<', $filename ) or "die fucked $!"; my $values = do {local $/;<$FD>;}; close $FD; my @iplist = split /\n/ => $values; foreach my $i ( @iplist ) { print "$i\n",";"; } [/code] 我的ip.log 里面的格式是这样的 61.159.0.0/18 61.161.0.0/18 61.161.128.0/17 61.162.0.0/16 61.163.0.0/16 61.167.0.0/16 61.168.0.0/16 61.176.0.0/...