thanks a lot. - tao
--- "John W. Krahn" <[EMAIL PROTECTED]> wrote: > Tao Wang wrote: > > > > thanks a lot. But there is one problem - this is > my > > fault. The KEY1, KEY2 don't exactly look like > this. > > There are six KEYS. Three are related to KEYS, but > the > > rest of them are A_BEG A_END, B_OPTIONS, and I > need to > > extract information between them. I used one > variable > > $op=KEY1|KEY2|KEY3|A_BEG|A_END|B_OPTIONS to store > all > > the alternatives, and tried to use > > > > my @values = $line =~ /$op.*$op/g; > > > > But didn't work as i expected. Are there any > > problems. please help me with it. thanks again. > > > my $op = qr/KEY1|KEY2|KEY3|A_BEG|A_END|B_OPTIONS/; > > my @values = split /$op/, $line; > > > > John > -- > use Perl; > program > fulfillment > > -- > To unsubscribe, e-mail: > [EMAIL PROTECTED] > For additional commands, e-mail: > [EMAIL PROTECTED] > __________________________________________________ Do you Yahoo!? Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop! http://platinum.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]