If I have the following kind of data 
500/00-7.1.19.3

I want to split it into separate variables as such
$a = "500"
$b = "00"
$c = "7"
$d = "1"
$e = "19"
$f = "3"

Here is what I have so far

($a,$g) = split("/",$projectnumber);
($b,$g) = split(/-/,$pa);
($c,$d,$e,$f) = split(/./,$g);
print "$a xx $b xx $c xx $d xx $e xx $f xx $g \n";

the output is:
500 xx 00 xx  xx  xx  xx  xx 7.1.19.3

It appears to not be splitting on the . Does anybody have any ideas?

_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to