Dear experts. I need help..the script below fails to
apply the user supplied value to the file in question.
I think the problem is because the $String variable is
not getting the user supplied value. If my assumption
is correct, can some one please show me how to do
that?
I am very new to scripting and Perl (as is probably
obvious).
Many thanks in advance.
Amad.
use strict;
#use warnings;
############################
#Declare variables here
############################
my $file = $ENV{CLEARCASE_PN};
my $String=$_;
my $tempfile = $ENV{TEMP} . "\\" .
$ENV{CLEARCASE_PPID} . ".tmp";
#####################################################
system qw{clearprompt list -items
Approved,Working,Quarantined -outfile}, $tempfile,
'-prompt', q{Pick an Attribute};
system qw{clearprompt proceed -prompt}, q{You
picked:$String};
if (-z $tempfile) {
system qw{clearprompt proceed -prompt}, q{No string
entered..aborting checkin.};
exit 1;
}
open (INPUT,"<$tempfile");
while (<INPUT>) {
chomp;
#Apply the attribute value to the attribute "String"
against the element being checked in.
}
##Where/how is the value of the tempfile getting
passed to the $String variable? ##
##This part works:
system qw{cleartool mkattr -default Doc_Status},
$file;
# This does NOT work:
system qw{cleartool mkattr -default Doc_Status},
qq{"$String"}, $file;
exit 0;
__________________________________
Do you Yahoo!?
Friends. Fun. Try the all-new Yahoo! Messenger.
http://messenger.yahoo.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
