Aditi Gupta wrote:
if(my $line =~ /^/$a/\s*
(\s*\d+)
\s*/$c/\s*
\d*
\w+
\s
\w
(\s*\d+)
\w*
(\s*\d*)
(\s*\d*)
(\s*\d*)
(\s*\d*)
(\s*\d*)
(\w*\s*)
(\s*\w*)
(\s*\w*)/)
Couple things: perldoc perlre perldoc perlop
/^/$a/\s*
you're not doing a subsitution, you have too many /
/^$a\s*
If you're going to put your regex on multiple lines which is good for readability, you need the trailing /x flag. see perldoc above.... though that might have just happened from e-mail wrapping.
HTH
END ----------------------------------------------------------------------------- Philip M. Gollucci Senior Developer - Liquidity Services Inc. Phone: 202.558.6268 (Direct) E-Mail: [EMAIL PROTECTED] Web: http://www.liquidation.com
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
