First verify that your command is giving the correct output. I don't see
anything wrong with the code itself. Try to catch standard error.
"Sayed, Irfan (Irfan)" <[EMAIL PROTECTED]> wrote: Hi All,
I did as follows but still not getting output in a file.
plz help
#########/usr/atria/bin/Perl -w
use strict;
use warnings;
my $CT = "/usr/atria/bin/cleartool";
my @vob_list = `$CT lsvob -s`;
my $fname = "/tmp/vob_trigger";
open FILE,">>",$fname or die $!;
foreach (@vob_list)
{
print "Following are the triggers applied for $_ VOB\n\n";
my $cmd = "$CT lstype -kind trtype -invob $_";
my $out = qx`$cmd`;
print FILE $out;
print "***********************************************\n\n";
}
regards
irfan.
Ashish Srivastava
http://www.ashudotnet.blogspot.com/
---------------------------------
Heres a new way to find what you're looking for - Yahoo! Answers
