[16136] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 3548 Volume: 9

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 10 15:07:27 2000

Date: Mon, 10 Jul 2000 12:07:11 -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: <963256031-v9-i3548@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Mon, 10 Jul 2000     Volume: 9 Number: 3548

Today's topics:
        AMEX validation in script - problem chrisnial@my-deja.com
    Re: AMEX validation in script - problem <brian@bluecoat93.org>
        ANN: Algorithm::Diff version 1.10 released to CPAN <perl@bike-nomad.com>
        ANN: yapc::Europe News Flash <gellyfish@gellyfish.com>
        ANNC: The Perl Golf Apocalypse <uri@sysarch.com>
        ANNOUNCE: HTML::TableExtract 1.00 released <sisk@mojotoad.com>
        ANNOUNCE: Log:Dispatch 1.6 <grimes@waste.org>
        ANNOUNCE: MIME-tools 5.3xx (Alpha) is on CPAN <eryq@zeegee.com>
        ANNOUNCE: Net::InstantMessenger AOL/TOC module (Riad S. Wahby)
        Anyone have a Free Meta Crawler Script <jnimpho@hotmail.com>
    Re: Anyone have a Free Meta Crawler Script (Randal L. Schwartz)
    Re: Anyone have a Free Meta Crawler Script (Abigail)
    Re: Anyone have a Free Meta Crawler Script <peter.sundstrom@eds.com>
    Re: Anyone have a Free Meta Crawler Script <care227@attglobal.net>
    Re: Anyone have a Free Meta Crawler Script (B. Chas Parisher)
    Re: Anyone have a Free Meta Crawler Script <jnimpho@hotmail.com>
        Apache's bug ? eastking@my-deja.com
    Re: Apache's bug ? <gus@black.hole-in-the.net>
        Appreciate any help <graeme.nicholson@abetterworld.co.uk>
    Re: Appreciate any help (Tad McClellan)
        Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Tue, 04 Jul 2000 20:38:37 GMT
From: chrisnial@my-deja.com
Subject: AMEX validation in script - problem
Message-Id: <8jti0c$udb$1@nnrp1.deja.com>

Can anyone give me a clue to why the following code might have
stopped working?

----

elsif ($type eq 'AMEX')
{
# American Express: 14, 15, 16 digits beginning '34' or '37'
if ($card =~ m/^3[47].{15}$/)
{
$valid_format = 1;
} elsif
if ($card =~ m/^3[47].{14}$/)
{
$valid_format = 1;
} elsif
if ($card =~ m/^3[47].{13}$/)
{
$valid_format = 1;
}
}

---

I guess I need to learn about regular expressions, so if anyone can
spot the error or point me to a good resource where I can learn, I'd
really appreciate it.

Thanks

--
--
Chris Nial


Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: Tue, 4 Jul 2000 17:11:53 -0400
From: "Brian Landers" <brian@bluecoat93.org>
Subject: Re: AMEX validation in script - problem
Message-Id: <ops85.6083$f11.42390@news3.atl>

14 - length('34') = 12;
15 - length('37') = 13;
16 - length('38') = 14;

if ($type eq 'AMEX')
{
    # American Express: 14, 15, 16 digits beginning '34' or '37'
    if ($card =~ /^3[47]\d{12,14}$/) {
        $valid_format = 1;
    }
}


<chrisnial@my-deja.com> wrote in message news:8jti0c$udb$1@nnrp1.deja.com...
> Can anyone give me a clue to why the following code might have
> stopped working?
>
> ----
>
> elsif ($type eq 'AMEX')
> {
> # American Express: 14, 15, 16 digits beginning '34' or '37'
> if ($card =~ m/^3[47].{15}$/)
> {
> $valid_format = 1;
> } elsif
> if ($card =~ m/^3[47].{14}$/)
> {
> $valid_format = 1;
> } elsif
> if ($card =~ m/^3[47].{13}$/)
> {
> $valid_format = 1;
> }
> }
>
> ---
>
> I guess I need to learn about regular expressions, so if anyone can
> spot the error or point me to a good resource where I can learn, I'd
> really appreciate it.
>
> Thanks
>
> --
> --
> Chris Nial
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.




------------------------------

Date: Thu, 06 Jul 2000 18:47:50 -0800
From: "Ned Konz" <perl@bike-nomad.com>
Subject: ANN: Algorithm::Diff version 1.10 released to CPAN
Message-Id: <LkN95.1245$Q7.75470@news-east.usenetserver.com>

There is a new version of the Algorithm::Diff module (v 1.10) available on
CPAN. It resides under the authors/id/N/NE/NEDKONZ/ directory (along with
my Archive::Zip module).  So, for instance, you can get it from the
http://www.cpan.org/modules/by-authors/id/N/NE/NEDKONZ/ directory.

This is a module for computing the difference between two files, two
strings, or any other two lists of things.  It uses an  intelligent
algorithm similar to (or identical to) the one used by the Unix `diff'
program. It is guaranteed to find the *smallest possible* set of
differences.

Included is a version of the Unix diff utility that uses Algorithm::Diff
and produces compatible output.

This new version runs much faster and with much less memory consumption
than versions < 1.06 when comparing large arrays/files.

Version 1.10 is a bugfix version that makes the diff output truly minimal.
Unfortunately, this improvement also makes it somewhat slower.  But when
comparing two 4000-line files, it produces half the diff output. It now
produces output almost identical to GNU diff when that program is run with
the "-d" option.

Version 1.10 also adds Algorithm::DiffOld, which has the old interface but
runs much slower. Use this module ONLY if you can't use a key generating
function (like one user who was diffing an array of text with an array
of regular expressions).

If you're currently using a version of Algorithm::Diff prior to 1.06, please
note this interface change (from versions < 1.06):

There is one change to the interface: if you're passing a user-defined
comparison function, you'll have to change it to a function that generates
key strings instead.  This is used internally for comparison and key
generation (I use a hash for speed and the keys are used as keys into this
hash).

(If you HAVE to use the old interface, see the README for details on the
Algorithm::DiffOld module that is also distributed with this version.)

If you aren't passing a user-defined comparison function, Algorithm::Diff
should be a drop-in replacement. Specifically, if you're comparing strings,
there's probably nothing to change.

But if you're using objects or something more complex in the arrays, you'll
need to supply a key-generating function.

For example, if you're doing a case-insensitive diff, you might have had a
comparision function that looked like this:

	sub { lc($_[0]) eq lc($_[1]) }

for this new version, you'd change this to:

	sub { lc($_[0]) }

to supply a key for the strings instead.


-- 
Ned Konz
currently: Stanwood, WA
email:     perl@bike-nomad.com
homepage:  http://bike-nomad.com, Perl homepage: http://bike-nomad.com/perl




------------------------------

Date: Wed, 05 Jul 2000 11:09:27 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: ANN: yapc::Europe News Flash
Message-Id: <HHE85.1368$iP2.128270@news.dircon.co.uk>

Greg McCarroll being a shy retiring sort who wouldnt deport himself on
Usenet has asked me to convey the following to you :

/J\

			yapc::Europe News Flash

I am extremely pleased to announce that the yapc::Europe conference
now has a venue. The ICA (http://www.ica.org.uk) will be acting as
partners in this conference in much the same way as CMU has done for
yapc::America::North.

They are probably situated in one of the most prestigious areas of
London and initial inspection of their premises is very impressive.

The conference will have the theme of 'The Art of Perl' and Saturday
afternoon will have a special series of talks involving the use of
Perl to generate conventional art, Perl programming as an artform in
its own right and Open Source in Europe this last talk  drawing on
parallels between Open Source and some aspect of the art community.

The members of London.pm deserve special thanks as they have been
involved a lot in suggesting, researching and now, securing a
venue(s). This involvement illustrates the fact that this conference
is very much an inclusive process rather than exclusive, and I'd like
you all to remember that when the call for papers goes out very soon.

Greg



------------------------------

Date: Sat, 08 Jul 2000 06:39:07 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: ANNC: The Perl Golf Apocalypse
Message-Id: <x74s61p1md.fsf@home.sysarch.com>


	Announcing the First Annual Perl Golf Apocalypse

Larry Wall, the father of Perl, has observed that the three virtues of a
programmer are laziness, impatience, and hubris.  Laziness has been
explained as doing more with less. A variation of that is doing the same
with less. For quite a while the newsgroup comp.lang.perl.misc has had
threads where each poster was trying to solve a basic problem with
shorter code than the previous post. This type of coding competition was
named Perl Golf by Greg Bacon because in both Perl and physical golf the
goal is to finish with the fewest (key)strokes.

Now the Perl Golf Committee (led by Uri, who conceived the idea) has been
hard at work organizing a Perl Golf Tournament for the 4th Perl Conference
in Monterey this July.

The Perl Golf Apocalypse (PGA) is for 10 teams, each comprised of up to 3
Perl hackers. Each team will be given its own computer to use and will
to try to solve a set of simple problems by writing a short piece of
Perl code.  Each team must submit its code, which will then be tested and
compared to the answers from the other teams.  Each problem (or hole as
we call them) will be given to all the teams at the same time and will
have a time limit (about 5-7 minutes, depending on the hole).  There
will be 9 holes in all and after 4 of them the 5 lowest scoring teams
will be cut (just like in real golf tournaments).

There are three ways to score points on a hole.

  * First, if the code submitted by a team correctly solves the
    problem, 1 point is awarded.

  * Second, the correct answer with the fewest keystrokes is awarded 6
    points with the next two runners up getting 5 and 4 points each.

  * Third, the correct answer which was submitted the earliest, is
    awarded 3 points with the next two runners up getting 2 and 1 points
    each.

So a team can earn a maximum of 10 points on one hole.  It is important
to note that the execution speed of the code is not a factor in scoring.

The holes will be judged by a Perl script created by us. It will check
the correctness of all the submissions, rank them by the shortest code
and also rank them by the timestamps on the submitted answer files. Then
the script will award points and keep track of scores for each
team. Another script will be used by the commentators to display the
current point totals for the teams, the scoring for a given hole and the
actual code submitted by the teams.

After all the holes are finished, the teams will be ranked by score, and
from highest to lowest, they will be allowed to choose their prizes. The
prize list includes computers, refrigerators stuffed with booty, cruise
discounts, cdroms, books, clothing, etc.  Everyone who enters the
tournament is guaranteed a prize.

Our two guests, Chip Salzenberg and Chris Nandor will provide
an entertaining commentary on the proceedings.

Groups of 3 or 2 registering together as a team will be given preference
over single entrants, so get some friends together to enter a team.

Send your registration request to golf@sysarch.com with this
information:

	Monger Affiliation
	Team Name
	Member Count
	Real name and email for each team member

	If you are a single entrant, do you want us to put you on a
	team?

	Optionally, tell us your level of perl experience

You can also visit the Perl Golf page at
http://www.sysarch.com/perl/golf/ which has the PGA rules and
invitation, the prize and sponsor list, a real golfing thread from
c.l.p.misc, and more.

The Perl Golf Apocalypse Team

Uri Guttman
Brand Hilton
Ronald Kimball
Larry Rosler
Damian Conway

-- 
Uri Guttman  ---------  uri@sysarch.com  ----------  http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page  -----------  http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net  ----------  http://www.northernlight.com


------------------------------

Date: Thu, 06 Jul 2000 12:41:10 -0500
From: Matt Sisk <sisk@mojotoad.com>
Subject: ANNOUNCE: HTML::TableExtract 1.00 released
Message-Id: <0lN95.1248$Q7.76150@news-east.usenetserver.com>

The latest version is now available from CPAN.

HTML::TableExtract is a module that simplifies the extraction
of information contained in tables within HTML documents.

Tables of note may be specified using Headers, Depth, Count,
or some combination of the three.

New features include:

   - gridmap option, columns are really columns regardless
     of cell span skew
   - Added chains for relative targeting
       * Terminus-matching by default
       * Elasticity option
       * Waypoint retention option
       * Lineage tracking (match record along chain)
   - Significant tests added to 'make test'
   - Documentation rewrite

Availability:

http://www.cpan.org/authors/id/M/MS/MSISK/


Enjoy!
Matt Sisk




------------------------------

Date: Tue, 4 Jul 2000 11:47:23 -0500
From: Peter Grimes <grimes@waste.org>
Subject: ANNOUNCE: Log:Dispatch 1.6
Message-Id: <8lN95.1249$Q7.76143@news-east.usenetserver.com>

The URL

    ftp://ftp.urth.org/pub/Log-Dispatch-1.6.tar.gz

has entered CPAN as

  file: $CPAN/authors/id/D/DR/DROLSKY/Log-Dispatch-1.6.tar.gz
  size: 14371 bytes
   md5: d9542de69a26ee81be3c0eaa59fc8815


>From the README:

Log::Dispatch is a suite of OO modules for logging messages to
multiple outputs, each of which can have a minimum and maximum log
level.  It is designed to be easily subclassed, both for creating a
new dispatcher object and particularly for creating new outputs.  It
also allows both global (dispatcher level) and local (logging object)
message formatting callbacks which allows greater flexibility and
should reduce the need for subclassing.  Subclassing is now only
needed to send a message to a different output, not to change the
message format.


>From Changes:

1.6

NOTE: 1.5 was never released to CPAN.

- Log/Dispatch.pm: Added convenience methods for log levels like
$dispatcher->alert($message).  Suggested by Dominique Dumont.

1.5

This version introduces some changes into the interface that will
cause incompatibility with any Log::Dispatch::Output interface you may
have created.  However, it is fairly simple to fix.  Simply change the
method in your subclass named 'log' to be called 'log_message'.  You
can also remove the line:

  return unless $self->_should_log($params{level});

This is now done before the message ever gets to the Output subclass
(which is what it should have done in the first place, really.)

This was done so that I could allow per-Output object callbacks, a
feature which several people have requested and which seems useful
enough to warrant the breakage.

NOTE: This change is transparent if you are only using the Output
objects included with this distribution.

- Many: Changed the interface to allow per-Output object level
callbacks and documented this.
- Log/Dispatch/Base.pm: new base class for both Log::Dispatch and
Log::Dispatch::Output objects (contains callback related code).  You
should never need to deal with this class unles you are me.
- Log/Dispatch/Output.pm: document _accepted_levels.
- Log/Dispatch/Output.pm: Fix _accepted_levels so that emergency level
is returned as 'emergency', not 'emerg'.
- Log/Dispatch.pm: Fix doc bug (change 'file' to 'filename').  Thanks
to Clayton Scott.
- Log/Dispatch/File.pm: Do compile time check for O_APPEND constant
rather than run time check.





------------------------------

Date: Fri, 07 Jul 2000 13:50:21 -0400
From: Eryq <eryq@zeegee.com>
Subject: ANNOUNCE: MIME-tools 5.3xx (Alpha) is on CPAN
Message-Id: <DkN95.1244$Q7.74648@news-east.usenetserver.com>

The last major structural change for MIME-tools 5.x -- the
new "Filer" objects which tell the parser where to put the
extracted files -- has been implemented.  Unless people 
complain fiercely, this is going to be the final interface
when MIME-tools hits its final operational release.

If you're a MIME-tools user, please do me a favor and
take a look at the CHANGE LOG and the new MIME::Parser::Filer 
docs, on the official home page:

	http://www.zeegee.com/code/perl/MIME-tools

Comments on the homepage's new look-and-feel are welcome
as well.  Yes, it needs a FAQ.  :-)

Eryq




------------------------------

Date: 06 Jul 2000 21:37:07 GMT
From: rsw@mit.edu (Riad S. Wahby)
Subject: ANNOUNCE: Net::InstantMessenger AOL/TOC module
Message-Id: <UkN95.1246$Q7.76043@news-east.usenetserver.com>


This message is an announcement of the forthcoming
Net::InstantMessenger module, which implements the TOC protocol as
described in the TiK AIM client distribution.  

Net::InstantMessenger (name not completely decided at this point) has
an OO interface to sending data to the AIM server, and implements
receiving messages from the server and from an arbitrary number of
user-supplied sockets/filehandles through a select loop and individual
callback functions.

This module will, I hope, provide the basis for a powerful new set of
perl-based AIM clients, "protocol bridges," and other programs that
communicate with the AIM TOC servers.

Any comments should be addressed to this newsgroup and to me
personally.  Those wishing to help test the module before its release
should contact me directly by e-mail.  I will probably be releasing
daily updates to the module for the next week, and any help in finding
bugs or improving the interface would be appreciated.

Riad Wahby
rswNOSPAM@mit.edu
droidNOSPAM@media.mit.edu

5105





------------------------------

Date: Sat, 8 Jul 2000 12:40:43 +0100
From: "Josie" <jnimpho@hotmail.com>
Subject: Anyone have a Free Meta Crawler Script
Message-Id: <vmE95.5037$r4.3098@news.indigo.ie>

Does anyone know where I can find a script to crawl through meta tags of a
web page. I have just wirtten a search engine script but the last thing i
need is a script to index the pages

Thanks in advance






------------------------------

Date: 08 Jul 2000 07:03:37 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Anyone have a Free Meta Crawler Script
Message-Id: <m1itughg7a.fsf@halfdome.holdit.com>

>>>>> "Josie" == Josie  <jnimpho@hotmail.com> writes:

Josie> Does anyone know where I can find a script to crawl through
Josie> meta tags of a web page. I have just wirtten a search engine
Josie> script but the last thing i need is a script to index the pages

Well, for the fourth time in four days, I get to plug yet another of
my already-written columns.  Is there anything *left* to write about
after 102 columns?  (Please, if you have an idea, send it to me!  I'll
give credit!  Your name in lights!  2.5 columns a month is pretty
busy!)

Josie - check out

  http://www.stonehenge.com/merlyn/WebTechniques/col42.html

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!


------------------------------

Date: 08 Jul 2000 14:23:41 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Anyone have a Free Meta Crawler Script
Message-Id: <slrn8meteu.rbj.abigail@alexandra.delanet.com>

Randal L. Schwartz (merlyn@stonehenge.com) wrote on MMDIII September
MCMXCIII in <URL:news:m1itughg7a.fsf@halfdome.holdit.com>:
() 
() Well, for the fourth time in four days, I get to plug yet another of
() my already-written columns.  Is there anything *left* to write about
() after 102 columns?  (Please, if you have an idea, send it to me!  I'll
() give credit!  Your name in lights!  2.5 columns a month is pretty
() busy!)


Well, you could always write about the question whether Paul lives or not.


Abigail
-- 
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))


------------------------------

Date: Mon, 10 Jul 2000 15:26:45 +1200
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: Anyone have a Free Meta Crawler Script
Message-Id: <8kbfrl$kjq$1@hermes.nz.eds.com>


Randal L. Schwartz wrote in message ...
>>>>>> "Josie" == Josie  <jnimpho@hotmail.com> writes:
>
>Josie> Does anyone know where I can find a script to crawl through
>Josie> meta tags of a web page. I have just wirtten a search engine
>Josie> script but the last thing i need is a script to index the pages
>
>Well, for the fourth time in four days, I get to plug yet another of
>my already-written columns.  Is there anything *left* to write about
>after 102 columns?  (Please, if you have an idea, send it to me!  I'll
>give credit!  Your name in lights!  2.5 columns a month is pretty
>busy!)


How about a semi-intelligent script that scans comp.lang.perl.misc for
various Perl newbie questions and creates a reply with a RTFM and the
appropriate Perl FAQ entry.




------------------------------

Date: Mon, 10 Jul 2000 00:19:05 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Anyone have a Free Meta Crawler Script
Message-Id: <39694EB9.B6C1EB89@attglobal.net>

Peter Sundstrom wrote:
> 
> How about a semi-intelligent script that scans comp.lang.perl.misc for
> various Perl newbie questions and creates a reply with a RTFM and the
> appropriate Perl FAQ entry.

That topic has been done to death.  Let it rest in peace.


------------------------------

Date: 10 Jul 2000 16:36:27 GMT
From: chas@chas.ch.intel.com (B. Chas Parisher)
Subject: Re: Anyone have a Free Meta Crawler Script
Message-Id: <8kcu2b$8kb@news.or.intel.com>

Abigail sez:
:) Randal L. Schwartz (merlyn@stonehenge.com) wrote on MMDIII September
:) MCMXCIII in <URL:news:m1itughg7a.fsf@halfdome.holdit.com>:
:) () Well, for the fourth time in four days, I get to plug yet another of
:) () my already-written columns.  Is there anything *left* to write about
:) () after 102 columns?  (Please, if you have an idea, send it to me!  I'll
:) () give credit!  Your name in lights!  2.5 columns a month is pretty
:) () busy!)
:) Well, you could always write about the question whether Paul lives or not.

*blink*

Well,  how would you,  using perl,  play an MP3 backwards so that a new
generation of listeners can determine if the Beatles really sang "Paul is
dead"?

I See A Great Need.

--B. Chas Parisher


------------------------------

Date: Mon, 10 Jul 2000 19:42:00 +0100
From: "Josie" <jnimpho@hotmail.com>
Subject: Re: Anyone have a Free Meta Crawler Script
Message-Id: <jJoa5.5827$r4.3320@news.indigo.ie>

Thanks very much for everyones help. You are all so helpful. What happened
to the time where people who visited NG's were helpful?

Sad, sad people

B. Chas Parisher <chas@chas.ch.intel.com> wrote in message
news:8kcu2b$8kb@news.or.intel.com...
> Abigail sez:
> :) Randal L. Schwartz (merlyn@stonehenge.com) wrote on MMDIII September
> :) MCMXCIII in <URL:news:m1itughg7a.fsf@halfdome.holdit.com>:
> :) () Well, for the fourth time in four days, I get to plug yet another of
> :) () my already-written columns.  Is there anything *left* to write about
> :) () after 102 columns?  (Please, if you have an idea, send it to me!
I'll
> :) () give credit!  Your name in lights!  2.5 columns a month is pretty
> :) () busy!)
> :) Well, you could always write about the question whether Paul lives or
not.
>
> *blink*
>
> Well,  how would you,  using perl,  play an MP3 backwards so that a new
> generation of listeners can determine if the Beatles really sang "Paul is
> dead"?
>
> I See A Great Need.
>
> --B. Chas Parisher




------------------------------

Date: Tue, 04 Jul 2000 04:38:55 GMT
From: eastking@my-deja.com
Subject: Apache's bug ?
Message-Id: <8jrpou$n11$1@nnrp1.deja.com>

Hi ,every one here.

I have written a pm file and two pl script as following

commonuse.pl

sub test(){
  # so sth here
}
1;

Init.pm

package Init;

require "commonuse.pl";

sub new(){
  #do bless and others to $self
  test();
  my $query = CGI->new();
  self->{"CGI"} = $query;
}
1;


testscript.pl

use Init;
do "commonuse.pl";

my $Init = Init->new();
my $query = $Init->{"CGI"};


when I run testscript.pl offline, it worked well, but when I run it
online, it seemed that I can not get a CGI handle.I do not know why it
was so. Please help me .Thanks in advance. by the way, I am using
Apache under solaris for pc as web server.







Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: Tue, 04 Jul 2000 09:50:26 GMT
From: Gus <gus@black.hole-in-the.net>
Subject: Re: Apache's bug ?
Message-Id: <962704226.24549.0.nnrp-12.c29f015a@news.demon.co.uk>

eastking@my-deja.com wrote:

//

> when I run testscript.pl offline, it worked well, but when I run it
> online, it seemed that I can not get a CGI handle.

Umm, silly question, but where which file does the "use CGI;" appear 
in ?

Regards,
	_Gus


-- 
gus@black.hole-in-the.net
0x58E18C6D
82 AA 4D 7F D8 45 58 05  6D 1B 1A 72 1E DB 31 B5
http://black.hole-in-the.net/gus/


------------------------------

Date: Fri, 7 Jul 2000 23:50:57 +0100
From: "Graeme Nicholson" <graeme.nicholson@abetterworld.co.uk>
Subject: Appreciate any help
Message-Id: <Mdt95.4148$_O.79582@news2-win.server.ntlworld.com>

Greetings

I was hoping that someone on the group would be able to help me
with a cgi question. I've a specific task (in mind) that I want to
incorporate into my site and I was hoping to get some advice on
how to do it. If you are knowledgeable about such matters I would
ask that you go to my site and read the proposed " trading model"
and technical requirements. If you are able to offer any advise or
help I would be most appreciative.

BTW
I would also appreciate any feedback on the concept.

Best Regards
--
Graeme Nicholson

http://www.abetterworld.co.uk






------------------------------

Date: Fri, 7 Jul 2000 23:01:52 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Appreciate any help
Message-Id: <slrn8md6d0.n64.tadmc@magna.metronet.com>

On Fri, 7 Jul 2000 23:50:57 +0100, Graeme Nicholson <graeme.nicholson@abetterworld.co.uk> wrote:

> Subject: Appreciate any help


Please put the subject of your article in the Subject of your article.


>Greetings


Yo Bubba!


>I was hoping that someone on the group would be able to help me
>with a cgi question. 


Eh?

This here is the Perl newsgroup.

Ask Perl questions here.

CGI has its own newsgroup.

Ask CGI questions there.


>I've a specific task (in mind) that I want to
>incorporate into my site and I was hoping to get some advice on
>how to do it. 


Carefully.


>I would also appreciate any feedback on the concept.


Your "make off-topic postings" concept sucks.


-- 
    Tad McClellan                          SGML Consulting
    tadmc@metronet.com                     Perl programming
    Fort Worth, Texas


------------------------------

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 3548
**************************************


home help back first fref pref prev next nref lref last post