[19060] in Perl-Users-Digest
Perl-Users Digest, Issue: 1255 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 6 09:10:47 2001
Date: Fri, 6 Jul 2001 06:10:19 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <994425018-v10-i1255@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 6 Jul 2001 Volume: 10 Number: 1255
Today's topics:
Re: Net::Telnet logging on problem..... <yasser@x-unity-x.demon.co.uk>
Re: Net::Telnet logging on problem..... <yasser@x-unity-x.demon.co.uk>
Re: Net::Telnet logging on problem..... <yasser@x-unity-x.demon.co.uk>
Re: Net::Telnet logging on problem..... <yasser@x-unity-x.demon.co.uk>
Re: Net::Telnet logging on problem..... <yasser@x-unity-x.demon.co.uk>
Re: Net::Telnet logging on problem..... <yasser@x-unity-x.demon.co.uk>
Re: Perl 5.00503 vs. 5.00554 - what's the difference? (Paul Laub)
Perl and the NT Event Log. <nickp@flyingpig.com>
Re: Perl and the NT Event Log. nobull@mail.com
Re: Perl CGI problem with library file <gnarinn@hotmail.com>
Re: Perl method for finding current working dir <Graham.T.Wood@oracle.com>
Re: Perl method for finding current working dir <Graham.T.Wood@oracle.com>
RE: putting arrays in arrays!?!? <rcouto@NOSPAMpascualsilva.com>
Re: Q: Global variables <gnarinn@hotmail.com>
Variable <takh@hotmail.com>
Re: Variable <gnarinn@hotmail.com>
Re: Wants to use Ftp functions <julien.carosi@club-internet.fr>
Re: Wants to use Ftp functions <Graham.T.Wood@oracle.com>
Re: Will using DB_File work for this?? <jason@uklinux.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 06 Jul 2001 10:16:14 +0100
From: "Yas" <yasser@x-unity-x.demon.co.uk>
Subject: Re: Net::Telnet logging on problem.....
Message-Id: <Ncf17.8566$A51.1475836@monolith.news.easynet.net>
In article <Nb117.14441$wr.69887@news1.frmt1.sfba.home.com>, "Rickey
Ingrassia" <r1ckey@home.com> wrote:
<SNIP>
> Well, first off I want to apologize and eat my words. You'll need to
> use the dump_log method to find this problem. I'll bet that it is a
> prompt regex problem. With dump_log you will be able to see the exact
> characters that are exchanged. Also since you are going through a
> terminal server (or so it appears) you may want to use a
> "$host->print("")" to send the CR (still eating my words). I was able
> to reproduce your exact problem by tweaking my prompt and making the
> regex not match.
>
> In my own defense, I did state in my first post "...the following code
> works on 98.865% of the devices I connect to."
>
Below i have pasted my dump log:
0x00000: ff fb 01 \377\373.
> 0x00000: ff fd 01 \377\375.
< 0x00000: ff fb 03 \377\373.
> 0x00000: ff fd 03 \377\375.
< 0x00000: 6c 6f 67 69 6e 3a 20 login:
> 0x00000: 61 64 6d 69 6e 0d 0a admin..
< 0x00000: ff fb 01 \377\373.
< 0x00000: ff fb 03 61 \377\373.a
> 0x00000: 68 65 6c 70 0d 0a help..
< 0x00000: 68 h
Which to me seems stranger as there is no password prompt :(
------------------------------
Date: Fri, 06 Jul 2001 11:35:21 +0100
From: "Yas" <yasser@x-unity-x.demon.co.uk>
Subject: Re: Net::Telnet logging on problem.....
Message-Id: <Zmg17.8687$A51.1484791@monolith.news.easynet.net>
In article <cT_07.14147$wr.68920@news1.frmt1.sfba.home.com>, "Rickey
Ingrassia" <r1ckey@home.com> wrote:
> In comp.lang.perl.misc Yas <yasser@x-unity-x.demon.co.uk> wrote:
>>In article <maI07.12100$wr.62100@news1.frmt1.sfba.home.com>, "Rickey
>>Ingrassia" <r1ckey@home.com> wrote:
>><snip>
>
> --snip--
>
>>Thns for your help.... now there is a new problem....
>
>>below is my code:
>
>>#!/usr/bin/perl -w
>
>>use Net::Telnet;
>
>>$HOST = new Net::Telnet(Port => "10001", Errmode => "return", Prompt =>
>>'/[?>:#\]][ ]*$/'); $HOST->open("MY IP");
>
>>$username="admin";
>>$password="<PASSWORD>";
>
>>$HOST->input_log("/tmp/input.log");
>
>>$HOST->login("$username","$password");
>
>>@test = $HOST->cmd("help");
>>$HOST->close;
>
>>print @test."\n";
>
>>It should print loads of help commands... but instead prints 0... ive
>>tried other commadns and instead prints just numbers....
>
>>thnx in advance for any help
>
> What's in your input.log file? Does the prompt regex match your prompt?
>
Hmmmmm..... sort of...
Iam telneting to a console server that is attached to a Sun Netra X1....
So once authenticated i get a blank line and i have to press enter once
to get:
lom>
ive tried sending a CR but recieve the same problem....
below is the output of my input.log:
bash-2.03# cat /tmp/input.log
login: ahbash-2.03#
which is a bit strange...
thnx
------------------------------
Date: Fri, 06 Jul 2001 11:35:22 +0100
From: "Yas" <yasser@x-unity-x.demon.co.uk>
Subject: Re: Net::Telnet logging on problem.....
Message-Id: <_mg17.8688$A51.1484925@monolith.news.easynet.net>
In article <Nb117.14441$wr.69887@news1.frmt1.sfba.home.com>, "Rickey
Ingrassia" <r1ckey@home.com> wrote:
<SNIP>
> Well, first off I want to apologize and eat my words. You'll need to
> use the dump_log method to find this problem. I'll bet that it is a
> prompt regex problem. With dump_log you will be able to see the exact
> characters that are exchanged. Also since you are going through a
> terminal server (or so it appears) you may want to use a
> "$host->print("")" to send the CR (still eating my words). I was able
> to reproduce your exact problem by tweaking my prompt and making the
> regex not match.
>
> In my own defense, I did state in my first post "...the following code
> works on 98.865% of the devices I connect to."
>
Below i have pasted my dump log:
0x00000: ff fb 01 \377\373.
> 0x00000: ff fd 01 \377\375.
< 0x00000: ff fb 03 \377\373.
> 0x00000: ff fd 03 \377\375.
< 0x00000: 6c 6f 67 69 6e 3a 20 login:
> 0x00000: 61 64 6d 69 6e 0d 0a admin..
< 0x00000: ff fb 01 \377\373.
< 0x00000: ff fb 03 61 \377\373.a
> 0x00000: 68 65 6c 70 0d 0a help..
< 0x00000: 68 h
Which to me seems stranger as there is no password prompt :(
------------------------------
Date: Fri, 06 Jul 2001 11:37:46 +0100
From: "Yas" <yasser@x-unity-x.demon.co.uk>
Subject: Re: Net::Telnet logging on problem.....
Message-Id: <epg17.8689$A51.1485160@monolith.news.easynet.net>
In article <cT_07.14147$wr.68920@news1.frmt1.sfba.home.com>, "Rickey
Ingrassia" <r1ckey@home.com> wrote:
> In comp.lang.perl.misc Yas <yasser@x-unity-x.demon.co.uk> wrote:
>>In article <maI07.12100$wr.62100@news1.frmt1.sfba.home.com>, "Rickey
>>Ingrassia" <r1ckey@home.com> wrote:
>><snip>
>
> --snip--
>
>>Thns for your help.... now there is a new problem....
>
>>below is my code:
>
>>#!/usr/bin/perl -w
>
>>use Net::Telnet;
>
>>$HOST = new Net::Telnet(Port => "10001", Errmode => "return", Prompt =>
>>'/[?>:#\]][ ]*$/'); $HOST->open("MY IP");
>
>>$username="admin";
>>$password="<PASSWORD>";
>
>>$HOST->input_log("/tmp/input.log");
>
>>$HOST->login("$username","$password");
>
>>@test = $HOST->cmd("help");
>>$HOST->close;
>
>>print @test."\n";
>
>>It should print loads of help commands... but instead prints 0... ive
>>tried other commadns and instead prints just numbers....
>
>>thnx in advance for any help
>
> What's in your input.log file? Does the prompt regex match your prompt?
>
Hmmmmm..... sort of...
Iam telneting to a console server that is attached to a Sun Netra X1....
So once authenticated i get a blank line and i have to press enter once
to get:
lom>
ive tried sending a CR but recieve the same problem....
below is the output of my input.log:
bash-2.03# cat /tmp/input.log
login: ahbash-2.03#
which is a bit strange...
thnx
------------------------------
Date: Fri, 06 Jul 2001 11:37:46 +0100
From: "Yas" <yasser@x-unity-x.demon.co.uk>
Subject: Re: Net::Telnet logging on problem.....
Message-Id: <epg17.8690$A51.1484885@monolith.news.easynet.net>
In article <Nb117.14441$wr.69887@news1.frmt1.sfba.home.com>, "Rickey
Ingrassia" <r1ckey@home.com> wrote:
<SNIP>
> Well, first off I want to apologize and eat my words. You'll need to
> use the dump_log method to find this problem. I'll bet that it is a
> prompt regex problem. With dump_log you will be able to see the exact
> characters that are exchanged. Also since you are going through a
> terminal server (or so it appears) you may want to use a
> "$host->print("")" to send the CR (still eating my words). I was able
> to reproduce your exact problem by tweaking my prompt and making the
> regex not match.
>
> In my own defense, I did state in my first post "...the following code
> works on 98.865% of the devices I connect to."
>
Below i have pasted my dump log:
0x00000: ff fb 01 \377\373.
> 0x00000: ff fd 01 \377\375.
< 0x00000: ff fb 03 \377\373.
> 0x00000: ff fd 03 \377\375.
< 0x00000: 6c 6f 67 69 6e 3a 20 login:
> 0x00000: 61 64 6d 69 6e 0d 0a admin..
< 0x00000: ff fb 01 \377\373.
< 0x00000: ff fb 03 61 \377\373.a
> 0x00000: 68 65 6c 70 0d 0a help..
< 0x00000: 68 h
Which to me seems stranger as there is no password prompt :(
------------------------------
Date: Fri, 06 Jul 2001 11:40:03 +0100
From: "Yas" <yasser@x-unity-x.demon.co.uk>
Subject: Re: Net::Telnet logging on problem.....
Message-Id: <nrg17.8691$A51.1485388@monolith.news.easynet.net>
<SNIP>
Sorry for the flood..... problem wiht mailer :(
------------------------------
Date: 6 Jul 2001 05:30:19 -0700
From: paul@margalo.com (Paul Laub)
Subject: Re: Perl 5.00503 vs. 5.00554 - what's the difference?
Message-Id: <13027756.0107060430.e8ac2de@posting.google.com>
Perhaps I was not clear enough in my post starting this thread. Both
5.00503 and 5.00554 pretty print data structures, and that is a great
feature. My concern has been finding and using the code doing that.
It seems older versions of Perl (5.003 or even before, even Perl 4?)
used dumpvar.pl, whereas newer versions have Ilya's Dumpvalue.pm,
though apparently the debugger does not use Dumpvalue.pm (so it still
uses dumpvar.pl?).
Philip Newton's post to this thread answers my original question.
Paul
P.S. though somewhat off topic - does there exist an easy way to dump
an entire scratchpad so that one can see all lexicals in the current
scope?
Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote in message news:<9i1bam$23qe$1@agate.berkeley.edu>...
> [A complimentary Cc of this posting was sent to
> Paul Laub
> <paul@margalo.com>], who wrote in article <13027756.0107041101.7804b09c@posting.google.com>:
> > Dear all,
> >
> > I just noticed that for pretty printing data structures, 5.00554
> > relies on dumpvar.pl whereas 5.00503 uses Dumpvalue.pm.
>
> ??? Perl does no "pretty printing (of) data structures". What
> exactly do you mean?
>
> [Do you mean debugger? I doubt it... When I made Dumpvalue, I ran
> out of steam to convert the debugger to use Dumpvalue...]
>
> Ilya
------------------------------
Date: Fri, 06 Jul 2001 11:17:43 +0100
From: Nick Porter <nickp@flyingpig.com>
Subject: Perl and the NT Event Log.
Message-Id: <ii3bkt0agfh6573shtkvpbkmevegh3u7pv@4ax.com>
Can anyone explain to this newbie how to interrogate the NT event log.
I've had a search at CPAN and other places for a module but have been
unsuccessfull.
------------------------------
Date: 06 Jul 2001 12:54:21 +0100
From: nobull@mail.com
Subject: Re: Perl and the NT Event Log.
Message-Id: <u966d6b7de.fsf@wcl-l.bham.ac.uk>
Nick Porter <nickp@flyingpig.com> writes:
> Can anyone explain to this newbie how to interrogate the NT event log.
This isn't really a Perl question. Win32 provides an API to
interrogate the event log. The Win32::EventLog module provides a Perl
mapping to this API. The semantics of the API itself are largely
independant of language and need to be understood (or guessed) before
the Perl mapping of the API makes a lot of sense.
> I've had a search at CPAN and other places for a module but have been
> unsuccessfull.
Do you mean you could not find Win32::EventLog or do mean something
else by "unsuccessfull"?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 6 Jul 2001 09:07:02 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Perl CGI problem with library file
Message-Id: <994410422.0329639432020485.gnarinn@hotmail.com>
In article <3b4525a9.210456800@news1.on.sympatico.ca>,
Smiley <gurm@intrasof.com> wrote:
>
>The problem is that the data online isn't being updated when I change
>the library file. No matter what I do to it the changes won't take
>effect. Even if I delete the library file the program continues to
>run as if all the data is there, leaving me to wonder where the heck
>the data is coming from. I don't have another copy of the file, to
>make sure though I even tried putting the absolute path to it rather
>than the relative.
>
>I'd appreciate it if anybody has any ideas on what this might be.
mod_perl ?
restart the server
gnari
------------------------------
Date: Fri, 06 Jul 2001 13:29:58 +0100
From: Graham Wood <Graham.T.Wood@oracle.com>
Subject: Re: Perl method for finding current working dir
Message-Id: <3B45AF45.2D8ED977@oracle.com>
This is a multi-part message in MIME format.
--------------E812B26480A8D0E069B5C531
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
Sorry, that message didn't appear in my listing and still hasn't.
Humble apologies.
Graham
Tony Curtis wrote:
> >> On Thu, 05 Jul 2001 15:40:40 +0100,
> >> Graham Wood <Graham.T.Wood@oracle.com> said:
>
> > Does nobody know this or are you just choosing not to
> > answer? How can you determine the directory your script
> > is running in from within the script, without calling an
> > external program that differs on Windows and Unix?
>
> What was wrong with John Krahn's reply?
>
> Message-ID: <3B42F248.5CAD6B5@acm.org>
> From: "John W. Krahn" <krahnj@acm.org>
> Subject: Re: How to find pwd in Perl
> Date: Wed, 04 Jul 2001 10:37:59 GMT
>
> t
> --
> Beep beep! Out of my way, I'm a motorist!
--------------E812B26480A8D0E069B5C531
Content-Type: text/x-vcard; charset=UTF-8;
name="Graham.T.Wood.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Graham Wood
Content-Disposition: attachment;
filename="Graham.T.Wood.vcf"
begin:vcard
n:;Graham
x-mozilla-html:FALSE
adr:;;;;;;
version:2.1
email;internet:Graham.T.Wood@oracle.com
fn:Graham Wood
end:vcard
--------------E812B26480A8D0E069B5C531--
------------------------------
Date: Fri, 06 Jul 2001 13:32:30 +0100
From: Graham Wood <Graham.T.Wood@oracle.com>
Subject: Re: Perl method for finding current working dir
Message-Id: <3B45AFDE.BF9719BE@oracle.com>
This is a multi-part message in MIME format.
--------------A5BD921D648036DE998CD272
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
Graham Wood wrote:
> Does nobody know this or are you just choosing not to answer?
>
> How can you determine the directory your script is running in from
> within the script, without calling an external program that differs on
> Windows and Unix?
>
> Graham Wood
Thanks to Tony, Michael and Bart for responding to this and to John W.
Kahn and anyone else who responded the last time. I still can't find any
responses to my last post, sorry I missed them.
Graham
--------------A5BD921D648036DE998CD272
Content-Type: text/x-vcard; charset=UTF-8;
name="Graham.T.Wood.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Graham Wood
Content-Disposition: attachment;
filename="Graham.T.Wood.vcf"
begin:vcard
n:;Graham
x-mozilla-html:FALSE
adr:;;;;;;
version:2.1
email;internet:Graham.T.Wood@oracle.com
fn:Graham Wood
end:vcard
--------------A5BD921D648036DE998CD272--
------------------------------
Date: Fri, 6 Jul 2001 13:24:06 +0200
From: "Rafa Couto" <rcouto@NOSPAMpascualsilva.com>
Subject: RE: putting arrays in arrays!?!?
Message-Id: <9i472h$egh8@cesio.mundo-r.com>
> I want to put the content of an array in an array like this and
addititonaly
> scalar values
> @small_array = (1 , 2 , 3);
> $some_value = '4' ;
> $some_more_value = '5';
>
>
> @BIG_ARRAY = (@small_array , $some_value , $some_more_value)
>
> and afterwards the output should look like this
> 1
> 2
> 3
> 4
> 5
It is right! This is natural perl joining of arrays...
You must use array references to work with arrays into arrays:
my @a1 = (1,2,3);
my @a2 = (4);
my @a3 = (5);
my @big_array = (\@a1, \@a2, \@a3, [6,7,8], [9]);
foreach my $a_ref (@big_array) {
foreach my $a_element (@$a_ref) {
print $a_element;
}
}
Saludos, RC
------------------------------
Date: Fri, 6 Jul 2001 09:15:25 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Q: Global variables
Message-Id: <994410925.245794702321291.gnarinn@hotmail.com>
In article <211c8e3f.0107052236.4c362f0d@posting.google.com>,
^CooL^ <cool133@hotmail.com> wrote:
>In conf.pm:
>===========
>
>package common::conf;
>use strict;
>use DBI;
>
># Export Global Variables
>BEGIN {
> use Exporter ();
> @conf::ISA = qw(Exporter);
> @conf::EXPORT = qw();
> @conf::EXPORT_OK = qw(%config);
>}
why the conf:: parts?
>
>On the other hand, it seems to work fine if I replace:
> $config{SERVICE_STATUS} = "Enabled";
>with
> $common::conf::config{SERVICE_STATUS} = "Enabled";
>
>Isn't it supposed to work without the fully qualified name? Isn't that
>what Export.pm is supposed to be for?
you did not export %common::conf::config
you exported %conf::config, assuming there is a module 'conf'
gnari
------------------------------
Date: Fri, 6 Jul 2001 15:21:12 +0800
From: "Tak" <takh@hotmail.com>
Subject: Variable
Message-Id: <9i3ouh$32b1@rain.i-cable.com>
I am newer for perl. Could anyone tell me what is the meaning of "my"
my %OIDS = (
'system' => '.1.3.6.1.2.1.1',
'sysDescr' => '.1.3.6.1.2.1.1.1',
'sysUptime' => '.1.3.6.1.2.1.1.3',
'sysContact' => '.1.3.6.1.2.1.1.4',
'sysLocation' => '.1.3.6.1.2.1.1.6',
);
my ($host, $oid, $community,$response);
in set-perl.pl file ?
Thanks
------------------------------
Date: Fri, 6 Jul 2001 09:20:22 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Variable
Message-Id: <994411222.25589784514159.gnarinn@hotmail.com>
In article <9i3ouh$32b1@rain.i-cable.com>, Tak <takh@hotmail.com> wrote:
>I am newer for perl. Could anyone tell me what is the meaning of "my"
>
>my %OIDS = (
> 'system' => '.1.3.6.1.2.1.1',
> 'sysDescr' => '.1.3.6.1.2.1.1.1',
> 'sysUptime' => '.1.3.6.1.2.1.1.3',
> 'sysContact' => '.1.3.6.1.2.1.1.4',
> 'sysLocation' => '.1.3.6.1.2.1.1.6',
>
> );
>
>my ($host, $oid, $community,$response);
>
>in set-perl.pl file ?
>
set-perl.pl is probably a script local to your system.
my declares lexical variables.
look at the docs:
perldoc -f my
perldoc perslub
gnari
------------------------------
Date: Fri, 6 Jul 2001 13:59:18 +0200
From: "CentaureZ" <julien.carosi@club-internet.fr>
Subject: Re: Wants to use Ftp functions
Message-Id: <9i49a1$mha$1@front8.grolier.fr>
Yes, it works!
Thanks for the help :)
"Tony Curtis" <tony_curtis32@yahoo.com> a écrit dans le message news:
87vgl6bz5o.fsf@limey.hpcc.uh.edu...
> >> On Fri, 6 Jul 2001 01:46:28 +0200,
> >> "CentaureZ" <julien.carosi@club-internet.fr> said:
>
> > Hello, i'm quite new to perl and i'd like to write a
> > program that could use ftp functions, so i put
>
> > use Net::FTP
>
> > at the beggining of my source, but it doesn't work when
> > i try to launch it i get
>
> > centaurez@gateway:~/perl$ ./essai Can't locate
> > Net/FTP/Common.pm in @INC (@INC contains:
>
> perl -MCPAN -e 'install qw(Net::FTP ...other modules...)'
>
> should do the trick. Also
>
> perl -MCPAN -eshell
>
> is the interactive way to look at what's out there and
> install.
>
> hth
> t
> --
> Beep beep! Out of my way, I'm a motorist!
------------------------------
Date: Fri, 06 Jul 2001 13:59:00 +0100
From: Graham Wood <Graham.T.Wood@oracle.com>
Subject: Re: Wants to use Ftp functions
Message-Id: <3B45B614.ED9FCEE9@oracle.com>
This is a multi-part message in MIME format.
--------------12832B0510B3377937FE9594
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
You have to download it. It is part of the libnet bundle which you can find on
CPAN. Your problem IS that you don't have it installed.
Graham Wood
CentaureZ wrote:
> Hello,
>
> i'm quite new to perl and i'd like to write a program that could use ftp
> functions, so i put
>
> use Net::FTP
>
> at the beggining of my source, but it doesn't work when i try to launch it i
> get
>
> centaurez@gateway:~/perl$ ./essai
> Can't locate Net/FTP/Common.pm in @INC (@INC contains:
> /usr/local/lib/perl/5.6.1 /usr/local/share/perl/5.6.1 /usr/lib/perl5
> /usr/share/perl5 /usr/lib/perl/5.6.1 /usr/share/perl/5.6.1
> /usr/local/lib/site_perl /usr/local/lib/perl/5.6.0
> /usr/local/share/perl/5.6.0 /usr/lib/perl5/5.6
> /usr/lib/perl5/5.005/i386-linux /usr/lib/perl5/5.005 .) at ./essai line 3.
> BEGIN failed--compilation aborted at ./essai line 3.
>
> I am on a linux debian system.
>
> I thought this module was shipped with perl, but must i download it or is
> there something else wrong?
>
> Hope you'll be able to help me :)
>
> Thanks in advance!!
--------------12832B0510B3377937FE9594
Content-Type: text/x-vcard; charset=UTF-8;
name="Graham.T.Wood.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Graham Wood
Content-Disposition: attachment;
filename="Graham.T.Wood.vcf"
begin:vcard
n:;Graham
x-mozilla-html:FALSE
adr:;;;;;;
version:2.1
email;internet:Graham.T.Wood@oracle.com
fn:Graham Wood
end:vcard
--------------12832B0510B3377937FE9594--
------------------------------
Date: Fri, 6 Jul 2001 11:54:07 +0100
From: Jason Clifford <jason@uklinux.net>
Subject: Re: Will using DB_File work for this??
Message-Id: <Pine.LNX.4.30.0107061151460.15296-100000@s1.uklinux.net>
On Thu, 5 Jul 2001, Carlos C. Gonzalez wrote:
> I would appreciate help from anyone who might have some thoughts about
> using DB_File.
>
> Will it allow me to work with records that contain MORE than a single
> value associated with my key?
>
> For example my records would look like this.
> KEY VALUE_1 VALUE_2 VALUE_n
> <email_address>,<first_name>,<date_subscribed>,etc.
>
> Can I use DB_File to work with such records and can it save such
> records to a comman delimited, text file?
You can use DB_File to tie a hash with several different DBM formats, one
of which explicitely supports having multiple values assigned to a key
however that is not really what you need for this as it will be far easier
to simply produce the value as a comma (or other suitable character)
separated string and then use split to reproduce the array when you need
it again.
Jason Clifford
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 1255
***************************************
