[16481] in Perl-Users-Digest
Perl-Users Digest, Issue: 3893 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 2 21:10:43 2000
Date: Wed, 2 Aug 2000 18:10:29 -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: <965265029-v9-i3893@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 2 Aug 2000 Volume: 9 Number: 3893
Today's topics:
Re: Perl Web script (brian d foy)
PLEASE help newbie <tarheel@sierratel.com>
Re: Please unconfuse me.... if (<>)... <tina@streetmail.com>
Producing a .gif file using a perl script <Johann.Fuchs@datacomm.ch>
Re: regexp help (Keith Calvert Ivey)
Re: Regexp problem - Stripping HTML <elijah@workspot.net>
Re: Regexp problem <elephant@squirrelgroup.com>
Re: regular expression question.... <mauldin@netstorm.net>
Re: saving form fields - how? (David Efflandt)
Re: splitting on spaces (Logan Shaw)
Re: splitting on spaces <dilworth@megsinet.net>
Re: splitting on spaces <dilworth@megsinet.net>
substitutions-regular expressions <star@sonic.net>
Re: substitutions-regular expressions (Marcel Grunauer)
Re: substitutions-regular expressions <star@sonic.net>
Re: substitutions-regular expressions <mauldin@netstorm.net>
Re: substitutions-regular expressions (Marcel Grunauer)
Re: substitutions-regular expressions <star@sonic.net>
Tie, invalid argument <michiel@kipu.co.uk>
Tk module for Windows NT gopal_bhat@my-deja.com
uuuuuuuAaron Kulkis is a Communist Buttfucker <no.user@anon.xg.nu>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 02 Aug 2000 19:35:40 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: Perl Web script
Message-Id: <brian-ya02408000R0208001935400001@news.panix.com>
In article <8m9pd0$6vs$1@nnrp1.deja.com>, dlogcher@my-deja.com posted:
> I'm looking for a Perl script that will show download times for
> a webpage. I need to monitor the download times of a web server
> to see if pages are coming down slowly.
my $start = time;
my $data = LWP::Simple::get( $url );
my $delta = time - $start;
or, you could use Time::HiRes, although, if you need that, then there
probably isn't a problem. ;)
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
Date: Wed, 02 Aug 2000 16:52:45 -0700
From: Phil Hawkins <tarheel@sierratel.com>
Subject: PLEASE help newbie
Message-Id: <3988B44C.57490DDD@sierratel.com>
This is a multi-part message in MIME format.
--------------9CA01C75FB85FBF3F5D50A55
Content-Type: multipart/alternative;
boundary="------------5A2454E91C94DF6A65C26EDD"
--------------5A2454E91C94DF6A65C26EDD
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I give up. I bought a self-learning book on "Perl 5" and come to find
out I must download Perl, but I go to the perl.com site and it get's
more confusing.
My host is Unix, so I tried to download the Perl 5.6.00... and it just
froze my browser. It appears that there are two versions? One for NT
and the other for Unix? Huh? I have to write two different scripts for
each server type? And what about the compiler?
I'm brand new to this, so someone please tell me what to do to get the
right version of Perl on my (local) machine... I'm dazed and confused.
The CD that came with the book loaded the "source code" but when I
started to write my first scripts, it went belly up. I got wierd "Bare
word found where operator expected" notice when all I tried to do is "%
perl hello". Christ. Can't even get out of the starting block.
Java was easier than this...
Phil
--------------5A2454E91C94DF6A65C26EDD
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
I give up. I bought a self-learning book on "Perl 5" and come to
find out I must download Perl, but I go to the perl.com site and it get's
more confusing.
<p>My host is Unix, so I tried to download the Perl 5.6.00... and it just
froze my browser. It appears that there are two versions? One
for NT and the other for Unix? Huh? I have to write two different
scripts for each server type? And what about the compiler?
<p>I'm brand new to this, so someone please tell me what to do to get the
right version of Perl on my (local) machine... I'm dazed and confused.
The CD that came with the book loaded the "source code" but when I started
to write my first scripts, it went belly up. I got wierd "<u>Bare
word found where operator expected</u>" notice when all I tried to do is
"% perl hello". Christ. Can't even get out of the starting
block.
<p>Java was easier than this...
<p>Phil</html>
--------------5A2454E91C94DF6A65C26EDD--
--------------9CA01C75FB85FBF3F5D50A55
Content-Type: text/x-vcard; charset=us-ascii;
name="tarheel.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Phil Hawkins
Content-Disposition: attachment;
filename="tarheel.vcf"
begin:vcard
n:Hawkins;Phil
tel;pager:559-437-8951
tel;fax:559-683-4309
x-mozilla-html:FALSE
url:http://website-provisions.com
adr:;;;;;;
version:2.1
email;internet:ph@website-provisions.com
x-mozilla-cpt:;-1
fn:WebSite ProVisions
end:vcard
--------------9CA01C75FB85FBF3F5D50A55--
------------------------------
Date: 3 Aug 2000 00:26:28 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Please unconfuse me.... if (<>)...
Message-Id: <8mae7k$66b2v$1@ID-24002.news.cis.dfn.de>
hi,
Jakob Schmidt <sumus@aut.dk> wrote:
> Tina Mueller <tina@streetmail.com> writes:
>> Keith Calvert Ivey <kcivey@cpcug.org> wrote:
>> > Tina Mueller <tina@streetmail.com> wrote:
>>
>> >>while (<>) {}
>> >>is like doing
>> >>while ($_ = <>) {}
>> >>(the same with for)
>>
>> > Actually, it's like doing
>> > while (defined($_ = <>)) {}
>>
>> uhm, yes, i forgot... =(
> No need to apoligize, cos while( $_ = <> ) is _also_ like saying
> while ( defined( $_ = <> ) )
yeah, just that AFAIK it causes an error (in earlier
versions of perl; dunno which, though) to write
while( $_ = <> )
if <> is undefined.
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please no answers via email unless followup is set to poster.
------------------------------
Date: 2 Aug 2000 12:10:44 GMT
From: "Johann Fuchs" <Johann.Fuchs@datacomm.ch>
Subject: Producing a .gif file using a perl script
Message-Id: <01bffc7a$c66f0f00$4bce310a@u52481>
Hi everyone
I'm trying to produce a gif file as out put from a perl script, so I can
use it as a target for an <img src=hhhh.cgi> tag in an HTML file (cgi).
Can anybody direct me to a sample, please?
Thanks,
Johann
------------------------------
Date: Thu, 03 Aug 2000 00:11:47 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: regexp help
Message-Id: <3988b817.381670@news.newsguy.com>
Myriam Abramson <abramson@nlm.nih.gov> wrote:
>What's a good regexp to grep on an expression that contains newline
>characters? For example I would like to print out all lines between
>braces like in a bibliography.
First make sure you have multiple lines in the strings your
applying the regex to; if not you may want to look at the
documentation for $/ in perlvar (if you're reading the text in
from a file). Then use the /s modifier on your regex if it
contains the . character.
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: 2 Aug 2000 23:17:39 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: Regexp problem - Stripping HTML
Message-Id: <eli$0008021903@qz.little-neck.ny.us>
In comp.lang.perl.misc, Jeff Yoak <jeff@yoak.com> wrote:
> In article <8m9bf0$r06$1@nnrp1.deja.com>, mbutt@my-deja.com wrote:
> > I am trying to construct a regular expression to strip certain HTML tags
> > out of a string.
> This question seems to be asked a lot here right now and not answered much
> so I'll try briefly. Regular expressions are the wrong tool for dealing
> with token type streams such as HTML. There are many fine tools available
> for handling things like this on CPAN. Probably you want to deal with
> HTML::Parse (or is it HTML::Parser ... don't recall).
HTML::Parser it is, and I think version 3 can deal with this (while
older versions probably won't -- but I don't use HTML::Parser much).
Look at the xml_mode for the parser.
> $x =~ s/<\?php.*?\?>//g;
That will turn this working, legal php fragment:
<?php echo "PHP tags look like <?php {code} ?>"; ?>
into
"; ?>
And don't forget that php allows you to comment out the ?> end tag
with /* c-style comments */. PHP understands C++ coments (//) and
shell comments (#), but they can't comment out the end tag, something
like how { s/foo # comment/bar/x } gets parsed in Perl. These
things may confuse HTML::Parser, too, as I said, I don't use it much.
> The only difference between between this and what you did is the question
> mark after the Kleene star. It makes the match non-greedy.
I find non-greedy matches dangerous, and would prefer a five-line RE
that avoids them to a one-liner that uses them.
Elijah
------
but that's me
------------------------------
Date: Wed, 02 Aug 2000 22:33:33 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: Regexp problem
Message-Id: <MPG.13f33f1910af4d6e9896ad@news>
Eric Selin writes ..
>"jason" <elephant@squirrelgroup.com> wrote in message
>news:MPG.13f29d5c91f5aed99896a9@news...
>> Eric Selin writes ..
>> >How do I delete ALL (inkl. \n) characters between words?
>> >Example:
>> ><!--start-->
>> >nasflkag
>> >adfgsdf
>> >sdsdfggfs
>> >sdfg
>> ><!--end-->
>> >Would be ereased. Of course there can be * number of lines between start
>and
>> >end.
>>
>> check out the range operators ('..' and '...') in perlop
>>
>> perldoc perlop
>
>I sorry to say that I don't understand much of that...
>Should'nt this work: [.\n]*
don't know .. did it work ? .. if so - be on your way .. if not - then
perhaps a more descriptive question would be better
[ jeopardectomy ]
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Thu, 03 Aug 2000 00:50:02 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: regular expression question....
Message-Id: <3988C139.B0A2EDBD@netstorm.net>
arun_rajappa@my-deja.com wrote:
>
> hi,
>
> i have a simple question. i have a program that generates file names of
> the format
>
> 20000801122801.deo
>
> where the first 6 chars signify the date.
I assume you mean the first 8 digits.
> i would like to have a regular expression to verify that the input file
> is of this format - however, i am new to perl and dont know how i can
> do this.
You could do this:
$_ = '2000801122801.deo';
my ($y,$m,$d,$e) = /^(\d{4})(\d{2})(\d{2}).*?(\.deo)$/g;
and then check that the values returned are within the required ranges,
which they won't be if any aspect of the match fails. If you need
something more restrictive in the middle (all digits, e.g.) then that's
another story.
perldoc perlre
-- Jim
------------------------------
Date: Wed, 2 Aug 2000 23:39:11 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: saving form fields - how?
Message-Id: <slrn8ohc8o.ijo.efflandt@efflandt.xnet.com>
On Wed, 02 Aug 2000, greenparrot
<squawkNOsqSPAM@greenparrotdesign.net.invalid> wrote:
>
>I have a site that i needs many forms, with common information.
>I would like to save the data from the form fields and insert
>into the next form,they are in seperate directories. The site is
>at
>http://www.greenparrotdesign.net/juiceworld/apple/concentrate.htm
>The common contact details at the bottom of the form need to be
>saved so that when they go through to another fruit product this
>common contact details are auto filled. Can i acheive this with
>cgi and cookies? Any ideas where i might find a suitable script.
Maybe you are overlooking the obvious CGI module. As you go from form to
form, any fields you generate in a form with CGI.pm that have the same
name as submitted fields will have the submitted value rather than set
defaults, unless you specifically override that feature or reassign a
different value to the param before using it in the generated form. This
is true whether the fields are visible or hidden.
It does have a simple database method to save amd load params, but I don't
even think you need that for what you are doing here, unless you want to
save the variables upon final submission.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: 2 Aug 2000 17:30:15 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: splitting on spaces
Message-Id: <8ma7dn$f9e$1@provolone.cs.utexas.edu>
In article <8m9arg$ifa$1@lublin.zrz.tu-berlin.de>,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>Hang around a bit. The term "jeopardy posting" (and implicitly
>"jeopardectomy") are explained about twice or three times a week.
They are? I've been on Usenet since 1990, and I can't recall
ever having seen it before. (Or are you saying they're explained on
comp.lang.perl.misc every week?)
- Logan
------------------------------
Date: Wed, 02 Aug 2000 19:24:01 -0400
From: Dilworth <dilworth@megsinet.net>
Subject: Re: splitting on spaces
Message-Id: <3988AD91.39BFA903@megsinet.net>
Anno Siegel wrote:
> Bob Dilworth <bdilworth@mco.edu> wrote in comp.lang.perl.misc:
> >On 2 Aug 2000 14:22:40 -0000, anno4000@lublin.zrz.tu-berlin.de (Anno
> >Siegel) wrote:
> >
> >[Posted and e-mailed as per the "rules"]
> >
> ><snip>
> >
> >>More grousing: Pleas keep your line length below 72 characters or so. And
> >>don't Cc postings per email without clearly indicating that the same
> >>message was also posted to the group. Both are rules that apply all
> >>over Usenet and are by no means specific to this group.
> >>
> >Sorry but I've never heard of these "rules" before. Doesn't men they
> >don't exist just that the other groups must be more forgiving of such
> >sins.
>
> You haven't been around usenet for long, it appears.
>
No, I haven't been around THIS newsgroup for long. I've not encountered the arrogance
and meanness I've seen in this group in other groups I frequent. As a matter of fact
folks seem to be rather nice in those other groups. You can't assume that my experience
is like yours so please stop doing that. Additionally, the fact that my experience is
different also does not mean that I lack understanding, intelligence, or whatever else
you might decide to throw my way.
>
> >>>also not familiar with the "jeopardectomy" metaphor and am curious as to what the
> >>>heck it refers.
> >>
> >>Hang around a bit. The term "jeopardy posting" (and implicitly
> >>"jeopardectomy") are explained about twice or three times a week.
> >
> >So ... there's not a simple explanation that your yourself could have
> >provided? Such knowledge must be "earned" as part of some sort of
> >initiation ritual?
>
> Well, in part, frankly yes. Most newsgroups of some standing develop
> an array of in-jokes and what might be called shibboleths, whose use
> shows that posters have done their required lurking before posting.
>
I didn't know that such a complex dance was required here. If there are requirements
like these in the other groups I frequent then they're not as important as they
apparently are in clpm. It seems like a whole lot of work you purity monitors have
given yourselves. You really feel the heavy-duty obiesence to these "rules" is worth
it?
> But another reason is that the term comes from a US TV show named
> "Jeopardy" which I, living in Germany, have never seen. Apparently
> the candidates are given an answer and have to guess the question.
> Someone with first hand knowledge of the show might have been better
> equipped to answer.
>
> >>
> >>> Based on responses so far, this group seems very elitist and
> >>>doesn't seem to take well to errors of any sort, formatting or otherwise. The
> >>>other groups I frequent are far more forgiving of human foibles. I'd appreciate
> >>>it if someone would explain to me exactly why the culture of this group is so
> >>>unforgiving.
> >>
> >>Usenet groups tend to be as forgiving as they can afford to be. Some
> >>groups are under more pressure than others.
> >
> >Where such pressure come from? It takes less time to be mean than it
> >does to be nice? Jeesh.
>
> No. It takes care and effort to insert the right amount of mean-ness
> in a posting. Often it would be quicker to give a straight reply and
> be done with.
>
> In the face of an overwhelming influx of newbies, a newsgroup develops
> defense mechanisms to maintain its identity. This is by no means
> particular to clpm.
Excuse me? Defense against newbies? What kind of arrogant claptrap is that? Why help
folks when you can insult them instead, right? Wow! You guys are real pieces of work.
:-(
Bob D.
------------------------------
Date: Wed, 02 Aug 2000 19:25:38 -0400
From: Dilworth <dilworth@megsinet.net>
Subject: Re: splitting on spaces
Message-Id: <3988ADF2.78450BCD@megsinet.net>
Abigail wrote:
> Bob Dilworth (bdilworth@mco.edu) wrote on MMDXXVIII September MCMXCIII in
> <URL:news:39883b30.9949539@news.mco.edu>:
<snip>
> [] Where such pressure come from? It takes less time to be mean than it
> [] does to be nice? Jeesh.
> []
> [] How'd I do with this posting? Does it pass the necessary muster?
>
> You blew it with the previous paragraph.
Cute. You're quite the wit. So ... the hidden agenda here is that one posts not
only to obtain information and/or to help someone else out, but to do it in such a
way as to not incur the wrath of the self-appointed purity monitors. Sounds like a
LOT of work but I guess you guys are up to it being a whole lot smarter than
everyone else. Perhaps a FAQ listing these mointors and the type of obiescence
required of them would be helpful to new lurkers.
Bob D.
------------------------------
Date: Wed, 02 Aug 2000 22:42:56 GMT
From: arthur <star@sonic.net>
Subject: substitutions-regular expressions
Message-Id: <B5AD492F.380E%star@sonic.net>
Hi,
I have:
-------
#!/usr/bin/perl -w
print "\n\nInput questions: ";
#open file for questions
open(QUES, ">ques") || die "can't open ques: $!";
#get questions
$QUEStion = <STDIN>;
#input questions in file
print QUES "$QUEStion";
print "$QUEStion";
close(QUES) || die "can't close QUES: $!";
------
Let say someone entered exactly: why,what,
I want to be able to make: why","what",
appear in the file. ques
Thanks for the help,
Arthur Jacobs
star@sonic.net
------------------------------
Date: Wed, 02 Aug 2000 22:44:59 GMT
From: marcel@codewerk.com (Marcel Grunauer)
Subject: Re: substitutions-regular expressions
Message-Id: <slrn8oh9ec.941.marcel@gandalf.local>
On Wed, 02 Aug 2000 22:42:56 GMT, arthur <star@sonic.net> wrote:
>Let say someone entered exactly: why,what,
>I want to be able to make: why","what",
>appear in the file. ques
Although the subject mentions substitutions and regexes, I can see
neither.
Do you simply ask how to print double quotes?
In that case try something like
print qq!"$QUEStion"!;
Just a few points, though:
You don't need to quote a scalar if you're printing it as is, so
instead of
print QUES "$QUEStion";
you'd use
print QUES $QUEStion;
And the variable $QUEStion would be written all lowercase by convention
(though, of course, local taste may override that convention).
--
Marcel
sub AUTOLOAD{($_=$AUTOLOAD)=~s;^.*::;;;y;_; ;;print} Just_Another_Perl_Hacker();
------------------------------
Date: Wed, 02 Aug 2000 23:08:13 GMT
From: arthur <star@sonic.net>
Subject: Re: substitutions-regular expressions
Message-Id: <B5AD4F1B.393C%star@sonic.net>
in article slrn8oh9ec.941.marcel@gandalf.local, Marcel Grunauer at
marcel@codewerk.com wrote on 8/2/00 2:44 PM:
> On Wed, 02 Aug 2000 22:42:56 GMT, arthur <star@sonic.net> wrote:
>
>> Let say someone entered exactly: why,what,
>> I want to be able to make: why","what",
>> appear in the file. ques
>
>
> Do you simply ask how to print double quotes?
>
No, I want to substitute '",' for ',' in the file ques
I am not sure how to do it. I thought it would be easy to substitute a
regular expression but how do I make $QUEStion a regular expression?
> You don't need to quote a scalar if you're printing it as is, so
> instead of
Got Ya
>
>
> And the variable $QUEStion would be written all lowercase by convention
> (though, of course, local taste may override that convention).
>
sorry
Thanks for the quick response!
~arthur
star@sonic.net
------------------------------
Date: Wed, 02 Aug 2000 23:09:50 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: substitutions-regular expressions
Message-Id: <3988A9BC.C3344064@netstorm.net>
arthur wrote:
>
> Let say someone entered exactly: why,what,
> I want to be able to make: why","what",
> appear in the file. ques
>
I assume there was a typo in the above and that you want "why","what"
^
i.e. both terms to be enclosed in quotes, separated by a comma. If not
ignore. If so, you could do this:
$QUEStion = 'why,what,who,when,where';
print join ','=> map qq/"$_"/ => split /,/, $QUEStion;
perldoc -f split
perldoc -f join
perldoc -f map
Of course, to print to your file you would use print QUES
-- Jim
------------------------------
Date: Wed, 02 Aug 2000 23:21:00 GMT
From: marcel@codewerk.com (Marcel Grunauer)
Subject: Re: substitutions-regular expressions
Message-Id: <slrn8ohbh5.9es.marcel@gandalf.local>
On Wed, 02 Aug 2000 23:08:13 GMT, arthur <star@sonic.net> wrote:
>in article slrn8oh9ec.941.marcel@gandalf.local, Marcel Grunauer at
>marcel@codewerk.com wrote on 8/2/00 2:44 PM:
>
>> On Wed, 02 Aug 2000 22:42:56 GMT, arthur <star@sonic.net> wrote:
>>
>>> Let say someone entered exactly: why,what,
>>> I want to be able to make: why","what",
>>> appear in the file. ques
>>
>>
>> Do you simply ask how to print double quotes?
>>
>No, I want to substitute '",' for ',' in the file ques
>I am not sure how to do it. I thought it would be easy to substitute a
>regular expression but how do I make $QUEStion a regular expression?
my $s = "why,what,";
$s =~ s/,/",/g;
print $s;
prints
why",what",
To understand regular expressions, read
perldoc perlre
or (if using Activestate Perl) look at the perlre web page installed on
your system.
--
Marcel
sub AUTOLOAD{($_=$AUTOLOAD)=~s;^.*::;;;y;_; ;;print} Just_Another_Perl_Hacker();
------------------------------
Date: Wed, 02 Aug 2000 23:26:08 GMT
From: arthur <star@sonic.net>
Subject: Re: substitutions-regular expressions
Message-Id: <B5AD5367.3A67%star@sonic.net>
in article 3988A9BC.C3344064@netstorm.net, Jim Mauldin at
mauldin@netstorm.net wrote on 8/2/00 3:09 PM:
> arthur wrote:
>>
>> Let say someone entered exactly: why,what,
>> I want to be able to make: why","what",
>> appear in the file. ques
>>
>
> I assume there was a typo in the above and that you want "why","what"
> ^
Thanks Jim,
I thought I would put one quote all alone '"' in the file to begin with but
I think your way will work better.
Thanks,
~arthur
------------------------------
Date: Thu, 03 Aug 2000 01:21:39 +0100
From: Michiel Dethmers <michiel@kipu.co.uk>
Subject: Tie, invalid argument
Message-Id: <3988BB13.751AC92A@kipu.co.uk>
Hi,
I'm trying to read a file but I get "invalid argument". The docs say
that this can be anything, which is not very helpful.
I have a .db file which has been created by a dbmopen.
if I do
use NDBM_File;
tie %DB,"NDBM_File","filename",O_RDWR|_CREAT,0640 or die $!
it dies with "Invalid argument"
does this mean my data is corrupt?
(by the way, dbmopen dies with the same error)
Any replied please by email, as I don't read this group too often.
Cheers
Michiel
------------------------------
Date: Wed, 02 Aug 2000 23:31:51 GMT
From: gopal_bhat@my-deja.com
Subject: Tk module for Windows NT
Message-Id: <8mab18$ksd$1@nnrp1.deja.com>
Hi,
I got Active-Perl(5.006) for WinNT and I wanted to install Tk module
(perl -e 'use Tk' should work first). Please post a reply to this
posting if any of you know a place on the net, where I can download
compiled Tk module for Win NT.
thanks
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 2 Aug 2000 16:20:34 -0500
From: No User <no.user@anon.xg.nu>
Subject: uuuuuuuAaron Kulkis is a Communist Buttfucker
Message-Id: <3d2a018ef44131a5783e5b1b9c97fa7b@anon.xg.nu>
uuuuuuu He is, man. What more can I say?
---
This message did not originate from the Sender address above.
It was posted with the use of anonymizing software at
http://anon.xg.nu
---
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3893
**************************************
