while ( $MYNAME eq '' )
{
menu_header();
print "Screen 2 of 4\n";
print "Choose the LOGICIAL ENVIRONMENT to work on: \n\n";
@Unique_NAMES_Array=();
for $X ( 0 .. $#ConfigFileArray) # make array of logicial names based on APP choice
{
if ($ConfigFileArray[$X][0] eq $CHOSENAPP)
{ push (@Unique_NAMES_Array,$ConfigFileArray[$X][1]);}
}
print "\tE) EXIT\n";
print "\tA) ALL envs listed below\n";
print "\tC) CLEAR chosen envs\n";
print "\tD) I'm DONE chosing, proceed to next menu\n\n";
for $Z ( 0 .. $#Unique_NAMES_Array)
{
print "\t$Z) $Unique_NAMES_Array[$Z]\n";
}
sysread(STDIN,$MYNAME,3); chomp ($MYNAME);
print $clear_string;
if ($MYNAME =~ '^[eE]$') {action_info ("EXIT");exit 1;}
elsif (($MYNAME =~ /^[0-9]*$/) && ($MYNAME <= $#Unique_NAMES_Array)) { action_info ($Unique_NAMES_Array[$MYNAME]); $CHOOSEN_LOGICIAL_NAME_Hash{$Unique_NAMES_Array[$MYNAME]}++; $MYNAME=''; }
elsif ($MYNAME =~ '^[cC]$') { action_info ("CLEAR"); delete @CHOOSEN_LOGICIAL_NAME_Hash {keys %CHOOSEN_LOGICIAL_NAME_Hash}; $MYNAME=''; }
elsif ($MYNAME =~ '^[aA]$') { action_info ("ALL"); foreach $item(@Unique_NAMES_Array) { $CHOOSEN_LOGICIAL_NAME_Hash{$item}++; }; $MYNAME=''; }
elsif ($MYNAME =~ '^[dD]$') {action_info ("DONE");if (! %CHOOSEN_LOGICIAL_NAME_Hash){print "\n\nERROR: you must choose an ENV to proceed\n\n";$MYNAME='';}}
else {action_info ("Invalid choice");$MYNAME='';}
}
}
#### get the commands from the array ####
sub get_commands
{
# copy for each env from Config file array the commands to use for childs process into new 2 D array
foreach $env_item (keys %CHOOSEN_LOGICIAL_NAME_Hash)
{
if ($REPORT >= 1){print " $env_item\n ";}
for $X ( 0 .. $#ConfigFileArray )
{
if ( ($ConfigFileArray[$X][1] eq $env_item) && ($ConfigFileArray[$X][0] eq $CHOSENAPP) )
{
if ($CHOSENACTION eq 'STOP')
{ push (@commands_array,[$env_item,$ConfigFileArray[$X][2],$ConfigFileArray[$X][3],$ConfigFileArray[$X][4],$ConfigFileArray[$X][5]]); }
elsif ($CHOSENACTION eq 'START')
{ push (@commands_array,[$env_item,$ConfigFileArray[$X][2],$ConfigFileArray[$X][3],$ConfigFileArray[$X][6],$ConfigFileArray[$X][7]]); }
elsif ($CHOSENACTION eq 'CHECK')
{ push (@commands_array,[$env_item,$ConfigFileArray[$X][2],$ConfigFileArray[$X][3],$ConfigFileArray[$X][8],'']); }
}
}
}
if ($DEBUG >= 2){
for $X ( 0 .. $#commands_array )
{print "$commands_array[$X][0] $commands_array[$x][1] $commands_array[$X][2] $commands_array[$X][3] $commands_array[$X][4]\n";}
}
}
#### FORK the child processes and run the commands ###
sub fork_child_action
{
if ($REPORT >= 1){print "\n\nForking the commands now....\n";}
for $X ( 0 .. $#commands_array )
{
if ($cpid != 0)#this prevents endless loop
{
$cpid=fork(); # fork a new process identical to this one, and start eexcuting from here
if ($cpid < 0) # error
{
print "ERROR: Unable to Fork! exit 1\n"; exit 1;
}
elsif ($cpid > 0) # fork returns the new process id of the child, the parent knows the childs pid now
{
if ($REPORT >= 1){print " $env_item childs process id is $cpid\n"; }
#PUT my process ID into the array
$commands_array[$X][5]=$cpid;
}
elsif ($cpid == 0) # in the child process, the pid is 0, so i'm a child, continue to process
{
#GET the valuse from array
$env=$commands_array[$X][0];
$host=$commands_array[$X][1];
$wrk_account=$commands_array[$X][2];
$command1=$commands_array[$X][3];
$command2=$commands_array[$X][4];
if ($DEBUG >= 2){print "$env CHILD FORKING HERE\n"; print "FORK COMMANDS: $env $host $wrk_account $command1 $command2\n";}
open(FILEOUT, ">>".$LOG."/Emergency_".$env."_".$host."_".$wrk_account.".log") || die("Could not open log file for output");
$TIMESTAMP= getTimeStamp();
print FILEOUT "BEGIN $CHOSENACTION $TIMESTAMP $env $host $wrk_account $command1, $command2\n";
if ( $command1 )
{
if ($REPORT >= 1){print "Issuing command1 $command1 TO $env $host $wrk_account \n";}
open (STDOUT, ">>".$LOG."/Emergency_".$env."_".$host."_".$wrk_account.".stdout.log") || die("Could not open log file for output");
open (STDERR, ">>".$LOG."/Emergency_".$env."_".$host."_".$wrk_account.".stdout.log") || die("Could not open log file for output");
system ("ssh \-o \"StrictHostKeyChecking=no\" \-o 'BatchMode yes' \-q $wrk_account\@$host \"$command1\"") ;
$exit_status=$?;
close (STDOUT);
close (STDERR);
I want to run an awk split on a value that has been pushed through an array and I was wondering what the syntax should be??
e.g. running time strings through an array and trying to examine just minutes:
12:25:30
10:15:13
08:55:23
awk '
NR==FNR{
... (2 Replies)
I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows:
$count = 0;
while ( $count < $#test )
{
`sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`;
`cat 0 >... (2 Replies)
hi all......
i want to use an array ,declared in bash, in embedded perl script.
is there any way to export whole array so that i can use it '$ENV{}' or something..
thanx in advance!!
regards,
prayush (1 Reply)
Hi all,
Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM.
Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers.
At the moment am... (3 Replies)
Hello all!
This is my first post and I'm very new to programming. I would like help creating a simple perl or bash script that I will be using in my work as a junior bioinformatician.
Essentially, I would like to take a tab-delimted or .csv text with 3 columns and write them to a "3D" matrix:
... (16 Replies)
Hello,
I have a perl program called snp_hwe.pl
I have another program called hwe_test.run which contains the following:
for file in *.inp
do
cp $file genotype_counts_c.txt
./snp_hwe.exe > $file'.res'
done
I want to change my perl program to an executable program while changing... (3 Replies)
I have the following proc.
proc get_add {arg1 arg2 arg3 arg4 arg 5 .. ... arg N }
{
}
i need to count the number of arguments and also i need those arguments stored in an array.
please help out
---------- Post updated at 06:33 PM ---------- Previous update was at 05:30 PM ----------
... (1 Reply)
hi Team,
i need a help in perl ,
i need to get values(10 rows +) from perl GUI and insert those values into oracle table.
am trying to achive this in Perl array, can you please help me on this.
thanks
senthil (1 Reply)
I hate I'm asking for help again. Unfortunately it seems there just aren't any links I can find on making an array that holds a bunch of two dimensional arrays. Maybe my google-fu is lacking. Basically I have a header file like this:
#define MATRIX 10
int white_l1;
int white_l2;
int... (2 Replies)