Follow up:

Here's an example of the data, and routines that I am working with: 

$config_files{ $cluster } = [ $config_file ];

This contains:
Key = Cluster_1
Value: remap.config, origin.db, local_cluster.db
       remap.config.hosts, origin.db.hosts, local_cluster.db.hosts

[download]

I get my hostnames by parsing the above ".hosts" files. "TS" hostnames are contained in remap.config.hosts. "SA" hostnames (zone files) are contained in the two other ".hosts" files.

TS servers must be reactivated first, then we attempt to reactivate the SA server. Then, we move on to the next cluster, assuming that the first succeeds.

So, ultimately, what I need to do, is foreach host, in order: 

#####################7
#                   #
# PROCESS SEQUENCES #
#                   #
#####################

@taskSequence =
  ( 
   'establishSession~~connecting to $clusterHost', 
   'local_checksum~~calculating local checksums',
   'transferFilesToStage~~transferring files to $clusterHost: $cluster
+StageDirectory',
   'verifyPerms~~verifying file permissions',
  );

@activateSequence = 
  (
   'activateTS~~$clusterHost: restarting traffic server with new confi
+guration',
   'activateSADNS~~$clusterHost: restarting SADNS with new configurati
+on'
  );

@rollBackSequence =
 (
   'revertToExistingFiles~~$clusterHost: restarting using existing con
+fig files',
   'terminateSession~~$clusterHost: disconnecting from host'
  );

@offLineSequence =
  (
   'logBogusFiles~~$clusterHost: encountered corrupted files moved to 
+$errorLogDir',
   'transferFilesToWorking~~$clusterHost: transferring previous files 
+to $clusterWorkingDirectory',
   'takeClusterOffLine~~ $clusterHost is offline.'# < nsctl stop >
  );

@transferFile =
  ( 
   'copyFile~~copying file from remote host'
  );
####################################
#
#   MAIN
#
"foreach cluster"
"foreach host, beginning with TA, then SA"

@cleanUpTaskSequence = ('terminateSession~~disconnecting from host');
    
    $executionStatus = &executeTaskSequence($clusterHost, @taskSequenc
+e) ;
    $activationStatus = &executeTaskSequence($clusterHost, @activateSe
+quence); 
    $cleanUpStatus = &executeTaskSequence ($clusterHost, @cleanUpTaskS
+equence);

[download]

In reply to Re: Data Structure Design by Tuna
in thread Data Structure Design by Tuna

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.