>How about
>
>#!/usr/bin/perl -w
>
>use strict;
>use warnings;
>
>for( my $networkpart = 128; $networkpart <= 158; $networkpart++ ){
> for( my $hostpart = 0; $hostpart < 256; $hostpart++ ){
> print "202.90.$networkpart.$hostpart\n";
> }
>}
>__END__
>
The '-w' option is not needed here since you have 'use warnings'.
--
Jeff Pang
NetEase AntiSpam Team
http://corp.netease.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
