CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Regular Expressions: Re: [FishMonger] Help regarding regex: Edit Log



Jeff29
Novice

Dec 14, 2010, 6:37 PM


Views: 8000
Re: [FishMonger] Help regarding regex

Hi Fishmonger,

The only difference is the input and I am using perl 5.6.1

$update_p4filelog contains the following data,your code fails with this input,actually I created a sample script below,it gives the same warning message even with the earlier stated input.

//depot/asic/msmshared/users/QTVOEMDrops/7600/3555473R/qtv/player/audioplayer/audiocmx.cpp
... #2 change 1548905 edit on 2010/12/09 by c_krisri@C_KRISRIXP (ktext) 'Audio loss when doing nultiple '
... #1 change 1548876 branch on 2010/12/09 by c_krisri@C_KRISRIXP (ktext) 'Branching for orphan release fo'
... ... branch from //source/tools/perl/mm/player/nov/rel/1.1/src/file.cpp#1,#8

Code
#!/usr/bin/perl 
use strict;
use warnings;
use Data::Dumper;
my $update_p4filelog;
$update_p4filelog="... ... branch from //source/tools/perl/mm/player/nov/rel/1.1/src/file.cpp#1,#8";
print "$update_p4filelog\n";
my $update_base_branched_p4path = $update_p4filelog = ~ /branch from (.*\/.*)(?=#\d+,)?#(\d+)$/;
print "$update_base_branched_p4path\n";



(This post was edited by Jeff29 on Dec 14, 2010, 6:49 PM)


Edit Log:
Post edited by Jeff29 (Novice) on Dec 14, 2010, 6:45 PM
Post edited by Jeff29 (Novice) on Dec 14, 2010, 6:49 PM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives