Andrea Holstein wrote:
> 
> ( $a1,$a2,$a3,$a4 ) = $program =~ m/^(.+)\.(.+)\.(.+)\.(.+)$/;
> 
Oh, I see, it's a slow solution.
Substitute every (.+) with ([^\.]+) and the pattern matching will be
quite quicker.

Greetings,
Andrea

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

Reply via email to