Consider using the //x modifier for long complex regexps; it really helps readability.my $d_log = "Auto And Company 57 DI 13 FA 13 FAI 4 Login 23 Not Found +4"; if( $d_log =~ /^ (.*?)\s (\d+)\s (\w+)\s (\d+)\s (\w+)\s (\d+)\s (\w+)\s (\d+)\s (\w+)\s (\d+)\s (\w+)\s (\w+)\s (\d+) $ /x) { print $1; }
-Mark
In reply to Re: Regular Exp. Problem!
by kvale
in thread Regular Exp. Problem!
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |