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

Hello Brothers and Sisters,

I have an issue in a clearcase perl script I am running in unix that I hope maybe someone can help me with.

Whenever I run the CATCS command to list the elements for a specific stream, (Which I am grep-ing out certain information) I get no output.

Here is my bit of code:

$catCMD = "${ctpath}cleartool catcs -tag $view | grep \"_dev\""; $catOut = `catCMD 2>&1`; print "** CATCS= $catCMD\n\n $catOut\n" if ($debug_mode); $catRC = $?; if ($catRC !=0) { print "ERROR9: Cannot list dev vobs for $view\n"; }
It always resolves to the RC and prints an error.

However, once the script is done, I can copy, paste and run the command string printed from $catCMD when debug is on and it works just fine...

Any help will be greatly appreciated. Let me know if you need any further context.

This was supposed to be a quick and dirty, and it has just turned out to be dirty... :) Maybe I should just go back and do it right by adding my use strict; et al...

Thanks,
SouKenji

Replies are listed 'Best First'.
Re: Clearcase Catcs command is not working in script?
by Argel (Prior) on May 25, 2011 at 22:40 UTC
    Missing something?
    $catOut = `$catCMD 2>&1`;
    And you even knew the solution to preventing so much lost time...
    Maybe I should just go back and do it right by adding my use strict; et al...

    Elda Taluta; Sarks Sark; Ark Arks

      Ok, now that I am done slapping my self....

      Thanks for the help!

      I will never again go without using strict.... Because that mistake was just sad, and silly.

      Thanks again for your help!

      ::walks away in shame.::
        Don't feel too bad! Often we are too close to our own code, so cannot see the obvious error. Of course, there's less humiliation and shame when strict and warnings catch the problem for us! (^_^)

        Elda Taluta; Sarks Sark; Ark Arks