[13397] in Perl-Users-Digest
Perl-Users Digest, Issue: 807 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 15 15:17:31 1999
Date: Wed, 15 Sep 1999 12:05:14 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 15 Sep 1999 Volume: 9 Number: 807
Today's topics:
Auto-responce email attachments <u2orange@bigfoot.com>
Re: CGI cannot open relative path (Larry Rosler)
Re: CGI from CGI without modules... <mike@yawp.com>
Re: Dbm_hash: long value for empty key <tanner@ultra.math.uni-potsdam.de>
Re: Dbm_hash: long value for empty key (Kragen Sitaker)
Re: Giving names to arrays automatically (Abigail)
Re: Help! .pm did not return a true value (Abigail)
Re: Hot, Fun S.F Startup Seeks a Gaggle of Perl People (Kragen Sitaker)
How to match with m/$variable/ ?? (Michael Friendly)
Re: is this object a child of this class? (Kragen Sitaker)
Re: Parsing Tab Delimited File <tchrist@mox.perl.com>
Re: Parsing Tab Delimited File (Kragen Sitaker)
Re: perl ext .cgi with MS PWS <gellyfish@gellyfish.com>
Re: Please help a newbie! (Kragen Sitaker)
Re: Please help a newbie! makau@multimania.com
Re: Please help a newbie! (Kragen Sitaker)
Re: PLEASE HELP! - Symbolic References <gellyfish@gellyfish.com>
Re: POST is not allowed <gellyfish@gellyfish.com>
Re: script to dynamically produce standard calender (Abigail)
Re: Stock quote URL strings (Matthew Bafford)
Re: Stock quote URL strings (Abigail)
Re: Stock quote URL strings (Kragen Sitaker)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 15 Sep 1999 18:10:42 GMT
From: Mat Tillett <u2orange@bigfoot.com>
Subject: Auto-responce email attachments
Message-Id: <37DFE274.C00B9DA7@bigfoot.com>
Does anyone know an easy way to attach a file to an auto-responce email?
Your help would be really appreciated.
Thanks
Mat
------------------------------
Date: Wed, 15 Sep 1999 11:47:37 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: CGI cannot open relative path
Message-Id: <MPG.124989a8c2b99be0989f6b@nntp.hpl.hp.com>
In article <v3RD3.13110$N77.949847@typ11.nn.bcandid.com> on Wed, 15 Sep
1999 17:54:35 GMT, Kragen Sitaker <kragen@dnaco.net> says...
...
> You could, of course, say
>
> my $rootdir = "/fubbledy/wubbledy/gubbledy";
> open CONFIG, "<$rootdir/$configname" or die "Couldn't open $rootdir/$configname: $!\n";
> open BLURBLE, "<$rootdir/$blurble" or die "Couldn't open $rootdir/$blurble: $!\n";
>
> etc. Then you just have to change $rootdir to move the script. Same
> as chdir, but guaranteed to work.
But slower. Depending on the application, this may be a performance
issue.
It is far faster to do one chdir() and then make relative accesses on
the output of readdir than to make a bunch of absolute accesses, where
the directory path has to be traversed for each one.
I don't know if modern OSs are smart enough to cache such stuff as the
inode info for each directory in the absolute path or for the final
directory.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 15 Sep 1999 13:15:07 -0500
From: <mike@yawp.com>
Subject: Re: CGI from CGI without modules...
Message-Id: <Pine.NEB.3.96.990915120029.14251C-100000@www.yawp.com>
> >ouch.. statements like that sorta fly in the face of the Reuse Is Good
> >mindset. try repeating 'Reuse Is Good' about 50,000 times, and you'll be
> >in the right mindset to use modules religiously.
>
> In March, I wrote a polemic called "Code Reuse Considered Harmful". I
> don't think *all* reuse is harmful, but I think using prewritten code
> just because it exists is often dangerous.
the term i'm familiar with is 'cargo cult programming'. done properly,
reuse is a legitimately Good Thing. thing is, to do it properly, the
body of code you're building has to be based on a very uniform set of
requirements.
requirements are one of those things programmers tend to forget about..
sometimes deliebrately. life is a heckuvalot easier when you can just
wave your hand and demand that the requirements change to fit whatever
solution you've already decided upon. it's not particularly effective,
but it *is* fast & easy. granted, sometimes the requirements *need* to
change.. they often do, in fact. usually, you end up evolving a solution
and the requirements until they meet somewhere in the middle.
CGIs do have a reliably uniform set of requirements, but i'm not convinced
that CGI.pm is ideally suited to them. to me, it looks like a package
which was originally written for a specific application, and has since
been forcefully generalized. IMO, CGI.pm's feature set could be
comfortably distributed among at least four new modules (basic i/o, state
persistence, HTML generation, and private internals), a couple layers of
calling syntax could be scraped away, and the logic could do with an
overhaul.
that's not to say i think it's crap.. far from it. i think Stein has
done a lot of important work, and has given Perl coders everywhere
something very valuable. code which is useful grows and evolves, though,
and periodically needs to shed its skin in order to keep growing. i
simply think CGI.pm is due for a good shedding.
> Have you written a replacement CGI.pm?
several.. i've been rolling my own ever since i first took a good look at
cgi-lib.pl. each version has been my best/latest guess about what's
needed, executed to the best of my ability. then, every six months or
so, i go back for another look, wince, and try again. i'll dig around
for a copy of my most recent version, and post a URL.
> Presumably you don't split /&/ in every CGI script you write.
i don't handle that in my CGI module at all.. that's an internal
representation of data issue, and only coincidentally associated with
talking to the httpd. i define a distinct class whose internal data can
be viewed in two states simultaneously: as a single x-encoded string, or
as a bag of tuples (a hash of arrays, approximately). neither external
view of the data is dominant, they're just two different ways of looking
at the same thing.
my version of CGI handling is to get the literal input from the browser,
then sling it into a Browser_input. then i can play with the object to
my heart's content. if i need to preserve state, i can flatten it to
its x-encoded string form and write that to the browser, or pass it to
another object, which iterates over the tuples and formats them as <INPUT>
elements.
i also have a family of classes which abstract output to the browser,
BTW.. if i want to do a redirect, i create a Redirect; if something goes
wrong, i create an Error (which writes HTML to STDOUT, and an error_log
entry to STDERR). regardless of what object was created,
$out->mk_output() can be relied upon to do the right thing.
in general terms, i prefer using a bunch of small, dedicated objects over
using a single, multipurpose one. it's not The Only Way, but it's what i
happen to like.
--
mike
------------------------------
Date: Wed, 15 Sep 1999 20:04:30 +0200
From: Andreas Tanner <tanner@ultra.math.uni-potsdam.de>
Subject: Re: Dbm_hash: long value for empty key
Message-Id: <37DFDFAE.9476547C@ultra.math.uni-potsdam.de>
Kragen Sitaker schrieb:
> In article <37DFD58A.D638A504@ultra.math.uni-potsdam.de>,
> Andreas Tanner <tanner@ultra.math.uni-potsdam.de> wrote:
> >We are using a hash %x, where $x{''} has quite a long value (9k). When
> >we store it on disc using dbmopen,
>
> Does your dbm library support such large values?
>
>
I don't know- how can I find out, and what to do if not?
Andreas
------------------------------
Date: Wed, 15 Sep 1999 18:22:42 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Dbm_hash: long value for empty key
Message-Id: <StRD3.13191$N77.952369@typ11.nn.bcandid.com>
In article <37DFDFAE.9476547C@ultra.math.uni-potsdam.de>,
Andreas Tanner <tanner@ultra.math.uni-potsdam.de> wrote:
>Kragen Sitaker schrieb:
>> In article <37DFD58A.D638A504@ultra.math.uni-potsdam.de>,
>> Andreas Tanner <tanner@ultra.math.uni-potsdam.de> wrote:
>> >We are using a hash %x, where $x{''} has quite a long value (9k). When
>> >we store it on disc using dbmopen,
>>
>> Does your dbm library support such large values?
>
>I don't know- how can I find out, and what to do if not?
Read the documentation for your dbm library. Try storing such a large
value in a dbm file with a C program. Try using a different dbm library.
If it doesn't: you have to split the value up into pieces or store it
somewhere else. There are a number of ways to do this, none
particularly pleasant; I can elaborate more if you like.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 14 1999
55 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 15 Sep 1999 13:05:36 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Giving names to arrays automatically
Message-Id: <slrn7tvo4g.hj3.abigail@alexandra.delanet.com>
Michael Scheferhoff (m.scheferhoff@gmx.de) wrote on MMCCVI September
MCMXCIII in <URL:news:37DF99A9.65FA573B@gmx.de>:
$$
$$ I want to create new arrays and give them names automatically in a loop.
Why?
$$ Does anybody know how to realisate this?
This question pops up many times a week. Read the group. Or if you cannot
wait the 2 hours before the question pops up again, read the faq. (Or walk
over to the Eiffel group, and ask what they think about such an idea).
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 15 Sep 1999 13:10:25 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Help! .pm did not return a true value
Message-Id: <slrn7tvodg.hj3.abigail@alexandra.delanet.com>
Roman Prokhorov (roma@stalker.gamma.ru) wrote on MMCCVI September
MCMXCIII in <URL:news:roma-1509991700120001@node4.stalker.gamma.ru>:
``
`` Hi!
``
`` On one of my customer's machine my scripts don't run:
`` ---
`` CLI.pm did not return a true value at ./ListAccounts.pl line 13.
`` BEGIN failed--compilation aborted at ./ListAccounts.pl line 13.
`` ---
``
`` Line 13 is "use CLI.pm;". The CLI.pm has "1;" on its end and it works
`` fine on all platforms except that particular machine.
use doesn't just scan to the end of the file and checks whether it has "1;"
there. For some reason, the true value was never returned. I guess you have
a bug. Now, without seeing any code, that's hard to say what bug.
But don't post hundreds of lines of code. Try running perl -wc CLI.pm and
see if it returns any bugs. If not, run perl -w CLI.pm.
`` What can I do about it? Please answer by e-mail if possible.
Why? If you cannot be bothered to read the group, the question isn't
really important to you, now is it?
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 15 Sep 1999 18:11:43 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Hot, Fun S.F Startup Seeks a Gaggle of Perl People
Message-Id: <zjRD3.13162$N77.949420@typ11.nn.bcandid.com>
In article <7rolu9$ol7$1@nnrp1.deja.com>, <harad@my-deja.com> wrote:
>great new twist on a 100 year old business, and
>are seeking to add to our All Star team!
Who's on your All Star team?
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 14 1999
55 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 15 Sep 1999 18:45:59 GMT
From: friendly@hotspur.psych.yorku.ca (Michael Friendly)
Subject: How to match with m/$variable/ ??
Message-Id: <7roph7$1a8$1@sunburst.ccs.yorku.ca>
I've obviously forgotten something, because I can't get variable patterns
to work in matches. E.g., I want to use
# Patterns for include-type statements, leaving filename in #1
$include_pat = join('|',
('\\input\b\{?(\S+)\}',
'\\include\s*\{(\S+)\}'
));
# Patterns for references to a label, leaving label in $1
$ref_pat = '\\[a-z]*ref\{([^}]+)\}'; # pattern for single ref
in statements like
open (TEXFILE, $texfile) || die "Can't read $texfile.\n";
while (<TEXFILE>) {
chop; $lineno++;
s/%.*//; # decomment
# parse references, store info in $label{$key}
while (m#$ref_pat#g) {
$ref = $1;
push @{ $label_ref{$1} }, "$texfile $lineno";
}
# Search recursively in included files
if (m#$include_pat#) {
$file = $1;
....
}
}
close (TEXFILE);
They work only if I insert the patterns explicitly in the match expressions.
What am I forgetting?
--
Michael Friendly Email: friendly@yorku.ca (NeXTmail OK)
Psychology Dept
York University Voice: 416 736-5115 Fax: 416 736-5814
4700 Keele Street http://www.math.yorku.ca/SCS/friendly.html
Toronto, ONT M3J 1P3 CANADA
------------------------------
Date: Wed, 15 Sep 1999 18:37:22 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: is this object a child of this class?
Message-Id: <CHRD3.13220$N77.952720@typ11.nn.bcandid.com>
In article <Pine.GSO.4.10.9909150548350.25903-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@redcat.com> wrote:
>On Tue, 14 Sep 1999 mike@yawp.com wrote:
>> my $isa = (grep {/$type/} @ISA) ? 1 : 0;
>
>...but also incorrect! Unless you think Tonya ISA Tony....
Also returns false negatives; if X inherits from W, and W inherits from
Andrew, then X isa Andrew. But this method doesn't work in that case.
Also, it doesn't work for isa{'HASH'}.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 14 1999
55 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 15 Sep 1999 12:05:52 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Parsing Tab Delimited File
Message-Id: <37dfe000@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
brian_fredette@vnet.ibm.com writes:
:I'm having some trouble finding information on how to parse a tab
:delimited text file. Any pointers would be appreciated.
You mean tab-separated. This is tab-separated
datum<TAB>datum<TAB>datum
But this is tab-delimited:
<TAB>datum<TAB>datum<TAB>datum<TAB>
They aren't the same. Consider:
fn(1,2,3);
NB:
A) The parameter list is comma-separated. It is not comma-delimited.
B) The arguments are paren-delimited. They are not paren-separated.
C) The whole function call is semicolon-terminated. It is neither
semicolon-separated nor semicolon-delimited.
Got that?
Now, unless you're Microscrewed, you probably just want
while ($record = <FH>) {
chomp($record);
@fields = split(/\t/,$record);
....
}
The split function is what you want for pattern-separated data.
--tom
--
If you have ever seen the grim word "login:" on a screen, your mind
is now a wholly-owned subsidiary of The Death Star.
John Woods in <14105@ksr.com> of comp.unix.bsd
------------------------------
Date: Wed, 15 Sep 1999 18:20:54 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Parsing Tab Delimited File
Message-Id: <asRD3.13186$N77.949948@typ11.nn.bcandid.com>
In article <37dfe000@cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
> fn(1,2,3);
>C) The whole function call is semicolon-terminated. It is neither
> semicolon-separated nor semicolon-delimited.
If this is a substring of a larger program, the function call might be
a statement; in some languages (Pascal, I think), statements in a block
are semicolon-separated, and in other languages, statements are
semicolon-terminated.
In most languages, function calls are terminated by the ) or analogous
delimiter. :)
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 14 1999
55 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 14 Sep 1999 21:04:28 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: perl ext .cgi with MS PWS
Message-Id: <7rmd8s$67g$1@gellyfish.btinternet.com>
On Tue, 14 Sep 1999 15:28:00 GMT kshagen@my-deja.com wrote:
> I have several perls currently working with .pl ext. but when I change
> the ext. to .cgi I receive "The page cannot be displayed". I have added
> the mappings in the registry for both .pl and .cgi as per the Perl FAQ
> documentation. Have I missed something or is there a problem with MS
> Personal Web Server? I'm running NT 4.0, Perl 5.005_02 and MS PWS 4.0.
>
That will be comp.infosystems.www.servers.ms-windows
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 15 Sep 1999 18:06:12 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Please help a newbie!
Message-Id: <oeRD3.13147$N77.951179@typ11.nn.bcandid.com>
In article <37DFDD9E.8B8B7E7E@cisco.com>,
Makarand Kulkarni <makkulka@cisco.com> wrote:
>And don't you think you should expand to mm/dd/YYYY to take
>care of Y2K issues !!
Oh yes, I forgot to flame about this. Whoever defined this mm/dd/yy
format for storing your data should be taken out and shot in 01/01/00.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 14 1999
55 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Wed, 15 Sep 1999 18:06:32 GMT
From: makau@multimania.com
Subject: Re: Please help a newbie!
Message-Id: <7ron6u$pjl$1@nnrp1.deja.com>
-------------------------------------------------------------
#!/usr/local/perl -w
use strict;
open (FILE,"./file.txt");
while (<FILE>) {
print FILE s!^.{180}(\d{2})(\d{2})(\d{2}).*!$1/$2/$3!;
};
close (FILE);
print "Makau is a great coder\n";
-------------------------------------------------------------
Have a nice day.
Makau.
In article <7rokdr$ndp$1@nnrp1.deja.com>,
sg95m476@dunx1.ocs.drexel.edu wrote:
> Please help a perl newbie:
>
> I have a text file. For every line of the file in character positions
> 181-186 there are date values in the format MMDDYY. What I would like
> to do is modify this to a MM/DD/YY format, inserting slashes between
MM,
> DD, and YY for every line of the file - thus expanding the character
> position range of this date format for every line from character
> positions 181-188.
>
> Can anyone help me with this?
>
> Thanks!
>
> Chuck
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 15 Sep 1999 18:33:14 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Please help a newbie!
Message-Id: <KDRD3.13218$N77.953520@typ11.nn.bcandid.com>
In article <7ron6u$pjl$1@nnrp1.deja.com>, <makau@multimania.com> wrote:
>#!/usr/local/perl -w
Your Perl is where? Good -w.
>use strict;
Good for you.
>open (FILE,"./file.txt");
>while (<FILE>) {
> print FILE s!^.{180}(\d{2})(\d{2})(\d{2}).*!$1/$2/$3!;
0. You forgot to check for errors on opening FILE.
1. You're deleting the first 180 characters on each line, and
everything after the date, too. This was not what the poster asked.
2. You're trying to write to a filehandle opened for reading. That
doesn't work.
3. The return value of s/// is not the modified string. It is the number
of substitutions made. This will try to output '1' or '0' to the file.
4. If all of the above bugs were fixed, you'd be overwriting the next
record in the file with the expanded version of the current record.
Also, it's likely that the input data doesn't have newlines in it.
We'd probably need to use read instead of <>.
>};
This semicolon doesn't belong here.
>close (FILE);
>
>print "Makau is a great coder\n";
Great coders verify that they understand the specification, and then
they test their code. It's been a while since I saw a program with six
bugs in six lines of code.
>Have a nice day.
>
>Makau.
>
>In article <7rokdr$ndp$1@nnrp1.deja.com>,
> sg95m476@dunx1.ocs.drexel.edu wrote:
> [Makau quotes entire post he's replying to, like an inconsiderate boor]
Wow.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 14 1999
55 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 14 Sep 1999 21:07:40 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: PLEASE HELP! - Symbolic References
Message-Id: <7rmdes$67j$1@gellyfish.btinternet.com>
On Tue, 14 Sep 1999 16:41:04 GMT makau@multimania.com wrote:
> The actual code is a lot more complicated but to summarize, here's what
> I want to do :
>
> ---------------------------------
> #!/usr/local/bin/perl -w
>
> use strict;
>
> my $key;
> my %hash = (
> hello => 'world',
> perl => 'rOckz',
> );
> foreach $key (keys %hash) {
> my ${$key} = $hash{$key};
> };
>
> print "The $hello $perl !";
> ---------------------------------
>
> but the Perl interpreter prints out :
>
> ---------------------------------
> Can't declare scalar deref in my at ./a.pl line 11, near "} ="
> Global symbol "$hello" requires explicit package name at ./a.pl line 14.
> Global symbol "$perl" requires explicit package name at ./a.pl line 14.
> Execution of ./a.pl aborted due to compilation errors.
> ---------------------------------
>
> Without the 'strict' subs, it works just fine.
> But the problem is I do NOT want to remove it (since some warnings are
> not displayed otherwise)!
>
> And YES, I want to get $$key and not a hash.
> I have my reason.
>
You cannot use lexical (my) variable as symbolic references - you will
need to do 'use vars' instead ..
But I would be interested why you *must* use the symbolic references.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 14 Sep 1999 21:57:23 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: POST is not allowed
Message-Id: <7rmgc3$6os$1@gellyfish.btinternet.com>
On Mon, 13 Sep 1999 16:25:01 -0500 Eric Brummer wrote:
> Ok,
> Here's the problem. I have an apache web server running 1.3b7 on an
> hpux machine with perl 5.001 with a whole bunch of perl scripts that
> work fine; one this machine I am the web server admin. All the scripts
> work fine. On a second server running apache 1.3.3 which is publicly
> available and I am not the web admin on, I have the same perl scripts
> with perl 5.005-51. Some of the scripts using POST are working and
> others using POST are not working. The error that I get is:
> Method Not Allowed
>
> The requested method POST is not allowed for the URL ...
This is almost certainly a server configuration issue - it is possible
to limit the methods that are allowed. I would ask in the newsgroup
comp.infosystems.www.servers.unix
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 15 Sep 1999 13:26:01 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: script to dynamically produce standard calender
Message-Id: <slrn7tvpap.hj3.abigail@alexandra.delanet.com>
Mark Hamlin (mark@artdigital.co.uk) wrote on MMCCVI September MCMXCIII in
<URL:news:7ro019$cq6$1@pheidippides.axion.bt.co.uk>:
??
?? I'm after a script to dynamically produce calendar output, i.e. a small
?? table for each month (text only) with 7 columns - one for each day, and the
?? days represented by the number (bog standard calendar - you know what I
perl -we 'system "cal 9 1999"'
?? mean). If you have something suitable handy or know where such a thing is
?? available on-line or even a book that it is in, I'd really appreciate it if
?? you could send me an email me (and tell me about it, not just gloat!).
Why? If you cannot be bothered to read the group, the answer doesn't
really interest you, does it?
Abigail
--
perl -wlne '}{print$.' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 15 Sep 1999 18:11:11 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: Stock quote URL strings
Message-Id: <slrn7tvmb5.3nv.*@dragons.duesouth.net>
Wed, 15 Sep 1999 10:12:36 -0400, a great smashing of the head occured
against Michael Kraizman" <Michael_Kraizman@excite.com>'s keyboard,
causing comp.lang.perl.misc to receive this:
: SSdtIHdyaXRpbmcgYSBQRVJMIG1vZHVsZSB0byByZXRyaWV2ZSBzdG9jayBxdW90ZXMgZnJvbSB0
: aGUgdmFyaW91cyANCnF1b3RlIGVuZ2luZXMgb24gdGhlIHdlYi4gSSd2ZSBtYW5hZ2VkIHRvIGZp
: bmQgb25lIFVSTCB0aGF0IHdpbGwgDQpyZXR1cm4gYSBzdG9jayBxdW90ZSBmcm9tIHRoZSBZYWhv
: byBzZXJ2ZXIgaW4gY29tbWEgc2VwYXJhdGVkDQp2YWx1ZSBmb3JtYXQgKCJodHRwOi8vcXVvdGUu
: eWFob28uY29tL2QvcXVvdGVzLmNzdj9zPSRzeW1ib2wmZj1zbDFkMXQxYzFvaGd2ajFwcDJvd2Vy
: biZlPS5jc3YiKSANCkRvZXMgYW55Ym9keSBrbm93IG9mIGFueSBvdGhlciBVUkxzIHRoYXQgd2ls
: bCBkbyB0aGUgc2FtZSwgbGlrZSANCmZvciBleGNpdGUsIG9yIEluZm9zZWVrIG9yIG90aGVycz8N
: Cg==
Please configure your newsposter to post in text.
Thank you,
--Matthew
------------------------------
Date: 15 Sep 1999 13:27:18 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Stock quote URL strings
Message-Id: <slrn7tvpd6.hj3.abigail@alexandra.delanet.com>
Michael Kraizman (Michael_Kraizman@excite.com) wrote on MMCCVI September
MCMXCIII in <URL:news:7ro97s$6t2$1@news2.tor.accglobal.net>:
`` SSdtIHdyaXRpbmcgYSBQRVJMIG1vZHVsZSB0byByZXRyaWV2ZSBzdG9jayBxdW90ZXMgZnJvbSB0
`` aGUgdmFyaW91cyANCnF1b3RlIGVuZ2luZXMgb24gdGhlIHdlYi4gSSd2ZSBtYW5hZ2VkIHRvIGZp
`` bmQgb25lIFVSTCB0aGF0IHdpbGwgDQpyZXR1cm4gYSBzdG9jayBxdW90ZSBmcm9tIHRoZSBZYWhv
`` byBzZXJ2ZXIgaW4gY29tbWEgc2VwYXJhdGVkDQp2YWx1ZSBmb3JtYXQgKCJodHRwOi8vcXVvdGUu
`` eWFob28uY29tL2QvcXVvdGVzLmNzdj9zPSRzeW1ib2wmZj1zbDFkMXQxYzFvaGd2ajFwcDJvd2Vy
`` biZlPS5jc3YiKSANCkRvZXMgYW55Ym9keSBrbm93IG9mIGFueSBvdGhlciBVUkxzIHRoYXQgd2ls
`` bCBkbyB0aGUgc2FtZSwgbGlrZSANCmZvciBleGNpdGUsIG9yIEluZm9zZWVrIG9yIG90aGVycz8N
Sell.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 15 Sep 1999 18:38:56 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Stock quote URL strings
Message-Id: <4JRD3.13222$N77.953872@typ11.nn.bcandid.com>
I'm reposting the article in text so people can read it. (trn 4
decodes base64 automatically.)
In article <7ro97s$6t2$1@news2.tor.accglobal.net>,
Michael Kraizman <Michael_Kraizman@excite.com> wrote:
>I'm writing a PERL module to retrieve stock quotes from the various
>quote engines on the web. I've managed to find one URL that will
>return a stock quote from the Yahoo server in comma separated
>value format
>("http://quote.yahoo.com/d/quotes.csv?s=$symbol&f=sl1d1t1c1ohgvj1pp2owern&e=.csv")
>Does anybody know of any other URLs that will do the same, like
>for excite, or Infoseek or others?
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 14 1999
55 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. Due to their sizes, neither the Meta-FAQ nor
the FAQ are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq" from
almanac@ruby.oce.orst.edu.
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 807
*************************************
