in reply to regex splitting

my @pos=split(/\s\(/,$var,2);

Use 'perldoc -f split' to find out how that works

Replies are listed 'Best First'.
Re^2: regex splitting
by keszler (Priest) on Nov 19, 2009 at 22:35 UTC
    Of course, that leaves the closing ')' in place :)

    Text::Balanced might be an option: 

    $ perl -e "
use strict;
use Text::Balanced qw/extract_bracketed/;
my $var='Aur S-P 250 Pre (Chlorine + cillin (cilli G caine) + Sulfate)
+';
my ($ext,$rem,$pre)=extract_bracketed($var,'()',qr/[^(]+/);
die 'oops' if $rem;
$ext =~ s/(^\(|\)$)//sg; # remove lead/trail ()
print qq{$pre\n$ext\n};
"
Aur S-P 250 Pre
Chlorine + cillin (cilli G caine) + Sulfate

    [download]
[reply]
[d/l]
Re^2: regex splitting
by Ratna_Ranjan (Novice) on Nov 19, 2009 at 22:45 UTC
    Thanks a lot.What must I do to master regex??
[reply]
      Mastering regex is a life-altering discipline. If you eat meat, you must become a vegetarian, and if you are a vegetarian, you must start eating meat.

      Or, you could just "RTFM"... perlretut (for beginners), and perlrequick (for the impatient), and perlre (The Whole Truth).

      When you need some diversion from all that, you can also browse the output of perldoc -q regex and perldoc -q regular -- some really choice bits there.

[reply]
[d/l]
[select]
      There is a book with a very fitting title: "Mastering Regular Expressions" http://oreilly.com/catalog/9781565922570. But it doesn't seem to be aimed at beginners

      A better approach for you might be to read one of the essential perl books 'Learning Pearl' or 'Programming Perl', both from O'Reilly. The first one is a tutorial, with exercises, the second a reference work

      You also can find introductions on the net, for example on perlmonks (see Tutorials), or on http://perldoc.perl.org/ (essentially the man pages of perl with a nice web frontend)

[reply]
[reply]

In Section Seekers of Perl Wisdom