dani_cv has asked for the wisdom of the Perl Monks concerning the following question:

My $CtRet variable has the following output. How can I retrieve the value 'source cont="\\cccst2\ccstg_d\VOBs\test.vbs\s\sdft\27\37\0-f1e682e4394b435bb33690d c846fe84b-lf"' from this varialble using parl? 
test.txt (f1e682e4.394b435b.b336.90:dc:84:6f:e8:4b)
M:\test_int\src\WorkingFiles\Hdr\test\test.txt@@
\main\DDM2.0.4_Int\7
oid=f1e682e4.394b435b.b336.90:dc:84:6f:e8:4b  dbid=85180 (0x3349f7)
mtype=version
stored fstat:
ino: 0; type: 1; mode: 010
usid: NOBODY
gsid: NOBODY
nlink: 0; size: 147
atime: Wed Dec 31 19:00:00 1969
mtime: Mon Mar 26 17:18:39 2007
ctime: Mon Mar 26 17:18:39 2007
returned fstat:
ino: 76896; type: 1; mode: 0444
usid: NT:S-1-5-21-2094812614-1606093959-475595886-14710
gsid: NT:S-1-5-21-2094812614-1606093959-475595886-513
nlink: 1; size: 147
atime: Mon Mar 26 17:18:39 2007
mtime: Mon Mar 26 17:18:39 2007
ctime: Mon Mar 26 17:18:39 2007
master replica dbid=0
master replica dbid (defaulted)=3
idstr="\main\zxscfdasf\7"
elem=76896  branch=76899  ver num=7  line count=7
cont dbid=537151054  container="27\37\0-f1e682e4394b435bb33690dc846fe8
+4b-lf"
source cont="\\cccst2\ccstg_d\VOBs\test.vbs\s\sdft\27\37\0-f1e682e4394
+b435bb33690d
c846fe84b-lf"
clrtxt cont="\\cccst2\ccstg_d\VOBs\test.vbs\c\cdft\2f\31\f1e682e4394b4
+35bb33690dc8
46fe84b"
labels: asdfsdf_Bld_7May07_1.50.31.81 asdfasd
_4_26_2007.9365 DDM_2
08_Rebase_Src_Full DDM_2.0.8_PR1_Bld_27Mar07_21.52.5.5725 asdfasd_Bld_
+27Ma
r07_16.15.37.4413 asdfasdfR1_Bld_26Mar07_21.52.3.6451
hyperlinks to object:
arrow=1306820082
  type=28
  hlink vob=43abf320.29ac4590.9ee6.cb:f0:96:92:85:16
  hlink obj=cbe55d5a.9690412b.bc8e.78:47:b7:46:91:67
  from vob=43abf320.29ac4590.9ee6.cb:f0:96:92:85:16
  from obj=4e5d5871.246441da.9742.f1:cc:e8:0b:87:4b
  to vob=6362cc3b.9eea4f7c.abde.dc:3c:2a:2b:6e:43
  to obj=f1e682e4.394b435b.b336.90:dc:84:6f:e8:4b

[download]

Replies are listed 'Best First'.
Re: RexEx help...need to extract the following...:)
by ikegami (Patriarch) on Sep 07, 2007 at 17:41 UTC
    If it's really one line, 
    my ($source_cont) = $CtRet =~ /^source cont=(.*)/m
   or die("Didn't find source cont\n");

    [download]
    If it's two lines as shown, 
    my ($source_cont) = $CtRet =~ /^source cont=("[^"]*")/m
   or die("Didn't find source cont\n");
$source_cont =~ s/\n/ /g;

    [download]

    Updated: Oops! Added missing m modifier.

[reply]
[d/l]
[select]
      Worked perfect!. Thanks Dan.
[reply]

Back to Seekers of Perl Wisdom