[12730] in Perl-Users-Digest

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

Perl-Users Digest, Issue: 140 Volume: 9

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 14 10:07:14 1999

Date: Wed, 14 Jul 1999 07:05:11 -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, 14 Jul 1999     Volume: 9 Number: 140

Today's topics:
    Re: ** Working With Strings (Tad McClellan)
    Re: ** Working With Strings (Andreas Fehr)
    Re: cgi scripts on NT <marshalc@NO-SPAMamericasm01.nt.com>
    Re: cgi scripts on NT <martin@adoma.se>
    Re: Compile a perl program.. (Henri Schomäcker)
    Re: deleting files (Tad McClellan)
        Every morning at 6.00 am on a NT-box... (Henri Schomäcker)
    Re: from a pipe (Tad McClellan)
    Re: from a pipe (Bart Lateur)
        getting the virtual host info... <pleduc@ca.ibm.com>
    Re: How do I include a hash is a regular expression? (Abigail)
        How Do I Use Win32::Internet for FTP? <rolm@my-deja.com>
    Re: How to lock file <gellyfish@gellyfish.com>
        knowing it's own name? <qwerty@post.utfors.se>
    Re: knowing it's own name? <gellyfish@gellyfish.com>
    Re: knowing it's own name? (Abigail)
    Re: knowing it's own name? <marshalc@NO-SPAMamericasm01.nt.com>
    Re: Newbie Help: How to display image on web page using <martin@adoma.se>
    Re: Newbie Help: How to display image on web page using (Abigail)
    Re: Old database is erased when I add new information (Perulinks)
    Re: pattern matching with variables <David_J_Pratt@sbphrd.com>
    Re: perl script in browser? (Abigail)
        Premature end of script headers? <pmt@mitre.org>
    Re: Premature end of script headers? (Abigail)
    Re: Socket Programming (Henri Schomäcker)
    Re: something that might help (Perulinks)
        Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)

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

Date: Wed, 14 Jul 1999 03:33:26 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: ** Working With Strings
Message-Id: <6gehm7.pbi.ln@magna.metronet.com>

Abigail (abigail@delanet.com) wrote:
: Larry Rosler (lr@hpl.hp.com) wrote on MMCXLII September MCMXCIII in
: <URL:news:MPG.11f510c4a29b3bbc989cb8@nntp.hpl.hp.com>:
: @@ 
: @@ Things like this are tipping me further to the Abigail side of The 
: @@ Force.


: You like mauve too?


   Is mauve male or female?


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


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

Date: Wed, 14 Jul 1999 13:39:46 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: ** Working With Strings
Message-Id: <378c9308.16590515@news.uniplus.ch>

On Wed, 14 Jul 1999 03:33:26 -0400, tadmc@metronet.com (Tad McClellan)
wrote:

>Abigail (abigail@delanet.com) wrote:
>: Larry Rosler (lr@hpl.hp.com) wrote on MMCXLII September MCMXCIII in
>: <URL:news:MPG.11f510c4a29b3bbc989cb8@nntp.hpl.hp.com>:
>: @@ 
>: @@ Things like this are tipping me further to the Abigail side of The 
>: @@ Force.
>
>: You like mauve too?
>
>   Is mauve male or female?

This should be clear now...

Andreas


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

Date: Wed, 14 Jul 1999 08:40:04 -0500
From: Marshall Culpepper <marshalc@NO-SPAMamericasm01.nt.com>
Subject: Re: cgi scripts on NT
Message-Id: <378C9334.7C8E1067@NO-SPAMamericasm01.nt.com>

writing perl in NT is more or less the same as writing it in UNIX....go
grab a copy of ActivePerl at http://www.activestate.com if you need a
compiler.
----------------------------------
just another guy trying to save the world
----------------------------------




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

Date: Wed, 14 Jul 1999 15:20:05 +0100
From: Martin Quensel <martin@adoma.se>
Subject: Re: cgi scripts on NT
Message-Id: <378C9C95.DF30D0EE@adoma.se>



Floyd Morrissette wrote:
> 
> I have been writing scripts for UNIX but I would like to learn the
> differences for NT systems. Can somebody please tell me where to go to
> read about this. All the books I have are geared for UNIX. I need one
> for NT or perhaps a web site.
> 
download activestate perl.
Documentation comes along with it.

www.activestate.com

Cheers 
Martin Quensel


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

Date: Wed, 14 Jul 1999 13:36:38 GMT
From: hschomae@rz-online.de (Henri Schomäcker)
Subject: Re: Compile a perl program..
Message-Id: <378c9223.12889394@news.rhein-zeitung.de>

If you`re talking about NT Servers, take a look at Active-State`s
PerlEx

Yours Henri
+---------------------------------------+
|  Henri Schomäcker  -  VIRTUAL HOMES   |
| Datendesign für Internet und Intranet |
|     http://www.virtual-homes.de/      |
|  henri.schomaecker@virtual-homes.de   |
+---------------------------------------+


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

Date: Wed, 14 Jul 1999 03:50:43 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: deleting files
Message-Id: <jgfhm7.pbi.ln@magna.metronet.com>

Jean (jean.zoch@utoronto.ca) wrote:

: I would like to write a perl script that deletes text files in a directory.
: The filenames are numbers (like 996134274.txt) and only those which are less
: than a certain number (say 997000000.txt) should be deleted.

: My problem is that I can't figure out a way to compare my filename with the
: number.

: How can I store the filename in a temporary variable (so I am able to
: compare it)? Also, how can I check each text file in the directory (so that
: I can delete all necessary files)?


-----------------------------
#!/usr/bin/perl -w
use strict;

opendir(DIR, '.') || die "could not open current directory $!";
my @files = grep /^\d+\.txt$/, readdir(DIR);
closedir(DIR);

my $limit = '997000000.txt';

foreach my $file (@files) {
   print "I will remove $file\n" if $file lt $limit;  # replace with unlink()
}
-----------------------------


   Since all of your filenames are the same length (they might not
   be, but you didn't share that with us) you can use a lexigraphical
   (string) comparison.


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


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

Date: Wed, 14 Jul 1999 13:33:19 GMT
From: hschomae@rz-online.de (Henri Schomäcker)
Subject: Every morning at 6.00 am on a NT-box...
Message-Id: <378c847d.9394296@news.rhein-zeitung.de>

Hi folks,

I`ve got a pretty complex problem:

A customer gets info-requests by a form on his webpage on a NT-Box,
which are stored into a textfile.
Right now, he can download the Textfile which is copied to a public
directory for this purpose and deleted after the download and renamed
in the secure directory to request_actual_date.txt .

Now he wants to get the file every morning at 6.00am mailed as an
attachment to his email account.

O.K. mailing the file as an attachment is no problem, Im doing this
with Blatmail, wich works great!

My problem is how to do this job best on the NT-I-Net Server.

I thought of starting a script which mails the actual textfile as
attachment, and renames it afterwoods.

But how to start the script the best way?
- Setting up a service on the NT-box wich starts the script every
  morning?
  And if this is the best way, how should the script be called 
  (Sorry, but I dont have the possibility to try this out on NT
  because I just have Win 98 set up and have to deal with the admins
  of the webspace provider) "perl.exe path to my script"?
  Is there something special I have to take care of when coding the
  script? I normally use Blatmail by a system() call.

- Is there a possibility to let the perl-script do the control of time
  and starting the actions every morning without any NT-Services?
  Eg by a Win32::? Module?


Any ideas?


Thanks very much in advance for every little suggestion and help,

yours Henri

+---------------------------------------+
|  Henri Schomäcker  -  VIRTUAL HOMES   |
| Datendesign für Internet und Intranet |
|     http://www.virtual-homes.de/      |
|  henri.schomaecker@virtual-homes.de   |
+---------------------------------------+


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

Date: Wed, 14 Jul 1999 03:32:44 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: from a pipe
Message-Id: <seehm7.pbi.ln@magna.metronet.com>

Don Grogan (dgrogan@erols.com) wrote:

: I don't mean to sound stupid again, but what is wrong
: about the
: if ($_=~$pat){

   It does not follow the syntax for a pattern match.


      if ($_ =~ /$pat/){   # or simply    if (/$pat/)
                ^    ^
                ^    ^ slashes indicate a pattern match


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


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

Date: Wed, 14 Jul 1999 13:46:04 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: from a pipe
Message-Id: <378d947a.25019985@news.skynet.be>

Tad McClellan wrote:

>: I don't mean to sound stupid again, but what is wrong
>: about the
>: if ($_=~$pat){
>
>   It does not follow the syntax for a pattern match.

And yet, it works. Weird, huh?

	Bart.


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

Date: Wed, 14 Jul 1999 09:32:25 -0400
From: Paul Leduc <pleduc@ca.ibm.com>
Subject: getting the virtual host info...
Message-Id: <378C9169.A9C976BE@ca.ibm.com>

I am writing a script to do some form processing, and when complete, I
am trying to display a 'thank you' html page.  The problem is I want the
code to work in both our test or staging environment as well as our
production environment.

I am using the following:
print $q->redirect($q->protocol() . '://' . $q->virtual_host() .
$done_url);

however, $q->virtual_host() gives the same value (www.xxx.com)
regardless of whether I am running it from http://www.xxx.com   or
http://www.xxx.com:81 (our staging server).

Am I doing this correctly, or is there a better way?

Thanks!



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

Date: 14 Jul 1999 08:28:07 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How do I include a hash is a regular expression?
Message-Id: <slrn7op42a.c8l.abigail@alexandra.delanet.com>

Rick Delaney (rick.delaney@home.com) wrote on MMCXLIII September MCMXCIII
in <URL:news:378C7555.2498265A@home.com>:
|| Abigail wrote:
|| > 
|| > Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCXLII September
|| > MCMXCIII in <URL:news:7mgdvf$dg0$1@lublin.zrz.tu-berlin.de>:
|| > == Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
|| > ==
|| > == >Someone emailed me that this works:
|| > == >
|| > == >    m/(\S+)\s(?p{$job{$1}})/
|| > ==
|| > == Would that someone have said which version supports the (?p...)
|| > == sequence?
|| > 
|| > The current version of Perl. 5.005, now in maintenance release 5.005_03.
|| 
|| Must be a little bit higher than that.
|| 
|| $ perl -e 'm/(\S+)\s(?p{$job{$1}})/'
|| /(\S+)\s(?p{})/: Sequence (?p...) not recognized
|| $ perl -v
|| 
|| This is perl, version 5.005_03 built for i586-linux


Indeed. I thought I had tested it out with 5.005_03. Perhaps I forgot 
to type the 'p', or for some reason I tested it with 5.005_57.



Abigail
-- 
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
             "\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
             "\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'


  -----------== 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, 14 Jul 1999 13:50:30 GMT
From: RoLm <rolm@my-deja.com>
Subject: How Do I Use Win32::Internet for FTP?
Message-Id: <7mi4j2$hcm$1@nnrp1.deja.com>

I'd like to use Win32::Internet for some simple FTP (My site dosen't
have Net::FTP.  I want to use that because it seems much easier!).  I'd
appreciate an example or some pointers to get me started.  Thanks for
your help!

Ciao,

RoLm



Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.


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

Date: 14 Jul 1999 14:46:00 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How to lock file
Message-Id: <378c9498@newsread3.dircon.co.uk>

Tan Chee Seong <tcheeseo@starnet.gov.sg> wrote:
> how can I exclusively lock a file in WinNT OS, can I use flock ? can I
> have an example.
> 

Yes you can use flock on Windows NT

There are examples in the perlfunc manpages ....

/j\
-- 
"It's times like this I wish I had a penis" - Duckman


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

Date: Tue, 13 Jul 1999 14:55:12 +0200
From: "Dr. Who" <qwerty@post.utfors.se>
Subject: knowing it's own name?
Message-Id: <378B3730.DFDF29EB@post.utfors.se>

Is there some way I can extract the name?
like this ..

    -- some stuff goes here
print $name_of_running_script;

Br.
DrW





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

Date: 14 Jul 1999 14:33:27 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: knowing it's own name?
Message-Id: <378c91a7@newsread3.dircon.co.uk>

Dr. Who <qwerty@post.utfors.se> wrote:
> Is there some way I can extract the name?
> like this ..
> 
>     -- some stuff goes here
> print $name_of_running_script;
> 

How about $0 ?

/J\
-- 
"In last week's show Lee Mack suggested that David Copperfield was a
smarmy fucking twat. Well done Lee" - Channel 4 Continuity Announcer


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

Date: 14 Jul 1999 08:42:55 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: knowing it's own name?
Message-Id: <slrn7op4u3.c9j.abigail@alexandra.delanet.com>

Dr. Who (qwerty@post.utfors.se) wrote on MMCXLII September MCMXCIII in
<URL:news:378B3730.DFDF29EB@post.utfors.se>:
`` Is there some way I can extract the name?
`` like this ..
`` 
``     -- some stuff goes here
`` print $name_of_running_script;


As you have guesses correctly, there's a special variable for that.
All special variables are documented in 'man perlvar'.

I suggest looking it up in the manual.



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: Wed, 14 Jul 1999 08:37:27 -0500
From: Marshall Culpepper <marshalc@NO-SPAMamericasm01.nt.com>
Subject: Re: knowing it's own name?
Message-Id: <378C9297.FBD3F139@NO-SPAMamericasm01.nt.com>

$0

~marshall
----------------------------------
just another guy trying to save the world
----------------------------------





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

Date: Wed, 14 Jul 1999 15:15:37 +0100
From: Martin Quensel <martin@adoma.se>
Subject: Re: Newbie Help: How to display image on web page using Perl
Message-Id: <378C9B89.BDFF4788@adoma.se>



Ray Ho wrote:
> 
> Can someone point me to the right direction on how to get a perl script ran
> as cgi bin to stream out the contents of an image file.
> 
> I know I first need to do something like
>     print "Content-type: image/jpeg\n\n";
> How do I next stream the contents of the image out?
> 
open the file in binmode, and print it in binmode.

take a look att the GD module

Cheers 
Martin Quensel


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

Date: 14 Jul 1999 08:44:38 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Newbie Help: How to display image on web page using Perl
Message-Id: <slrn7op51a.c9j.abigail@alexandra.delanet.com>

Ray Ho (ray.ho@csdi.co.uk__anti_spaM) wrote on MMCXLIII September
MCMXCIII in <URL:news:7mi1km$s6r$1@newsreader1.core.theplanet.net>:
|| Can someone point me to the right direction on how to get a perl script ran
|| as cgi bin to stream out the contents of an image file.
|| 
|| I know I first need to do something like
||     print "Content-type: image/jpeg\n\n";
|| How do I next stream the contents of the image out?


You use print().



Abigail
-- 
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
                       -> define ("foldoc", "perl")) [0] -> print'


  -----------== 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: 14 Jul 1999 13:51:41 GMT
From: perulinks@aol.com (Perulinks)
Subject: Re: Old database is erased when I add new information
Message-Id: <19990714095141.17551.00000024@ng-bd1.aol.com>

If you would read my message well, you would notice that I didn't mention his
name the first time--only after somebody replied asking me specifically for his
name I gave it.
I didn't want to make any changes for free. Read the second my second message
--again-- to see that I even offered money for it, but he didn't reply.
Finally, I said he was "unable or unwilling" to answer my emails.  That is a
<b>FACT</b>--not an opinion.  If I said he was a "jerk," (just an example, I am
not saying he is) that would definitelly be an opinion.  I just limited to
saying <b>facts</b> and again, mentioned his name <b>only</b>only after
somebody ask me for.
But I would say this again and again:  If an author doen't answer or at least
reply emails or calls about his scripts AFTER he received money for his/her
scripts,  he/she should not sell them in the first place.  
That is unethical at best. 

Carlos M. Chapa


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

Date: Wed, 14 Jul 1999 13:39:29 +0100
From: David Pratt <David_J_Pratt@sbphrd.com>
Subject: Re: pattern matching with variables
Message-Id: <378C8501.E92BD790@sbphrd.com>

Hi,
    Easiest way to do this is put the variable name in curly brackets.....

e.g.

$var = "Hello";
$string = "sldkfsjdHelloasdsad";
if ($s =~ /${var}/) { print "Found $var in $string\n"; }

will work.

Regards

Dave

Ida Wong wrote:

> Hi there,
>
> This is most likely an easy question. I would like to to have a variable
> in my pattern match string. ie
>
> if /$var/
>
> but $ is the end of char and if I use \$ instead, then it resolve to a
> simple "$" and not recognising $var is a variable.
>
> any advice?
>
> thanx,
> ida
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.

--
email: David_J_Pratt@sbphrd.com

The opinion expressed in this communication are my own,
and do not necessarily reflect those of my employer.




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

Date: 14 Jul 1999 08:48:03 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl script in browser?
Message-Id: <slrn7op57n.c9j.abigail@alexandra.delanet.com>

Tan Keok San (ccetks@leonis.nus.edu.sg) wrote on MMCXLIII September
MCMXCIII in <URL:news:7mhpjt$r49$1@nuscc.nus.edu.sg>:
;; Script compiles ok...but shows up in browser as a mixture of executed html
;; tags and text statements!  Any help as to what's wrong appreciated?

Executed HTML tags? Now, that's something new.

Anyway, if your browser is showing you something you don't expect,
your script is printing the wrong message!

It's kind of obvious what it's printing wrong. It's also obvious that
this isn't a Perl question. 

Followups set.


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, 14 Jul 1999 09:16:16 -0400
From: "Patrick Tully" <pmt@mitre.org>
Subject: Premature end of script headers?
Message-Id: <7mi2j7$6u6$1@top.mitre.org>

Hi,
    I'm getting this error mesg, and don't know how to fix this problem.
Can anyone help me with this?  This is the address to the program i am tring
to run:
    http://www.liquidwire.net/dev/passwd/sample.cgi
    http://www.liquidwire.net/dev/passwd/pass.zip <-entire pkg

Thanks,

-P. Tully-
pmt@mitre.org






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

Date: 14 Jul 1999 08:49:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Premature end of script headers?
Message-Id: <slrn7op5b9.c9j.abigail@alexandra.delanet.com>

Patrick Tully (pmt@mitre.org) wrote on MMCXLIII September MCMXCIII in
<URL:news:7mi2j7$6u6$1@top.mitre.org>:
^^ Hi,
^^     I'm getting this error mesg, and don't know how to fix this problem.

That's not a specific Perl problem. And although it might be cause by
your program, the lack of code in your posting suggests that you don't
think that's the case. There are other groups to discuss this.



Abigail
-- 
perl -wlne '}for($.){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, 14 Jul 1999 13:55:26 GMT
From: hschomae@rz-online.de (Henri Schomäcker)
Subject: Re: Socket Programming
Message-Id: <378c9596.13772318@news.rhein-zeitung.de>

On 5 Jul 1999 18:29:06 -0500, abigail@delanet.com (Abigail) wrote:

>Alex (alex@exbook.com) wrote on MMCXXXIV September MCMXCIII in
><URL:news:01bec71b$67f338b0$258eb987@il0015jtampc>:
>@@ Hi Everyone,
>@@ 
>@@ I have a program that running well in UNIX, I use 
>@@ the socket in my program, now, I want to port it to my
>@@ Windows NT IIS website (A virtual hosting website.),
>@@ The website only privide the perl compiler, but without 
>@@ the perl library.
>
>Without the "perl library", Perl doesn't run. Fix your installation
>of Perl.
>
>@@                   So which library file I need to place in
>@@ my cgi-bin directory in order to make the socket function
>@@ working OK?
>
>None. Library files do not belong in the cgi-bin directory.
>
>@@ What module do I need to include in the cgi-bin directory?
>
>None. Modules do not belong in the cgi-bin directory.
>
>@@ How to use the 'push' and 'use' command in this case?
>
>In the same way as usual.
>
>
>Abigail
>-- 
>srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
>//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\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 ==-----

I think what he meant was that he has no access to the lib-dir because
it`s not his Server, but his Website.

The good thing about perl is, that he ca do it the way HE likes it and
not YOU.

To Alex:

Sorry, I also do not know which module to use, but if you found the
right one, copy it to your cgi-bin and use 

BEGIN {
    push(@INC,"cgi-bin");
}
use The_module_you_found;


in your script, which imports the path to your cgi-bin dir the @INC.

Yours Henri

+---------------------------------------+
|  Henri Schomäcker  -  VIRTUAL HOMES   |
| Datendesign für Internet und Intranet |
|     http://www.virtual-homes.de/      |
|  henri.schomaecker@virtual-homes.de   |
+---------------------------------------+


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

Date: 14 Jul 1999 13:54:20 GMT
From: perulinks@aol.com (Perulinks)
Subject: Re: something that might help
Message-Id: <19990714095420.17551.00000025@ng-bd1.aol.com>

Thanks for replying I will try that out.

Carlos


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

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". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". 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". It appears twice
weekly in the group, but is not distributed in the digest.

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


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