in reply to Re^8: Regex to grab data after the work "branch from"
in thread Regex to grab data after the work "branch from"
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';
|
|---|