in reply to Re^7: Regex to grab data after the work "branch from"
in thread Regex to grab data after the work "branch from"

I thought you were following me closely,I want "#1," to be optional,to be exact "[#\d+,]" in the regex to be optional,if it is present match it but dont print it...,if it is not present ignore it..

what I meant was,the below code prints

//source/qcom/qct/multimedia/qtv/player/audioplayer/rel/1.1/src/file.cpp#1,#8

whereas I only want to print

//source/qcom/qct/multimedia/qtv/player/audioplayer/rel/1.1/src/file.cpp#8 

my $update_p4filelog = "...xyz branch from //source/qcom/qct/multimedi
+a/qtv/player/audioplayer/rel/1.1/src/file.cpp#1,#8";

my ($path, $ver) = $update_p4filelog =~ /branch from (.*\/.*)[#\d+,]?(
+#\d+)$/;

my $update_base_branched_p4path = "$path$ver";

print "$update_base_branched_p4path\n";

[download]

Replies are listed 'Best First'.
Re^9: Regex to grab data after the work "branch from"
by Anonymous Monk on Dec 15, 2010 at 02:05 UTC
    I am legion
[reply]
Re^9: Regex to grab data after the work "branch from"
by Anonymous Monk on Dec 15, 2010 at 02:27 UTC
    So why don't you write code to do just that? 
    my $update_p4filelog = "...xyz branch from //source/qcom/qct/multimedi
+a/qtv/player/audioplayer/rel/1.1/src/file.cpp#1,#8";

my ($path, $ver) = $update_p4filelog =~ /branch from (.*\/.*)[#\d+,]?(
+#\d+)$/;

use DDS;Dump( $path, $ver );
__END__
$VAR1 = '//source/qcom/qct/multimedia/qtv/player/audioplayer/rel/1.1/s
+rc/file.cpp#1,';
$VAR2 = '#8';

    [download]
[reply]
[d/l]
Re^9: Regex to grab data after the work "branch from"
by Anonyrnous Monk (Hermit) on Dec 15, 2010 at 03:03 UTC

    You probably don't want a character class [#\d+,], but rather a (non-capturing) group: (?:#\d+,). But the real problem you're having is that the preceding .* is gobbling up the optional part. So, make it non-greedy, i.e. .*? 

    for my $update_p4filelog (
    "...xyz branch from //source/qcom/qct/multimedia/qtv/player/audiop
+layer/rel/1.1/src/file.cpp#1,#8",
    "...xyz branch from //source/qcom/qct/multimedia/qtv/player/audiop
+layer/rel/1.1/src/file.cpp#8",
    ) {

    my ($path, $ver) = $update_p4filelog =~ /branch from (.*\/.*?)(?:#
+\d+,)?(#\d+)$/;
    
    my $update_base_branched_p4path = "$path$ver";
    
    print "$update_base_branched_p4path\n";
}

__END__
//source/qcom/qct/multimedia/qtv/player/audioplayer/rel/1.1/src/file.c
+pp#8
//source/qcom/qct/multimedia/qtv/player/audioplayer/rel/1.1/src/file.c
+pp#8

    [download]
[reply]
[d/l]
[select]

      Thank you so much,thanks a bunch..you made by day,no 2 days...this is the best perl forum even though the mentors are tough sometimes :-)

[reply]

In Section Seekers of Perl Wisdom