Thanks, I was trying to come up with some shortcuts and was failing miserably and the awnsers I got here reminded me I could do the following, this is the actual code.
my %data = ( DATA => { DIR => "/prod" },
LOGS => { DIR => "/prod/logs" },
SITE1 => { DIR => "/prod/data1",
FILE => "/prod/data1/LSTD.DAT" },
SITE2 => { DIR => "/prod/data2",
FILE => "/prod/data2/LSTD.DAT" },
LOG1 => { FILE => "/prod/logs/stdaudit01_3
+289.log_1" },
LOG2 => { FILE => "/prod/logs/stdaudit02_8
+750.log_1" } );
# assign $data{$_}{'COPY_D'} and $data{$_}{'COPY_F'} Where needed
for ( keys (%data) )
{
if ( $data{$_}{'DIR'} ) { $data{$_}{'COPY_D'} = join '', $ARCHIVE
+_DIR, $data{$_}{'DIR'} }
if ( $data{$_}{'FILE'} ) { $data{$_}{'COPY_F'} = join '', $ARCHIVE
+_DIR, $data{$_}{'FILE'} }
}
I just needed to provide an interface to do some copying once a flashcopy is made of a disk...
Ted
--
"That which we persist in doing becomes easier, not that the task itself has become easier, but that our ability to perform it has improved."
--Ralph Waldo Emerson
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.