'.' is an RE metachar, so, at the least, you want to escape it:
split(/\./

If you're fairly confident about the format:
my ($a, $b, $c, $d, $e, $f) = split(/[^\d]/, $projectnumber);

that is, split on non-digits or specify the actual chars:
my ($a, $b, $c, $d, $e, $f) = split(/[-\/.]/, $projectnumber);

Note a couple things, in a char class (square brackets) '.' is *not* a 
metachar, but the '/' still is (escaped) and the dash is, unless its the 
first char in the class.  Otherwise, it is used for a range (e.g. [a-Z]) 
and will make a range out of whatever its next to.  A common, quite tricky 
mistake.

a

Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED] 
VOICE: (608) 261-5738  FAX 264-5932

Rule #8 Don't close the latch on an empty DLT drive
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to