--- zentara <[EMAIL PROTECTED]> wrote:
> On Sat, 2 Dec 2006 08:08:22 -0800 (PST),
> [EMAIL PROTECTED]
> ("Derek B. Smith") wrote:
>
> >I dont understand > "there is no xs component" and
> I
> >dont understand > "So you could actually include
> the
> >EasyTCP code, as a package right into your script."
> >
> >Will u explain?
> >derek
>
> Well, its the same thing as putting a module into
> your
> scripts running directory.
>
> For instance, instead of installing Net::EasyTcp
> system-wide,
> you could ( in your script's working directory) ,
> make a dir
> called Net, then in Net, copy EasyTcp.pm into it.
> Then in your
> script, put a
>
> #/usr/bin/perl
> use lib '.'
> use Net::EasyTcp;
>
> and that will find your local copy.
> This is done all the time.
>
> To extend it even further, you could just copy
> EasyTcp.pm
> to a package in your script
>
> #/usr/bin/perl
>
> package EasyTcp;
>
> ... include EasyTCP.pm here, and edit it to remove
> the Net::
>
> 1;
>
> package main;
>
> ... the real script
>
>
> zentara
yes I understand now. thx.
So moving on, I was able to gat all the files using an
scp script and for those w/out an ssh client I used
ftp. That was a freak-in pain!
Now I need to parse through all 238 files to pull
certain fields out delimited by :
My question is what does everyone think the most
practical way to go about this in terms of a data
structure? No necessarily the best but most ideal. To
me ideal means most practical in an efficient way.
My 1st thought was a hash for each file wherein the
key would be the hostname and the values the fields.
I know there is a way to create dynamic hash's on the
fly but need some guidance on docs?
I then thought what about a hash containing a glob of
the files.
my @diraray = glob("/home/dbsmith/draft_files.*");
The keys would be the filenames and the values would
be the fields after successive opens.
In both situations, my goal is to attain the UID
fields that DO NOT match then print out the remaining
selected fields.
The file sizes range from 700 (18 lines) bytes to
50574k (614 lines).
thank you
derek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
