I recently needed to store some SKU information in a subdirectory. This is the simple example I arrived at. More experienced Monks are welcome to tear this apart with improvement suggestions:
#!/usr/bin/perl -w
use strict;
use Storable;
use Data::Dumper;
use Cwd; # Note it is possible to override chdir to update $ENV{PWD}
+but I could not get it to work under strict
my $dir;
my $cwd = cwd;
my %skuname = ( Lots of stuff here ) # Hard coded data to store in sub
+directory
# Where are we in working directory now?
print "Current Directory by cwd is $cwd \n";
print "Current Directory by env is ", $ENV{'PWD'} , "\n";
# Lets take that info and create a new current working directory
print "Appending skudbcurrent to dir\n";
$dir = $cwd . "/skudbcurrent";
print "We wish to move to $dir ";
# This directory may or may not exist
print "Checking to see if skudbcurrent exists, if not then create
+it\n";
unless (-d $dir) { mkdir $dir; print "We had to make $dir \n"; };
# We created it if it was not already there so now move into it
# Note that cwd chdir and $ENV{'PWD'} get out of sync although the mov
+e was successful
chdir $dir; #move into the new directory
print "Moved to new directory:",$ENV{'PWD'} , "\n";
print "Which should match $dir\n";
# We made the move. Now store some data in the new location.
store(\%skuname, 'skudb') or die "Can't store %a in new location!\
+n";
# Success! Now print out what we think was stored
print "Done!\n";
print "Saved the file! er following:\n";
print Dumper( \%skuname );
I hope this brief example is useful for you.
SciDude
The first dog barks... all other dogs bark at the first dog.
-
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.
|