next if........ a cleaner way?

[chad kellerman]

Hello everyone,

     I want to clean this bit of code up.  It looks really messy.  I am in a 
mental block.  Any suggestions?


 @userInfo = split /\s+/, $buffer;

    #insert home users & quota in the db
    foreach $userInfo ( @userInfo )  {
        
        ( $name, $quota ) = split /\|/, $userInfo;
        # get rig of the header info from repquota
   
        next if ( ( $name =~ /Block/ ) or ( $name =~ /nobody/ ) or ( $name =~ 
/User/ ) or ( $name =~ /^\d/ ) or ( $name =~ /www/ )  or ( $name =~ /backup/ 
)  or ( $name =~ /ftp/ )  or ( $name =~ /httpd/ ) or ( $name =~ /root/ ) or ( 
$name =~ /netop/ ) or ( $name =~ /sysop/ ) or ( $name =~ /users/ ) or ( 
$quota !~ /\d+/ ) or ( $name =~ /^#/ ) or ( $quota <= 8 ) or ($name =~ 
/bill/) );
        

Is there an easier way to loop thru a bunch of regex?

Thanks for the help.

Chad




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]