I'll propose the following, which is based on code and data in the original post at the top of this thread. Please try this out, tell us whether it works for you, and if it doesn't (and you are still stumped about how to make it work), tell us exactly how it should work.

#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
    print "$1\n" if ( m{^\*\s+(?:/\w+)+\s+(.+?)\s+} );
}

__DATA__
* /vobs/bt_rel /usr/add-on/puccase_vob01/ccvob01/bt_rel.vbs public (re
+plicated)
* /scm /usr/add-on/puccase_vob01/ccvob01/scm.vbs public (replicated)
* /v_dialermidtier /usr/addon/puccase_vob01/ccvob01/v_dialermidtier.vb
+s public (replicated)
* /v_dialer /usr/add-on/puccase_vob01/ccvob01/v_dialer.vbs public (rep
+licated)
* /vobs/UMTools /user/addon/puccase_vob01/ccvob01/UMtools.vbs replicat
+ed)
[download]

• it loops over each line of input, instead of reporting only a single output from all lines of input
• it escapes the initial "*" character in the regex, to avoid a syntax error
• it puts curlies around the regex, to avoid \/ (toothpick syndrome)
• it allows the first string following "*" to contain any number (1 or more) of adjacent "/word" patterns (but does not capture this string)

If you are just trying to get the third space-delimited token from each line of input, you could do this for each line, instead of the regex match:

     print +(split /\s+/)[2];  # print third "word" of line
[download]

If the data shown above is not correct, show us the actual data (inside <code> tags, please). If the output is not what you want, show us exactly what you want (based on the correct input data, again using <code> tags).

print (split /\s+/)[2];  # print third "word" of line

Ooops, you forget the + :-) It gives me,

syntax error at __FILE__ line __LINE__, near ")["
Execution of -e aborted due to compilation errors.
[download]

---

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

Hi graff,
Here i am explaining in detail what actually i am trying to extract.
I am working on a task to get the vob storage path from the list of vobtags.below is the command i am running on command prompt
bash-3.00$cleartool lsvob -s #which will give all vobtag list as below.


/vobs/cs_test_scripts
/vobs/openwall_pam_userpass_rel
/vobs/cs_cim
/vobs/PIP_PVOB
/vobs/pvob_ic
/v_dialer3rdparty
/v_dialerclient
/v_dialer_rel
/scm
[download]

#!/usr/bin/perl -w
$arg=$ARGV[0];
$cmd="cleartool lsvob $arg"
$arr=`$cmd`;
print "$arr\n";
[download]

after running this script with argument as vobtag list that i got from running "cleartool lsvob -s" command
like as bash-3.0$cleartool lsvob /vobs/cs_test_scripts from command prompt will give the result as below

* /vobs/cs_test_scripts /usr/add-on/puccase_vob01/ccvob01/cs_test_scri
+pts.vbs public (replicated)
* /scm /usr/add-on/puccase_vob01/ccvob01/scm.test.vbs
[download]

the output contains three parts */vobs/cs_test_script,*/scm are as vobtags
/usr/add-on/puccase_vob01/ccvob01/cs_test_scripts.vbs is vobstorage directory path
and last part is type as "public (replicated)".
from this i want to extract vobstorage path of each vobtag that i am supling vobtag(/vobs/cs_test_script)as argument to the below script,in that i am matching the output for the tags with 2 slashes in it ex:/vobs/cs_test_script and
vobtag with one slash in it ex:/scm
with regular expression that has to match the output for both type of vobtags(/vobs/cs_test_script,/scm)by using alternation operator in patternmatching as below script


#!/usr/bin/perl
$arg=$ARGV[0];
$cmd1="cleartool lsvob  $arg";
$arr=`$cmd1`;
print "$arr\n";
$storage1=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+/);
print "$storage1\n";
$storage2=$1 if($arr=~/^*\s+\/\w+\s+(.+)\s+\w+/);
print "$storage2\n";
$storage3=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+|^*\s+\/\w+\s+(.+)\
+s+\w+/);
print "$storage3\n";
[download]

I am running the script with both type of vobtags as /vobs/cs_test_scripts and /scm as arguments so its printing the match for both $storage1 and $storage2 as below
bash-3.00$ perl scriptname.pl /vobs/cs_test_script
bash-3.00$ perl scriptname.pl /scm


* /vobs/cs_test_scripts /usr/add-on/puccase_vob01/ccvob01/cs_test_scri
+pts.vbs public (replicated)
#match storage1 /usr/add-on/puccase_vob01/ccvob01/cs_test_scripts.vbs
* /scm                 /usr/add-on/puccase_vob01/ccvob01/scm.vbs publi
+c (replicated)

#storage2 /usr/add-on/puccase_vob01/ccvob01/scm.vbs
[download]

In $storage3 variable i am combining the pattern match of storage1 and storage2 by alternation operator,it should work for both type of vobtag arguments,i am not getting where i am doing wrong...
Monks sorry for repeated posting of same qustion again and again...the problems seems to simple for u people ....

OK, back to the problem...
I tend to think that you want the last part of the path which you can use basename functionality. So,

while (<DATA>) {
  chomp;
  (my $tag = (split)[0]) =~ s!.*(/.*)\.vbs$!$1!;
  print $tag, "\n";
}

__DATA__
/usr/add-on/puccase_vob01/ccvob01/bt_rel.vbs public
/usr/add-on/puccase_vob01/ccvob01/scm.vbs
/usr/add-on/puccase_vob01/ccvob01/v_dialerclient_rel.vbs
[download]

/bt_rel
/scm
/v_dialerclient_rel
[download]

Update: The problem with your code is that you are trying to track the path level manually, and using regex complicates the situation.

Update2: I just noticed that the leading asterisks are part of the lines, followed by some space(s) then the tags. Here is my modified code:

$ cat extract-vobtags.pl
while (<DATA>) {
    chomp;
    my($tag, $storage) = (split)[1,2];
    printf "%20s: %s\n", $tag, $storage;
}

__DATA__
* /vobs/bt_rel /usr/add-on/puccase_vob01/ccvob01/bt_rel.vbs public (re
+plicated)
* /scm /usr/add-on/puccase_vob01/ccvob01/scm.vbs public (replicated)
* /v_dialermidtier /usr/addon/puccase_vob01/ccvob01/v_dialermidtier.vb
+s public (replicated)
* /v_dialer /usr/add-on/puccase_vob01/ccvob01/v_dialer.vbs public (rep
+licated)
* /vobs/UMTools /user/addon/puccase_vob01/ccvob01/UMtools.vbs replicat
+ed)

$ perl extract-vobtags.pl
        /vobs/bt_rel: /usr/add-on/puccase_vob01/ccvob01/bt_rel.vbs
                /scm: /usr/add-on/puccase_vob01/ccvob01/scm.vbs
    /v_dialermidtier: /usr/addon/puccase_vob01/ccvob01/v_dialermidtier
+.vbs
           /v_dialer: /usr/add-on/puccase_vob01/ccvob01/v_dialer.vbs
       /vobs/UMTools: /user/addon/puccase_vob01/ccvob01/UMtools.vbs
[download]