[14034] in Perl-Users-Digest

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

Perl-Users Digest, Issue: 1444 Volume: 9

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Nov 20 12:13:39 1999

Date: Sat, 20 Nov 1999 09:12:02 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <943117902-v9-i1444@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Sat, 20 Nov 1999     Volume: 9 Number: 1444

Today's topics:
    Re: Help - Servlet <gellyfish@gellyfish.com>
    Re: help need please on perl (Abigail)
    Re: Help with understanding syntax (Abigail)
    Re: Help: 501 Protocol error (Abigail)
        How do I set up a cgi-bin on Windows NT Server 4 <iain@idlweb.co.uk>
    Re: How do I set up a cgi-bin on Windows NT Server 4 (Kragen Sitaker)
    Re: How do I set up a cgi-bin on Windows NT Server 4 <gellyfish@gellyfish.com>
    Re: legal names and about sorting <gellyfish@gellyfish.com>
    Re: Macintosh specifc perl syntax? (Henry Penninkilampi)
    Re: newbie question <klayto@gmx.net>
    Re: newbie question (Kragen Sitaker)
    Re: overload [] {} and () (Abigail)
    Re: overload [] {} and () (M.J.T. Guy)
    Re: Perl programming sytle <gellyfish@gellyfish.com>
    Re: PERL script with JScript embedded (Abigail)
    Re: Perl/CGI Programmers Wanted <gellyfish@gellyfish.com>
    Re: Perl/CGI Programmers Wanted <liuruogo@pilot.msu.edu>
    Re: ping module on IIS4 <gellyfish@gellyfish.com>
    Re: Question about Class::Struct <gellyfish@gellyfish.com>
        Recursive Search And Replace on NT. <acinader@panix.com>
        runing a executable from CGI/Perl script nextar@my-deja.com
    Re: runing a executable from CGI/Perl script (Kragen Sitaker)
        Search Engine <jaimedp@pacbell.net>
    Re: Search Engine (Kragen Sitaker)
    Re: Small scripting question (Cissy Hartley)
    Re: Split a input file with perl <gellyfish@gellyfish.com>
        SQL questions and Win32::ODBC <netanator@home.com>
        Sub-routine help needed please <richard@avocation.demon.co.uk>
    Re: Sub-routine help needed please (Kragen Sitaker)
    Re: Sub-routine help needed please <gellyfish@gellyfish.com>
    Re: What is a good book on Perl <gellyfish@gellyfish.com>
    Re: What is a good book on Perl <uri@sysarch.com>
    Re: What is a good book on Perl (Kragen Sitaker)
    Re: Writing Modules <r28629@email.sps.mot.com>
    Re: Writing Modules <gellyfish@gellyfish.com>
        Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)

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

Date: 20 Nov 1999 13:24:10 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Help - Servlet
Message-Id: <8167dq$7de$1@gellyfish.btinternet.com>

On Sat, 20 Nov 1999 06:22:18 GMT Moin wrote:
> 
> 
> I am able to configure Java servlets without any errors in appache
> server. I want to know how to create servlet zone and from where the
> java servlets is loaded.
> Moin
> 

I think you have the wrong group.

<followup set>

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: 20 Nov 1999 08:27:34 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: help need please on perl
Message-Id: <slrn83dc50.m2v.abigail@alexandra.delanet.com>

Dean Taylor (mdtaylor@mdtaylor.com) wrote on MMCCLXXI September MCMXCIII
in <URL:news:943024814.22051.0.nnrp-03.d4e45bfc@news.demon.co.uk>:
,, I am new to perl and cgi
,, all I would like to know is how can I configure my system locally to run and
,, test my perl scripts-without having to connect every time I want to test
,, something?
,, 
,, Do i just need to install a Perl Interpreter in any file on my desk top and
,, use this as an internal cgi bin for testing OFFLINE.(LIKE AN INTERNAL SERVER
,, ETC.)


Did you read the CGI man page?



Abigail
-- 
$" = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%_ = (Just => another => Perl => Hacker); &{%_};


  -----------== 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: 20 Nov 1999 08:42:34 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Help with understanding syntax
Message-Id: <slrn83dd13.m2v.abigail@alexandra.delanet.com>

Brett W. McCoy (bmccoy@news.lan2wan.com) wrote on MMCCLXX September
MCMXCIII in <URL:news:slrn8372ji.5rb.bmccoy@dragosani.lan2wan.com>:
$$ Also sprach marius_13@my-deja.com <marius_13@my-deja.com>:
$$ 
$$ >how would the following c statement be written in perl:
$$ >
$$ >switch(foo)
$$ >{
$$ >  case 1:
$$ >          printf ("case 1\n");
$$ >          break;
$$ >  case 2:
$$ >          printf ("case 2\n");
$$ >          break;
$$ >  default:
$$ >          print ("no match\n");
$$ >          break;
$$ >
$$ >}
$$ 
$$ SWITCH: for($foo) {
$$ 	/1/ && do {
$$ 		print "case1\n"; 
$$ 		last SWITCH;
$$ 		};
$$ 	/2/ && do {
$$ 		print "case2\n";
$$ 		last SWITCH;
$$ 		};
$$ 
$$ 	print "Can't find the case!\n";
$$ }


This one is probably closer to the C syntax, except you have to
calculate wether it jumps to the default or not:


    goto 1 <= $foo && $foo <= 2 ? "case_$foo" : "default"; {
        case_1:  printf "case 1\n";
                 last;
        case_2:  printf "case 2\n";
                 last;
        default: printf "no match\n";
                 last;
    }


The advantage over the "for" and the "if/else" solutions are that
if you have 47 cases, it doesn't have to try them all before defaulting
to default. (Assuming you can easily calculate the correct label).


Abigail
-- 
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'


  -----------== 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: 20 Nov 1999 08:25:16 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Help: 501 Protocol error
Message-Id: <slrn83dc0l.m2v.abigail@alexandra.delanet.com>

Yong (p146046183@ntu.edu.sg) wrote on MMCCLXXI September MCMXCIII in
<URL:news:3834FFA9.AC4A5D45@ntu.edu.sg>:
:: 
:: 
:: An Error Occurred
:: 501 Protocol scheme 'http' is not supported 
:: 
:: What's the error message mean?

Well, it means that protocol scheme "http" isn't supported. Whatever
you are connected to, it's not doing http.

::                                 How can I solve the
:: problem?

Uhm, use something that is supported? Have you tried smoke signals?



Abigail
-- 
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'


  -----------== 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: Sat, 20 Nov 1999 14:33:09 +0000
From: "Iain D Langridge" <iain@idlweb.co.uk>
Subject: How do I set up a cgi-bin on Windows NT Server 4
Message-Id: <816bci$gdk$1@ayers.ftech.net>

I am a web developer and I host several Websites with my ISP. My hosting 
packages include a cgi-bin facility of which I have direct access to and I
am told that Perl version 5 runs in the background. Whilst my knowledge of
perl scripts etc are very limited, infact, to be honest I know nothing about
them, I am, however, aware of what they can achieve. I know that I can use
an e-commerce package e.g. http://www.actinic.co.uk. Half of the files are
placed into the cgi-bin and the other half are ordinary html files which are
place into the web folder.

With this simple understanding of the cgi-bin I now want to go ahead with
installing my own server machine at my ISP. It be running Windows NT Server
4.0 and I will require the cgi-bin facility providing me with the same
service that I have with my ISP.

It may just be a simple configuration from within Windows NT or may be more
complexed than that. Maybe there is a reference manual that describes the
set up procedure?

Can anyone help me and point me in the right direction. Please contact at
iain@idlweb.co.uk


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

Date: Sat, 20 Nov 1999 16:35:32 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: How do I set up a cgi-bin on Windows NT Server 4
Message-Id: <o5AZ3.30580$YI2.1480455@typ11.nn.bcandid.com>

In article <816bci$gdk$1@ayers.ftech.net>,
Iain D Langridge <iain@idlweb.co.uk> wrote:
>With this simple understanding of the cgi-bin I now want to go ahead with
>installing my own server machine at my ISP. It be running Windows NT Server
>4.0 and I will require the cgi-bin facility providing me with the same
>service that I have with my ISP.
>
>It may just be a simple configuration from within Windows NT or may be more
>complexed than that. Maybe there is a reference manual that describes the
>set up procedure?

Are you asking how to set up a web server on Windows NT?  If so, do you
really think comp.lang.perl.misc is the place to ask?

>Can anyone help me and point me in the right direction. Please contact at
>iain@idlweb.co.uk

Please respond on the newsgroup.  I have done you the courtesy of Ccing
you on the post.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08.  Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>


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

Date: 20 Nov 1999 16:17:25 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How do I set up a cgi-bin on Windows NT Server 4
Message-Id: <816hil$7o4$1@gellyfish.btinternet.com>

On Sat, 20 Nov 1999 14:33:09 +0000 Iain D Langridge wrote:
> 
<snip>

> With this simple understanding of the cgi-bin I now want to go ahead with
> installing my own server machine at my ISP. It be running Windows NT Server
> 4.0 and I will require the cgi-bin facility providing me with the same
> service that I have with my ISP.
> 
> It may just be a simple configuration from within Windows NT or may be more
> complexed than that. Maybe there is a reference manual that describes the
> set up procedure?
> 

The activestate Perl distribution comes with a set of documentation that
describes setting Perl to work with various HTTP servers.

If you want to know about configuring NT servers then you have asked in
the wrong group - I have set the followups appropriately.


/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: 20 Nov 1999 16:29:51 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: legal names and about sorting
Message-Id: <816i9v$7o7$1@gellyfish.btinternet.com>

On 20 Nov 1999 02:59:54 -0500 Uri Guttman wrote:
>>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
> 
>   >> I still claim "sort" shouldn't be in the name. GRT, with the T standing
>   >> for transform is my suggestion - it fits with ST.
> 
>   LR> That's GReaT!
> 
> why are my synapses clogged by the image of tony the tiger introducing
> us to some audience.
> 

Too many Frosties for breakfast probably :)

> though i do like the symmetry with the ST. best name so far IMO.
> 

And it makes me think of the local colloquialism gert ( i.e. pretty damn 
big).

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: Sun, 21 Nov 1999 01:27:17 +1030
From: spamfree@metropolis.net.au (Henry Penninkilampi)
Subject: Re: Macintosh specifc perl syntax?
Message-Id: <spamfree-2111990127190001@192.168.1.2>

In article <jakem-2011991516370001@dialup-sa-1-173.uni.camtech.net.au>,
jakem@camtech.net.au (jakal) wrote:

> I am porting a large Perl script from a Windows NT server to a Macintosh
> server and having no end of trouble. It seems that most, if not all of the
> difficulties arise from trying to open files.
 ...
>    $logfile = "E:/students/mac/bbs/bbslog.log";
>    $URL = "http://www.server.edu.au/students/mac/bbs/bbs.pl";
>    $discussion_file = "E:/students/mac/bbs/discuss.txt";
>    $path_to_users = "E:/students/mac/bbs/users";

The path separator on the Mac is ':' and not '/' - which would explain
many of your problems.

Also, Macs don't use 'E:'-type nonsense to designate drives or partitions
- they just use the *name* of the drive or partition.

A *valid* full path on a Mac could look something like:

"My Mac!:Here be web files:student's files:index.html"

 ...or, more generally:

partition:folder:folder:document


> However, it seems to die on the Macintosh server without opening the file.
> The difficult thing is that the Macintosh server, unlike the NT one, does
> not output any error messages, so it is so hard to know where or why it is
> dying.

Oh, I think you just haven't come across the part of the manual that tells
you about the error log file yet.  Don't worry - you will.


> I have written in several print statements which print to a test
> file, and have been able to ascertain that it is dying at the point at
> which I'm trying to open the files.

Well done.


> Is there something unique with MacPerl that requires a particular syntax
> when opening files?? What else could be causing all these problems??

As has been mentioned above, the Macintosh file system uses colons instead
of slashes when specifying full paths.  That means that when you are
writing cgi scripts to access files on the file system, use colons. 
Obviously that means the colon is a reserved character, and should not be
used as a file/folder/partition name of any kind.  The MacOS won't let you
do anything as suicidal as renaming your hard disk to 'E:'.

As far as MacPerl goes, life can get a whole lot simpler if you remember
to have:

#!perl -w

 ...as the first line of every script.  This turns on warnings which get
generated by the compiler and help your write better code.

You might also want to cruise by <http://www.macperl.org/> and check out
the resources available.  Signing up for one (or more) of the many MacPerl
mailing lists would probably be a good idea as well.

Henry.


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

Date: Sat, 20 Nov 1999 12:27:58 +0100
From: Klay To <klayto@gmx.net>
Subject: Re: newbie question
Message-Id: <01HW.B45C444E000F0FBB056E3B7C@news.bcandid.deja.com>

On Sat, 20 Nov 1999 11:34:34 +0100, Waranun Bunjongsat wrote:

> 	I know now that why my DB_File is not working. This is because 
> my server do not have the program installed.

Too bad. If you do not have telnet access to the server, you cannot use 
DB_File, since there are parts that must be compiled.
Maybe you should ask your provider to install DB_File, and also ask why 
you have a crippled version of perl, since DB_File is one of the 
standard modules. So you have no "real" perl version.

Klayto



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

Date: Sat, 20 Nov 1999 16:24:08 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: newbie question
Message-Id: <IWzZ3.30564$YI2.1479105@typ11.nn.bcandid.com>

In article <01HW.B45C444E000F0FBB056E3B7C@news.bcandid.deja.com>,
Klay To  <klayto@gmx.net> wrote:
>On Sat, 20 Nov 1999 11:34:34 +0100, Waranun Bunjongsat wrote:
>> 	I know now that why my DB_File is not working. This is because 
>> my server do not have the program installed.
>
>Too bad. If you do not have telnet access to the server, you cannot use 
>DB_File, since there are parts that must be compiled.

They can perfectly well compile it from a CGI script, assuming (a) they have
access to a compiler and (b) their CGI script runs as them, not as nobody.

>Maybe you should ask your provider to install DB_File, and also ask why 
>you have a crippled version of perl, since DB_File is one of the 
>standard modules.

DB_File is not built by default if Berkeley DB is not installed, for
obvious reasons.

> So you have no "real" perl version.

In my book, asking how to install modules is a real perl question.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08.  Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>


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

Date: 20 Nov 1999 10:00:58 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: overload [] {} and ()
Message-Id: <slrn83dhk3.m2v.abigail@alexandra.delanet.com>

Ilya Zakharevich (ilya@math.ohio-state.edu) wrote on MMCCLXXI September
MCMXCIII in <URL:news:81467t$qat$1@charm.magnus.acs.ohio-state.edu>:
:: [A complimentary Cc of this posting was sent to Jonathan Stowe 
:: <gellyfish@gellyfish.com>],
:: who wrote in article <38351bae_1@newsread3.dircon.co.uk>:
:: > John Lin <johnlin@chttl.com.tw> wrote:
:: > > I am not comparing everything in Perl with C++.
:: > > Just provide some opinions that might be useful.
:: > > 
:: > > In Perl, "use overload" doesn't include '[]', '{}' and '()'.
:: > > IMHO, [], {} and () are overloadable and might be quite useful.
:: 
:: > "Patches are always welcome"
:: 
:: Patches for what?  Overload supports all these operations - and more.


Eh? Either you are using a different version than the last stable
release, it's an undocumented feature, or you are refering to ties.


$ perl -Moverload -wle '$, = " "; print values %overload::ops'
+ - * / % ** << >> x . nomethod fallback = < <= >  >= == != & | ^ += -= *= /= %= **= <<= >>= x= .= bool "" 0+ lt le gt ge eq ne atan2 cos sin exp abs log sqrt <=> cmp neg ! ~ ++ --
$



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())))))))))))))))))))))))


  -----------== 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: 20 Nov 1999 16:28:23 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: overload [] {} and ()
Message-Id: <816i77$gth$1@pegasus.csx.cam.ac.uk>

Abigail <abigail@delanet.com> wrote:
>
>Eh? Either you are using a different version than the last stable
>release, it's an undocumented feature, or you are refering to ties.
>
>$ perl -Moverload -wle '$, = " "; print values %overload::ops'
>+ - * / % ** << >> x . nomethod fallback = < <= >  >= == != & | ^ += -= *= /= %= **= <<= >>= x= .= bool "" 0+ lt le gt ge eq ne atan2 cos sin exp abs log sqrt <=> cmp neg ! ~ ++ --
>$

It's well known that Ilya lives in a parallel universe where
development versions are stable releases.

$ perl5.005_62a -Moverload -wle '$, = " "; print values %overload::ops'
lt le gt ge eq ne + - * / % ** << >> x . neg ! ~ atan2 cos sin exp abs log sqrt <=> cmp & | ^ <> ++ -- nomethod fallback = < <= >  >= == != ${} @{} %{} &{} *{} bool "" 0+ += -= *= /= %= **= <<= >>= x= .=
$                                                           ^^^^^^^^^^^^^^^^^^^
                                                            ^^^^^^^^^^^^^^^^^^^
I wonder what these are?  >---------------------------------^^^^^^^^^^^^^^^^^^^


Mike Guy


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

Date: 20 Nov 1999 11:51:48 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl programming sytle
Message-Id: <81620k$78n$1@gellyfish.btinternet.com>

On Fri, 19 Nov 1999 20:24:28 -0500 Tad McClellan wrote:
> On 19 Nov 1999 23:22:33 -0000, Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> 
>> now look at me ;-}
> 
> 
>    I don't want to and you can't make me.
> 

I bloody well can if I want ...

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: 20 Nov 1999 10:04:23 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: PERL script with JScript embedded
Message-Id: <slrn83dhqg.m2v.abigail@alexandra.delanet.com>

Scott McMahan (scott@aravis.softbase.com) wrote on MMCCLXXI September
MCMXCIII in <URL:news:qHgZ3.292$AQ2.22013@newshog.newsread.com>:
 .. 
 .. I have never heard of this, and don't know what you mean by "spit up on
 .. it", but I have never heard of a web server not printing your CGI output
 .. to the browser connection!  Your *browser* may choke on what comes back,
 .. especially if the MIME type is screwball, but the *server* just sends
 .. your bytes back as you output them, unless there is a problem in running
 .. the CGI program itself.

If the server just does that, it would be violating the CGI specification.
Unless specifically turned off, the server *parses* the output of the
program. If it doesn't like it, because for instance it doesn't follow
the CGI specification, a browser should return anything to the client.

Not knowing which headers to send, how could it?


Followups set.


Abigail
-- 
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\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: 20 Nov 1999 11:33:49 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl/CGI Programmers Wanted
Message-Id: <8160ut$78f$1@gellyfish.btinternet.com>

On Fri, 19 Nov 1999 20:01:17 -0500 James Holmes wrote:
> Position:      Perl/CGI Programmer
> Company:       Liquidation.com
> Contact Email: jamesholmes@mail.com
> URL:           http://www.liquidation.com
> Description:   Exciting new startup still in the beer and pizza
>                days.  Looking for 3 - 5 motivated developers to
>                assist in on-going development of customized
>                auction site.
> Requirements:  Required:  Perl, SQL, CGI, UNIX, HTML
>                Preferred: Oracle, PL/SQL, mod_perl, Apache,
>                           MySql, C/C++, Java
> 

Thats a shame I'm more of a champagne and croissant type of programmer
rather than beer an pizza.  Perhaps if you had posted to a group that
had the word jobs in the title then you might have had more success.

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: Sat, 20 Nov 1999 08:37:52 -0500
From: Ruogong Liu <liuruogo@pilot.msu.edu>
Subject: Re: Perl/CGI Programmers Wanted
Message-Id: <3836A430.838122CA@pilot.msu.edu>

> Requirements:  Required:  Perl, SQL, CGI, UNIX, HTML
>                Preferred: Oracle, PL/SQL, mod_perl, Apache,
>                           MySql, C/C++, Java

I have more than there, so how much you will pay?


Roger Liu



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

Date: 20 Nov 1999 13:28:03 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: ping module on IIS4
Message-Id: <8167l3$7dh$1@gellyfish.btinternet.com>

On Sat, 20 Nov 1999 09:57:31 GMT Peter Lavender wrote:
> Hi everyone,
> 
> I'm only learning perl, and do it at home on my linux box.  I came across
> the ping.pm package and used it to good effect producing a html page
> showing me hosts that were reachable and unreachable.
> 

There is no ping.pm module I know about - perhaps you mean Net::Ping ?

> Someone at work requested such a thing, so I got them to get and install
> activestate perl on the IIS box.
> 
> What I found is the ping module doesn't work under IIS, but works fine when
> run from the command prompt.
> 

This is to do with the permissions of the user that IIS runs programs under
to access the network.  This is a server configuration issue - I have set
the followups to a possibly more suitable group.

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: 20 Nov 1999 13:21:32 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Question about Class::Struct
Message-Id: <81678s$7db$1@gellyfish.btinternet.com>

On 19 Nov 1999 15:38:22 -0600 Scott Netterville wrote:
> 
> 
> I'm having a problem with the following example from the 
> Perl CookBook: 
>   
> 
> #begin code snippet 
> 
> use Class::Struct;        #Use structure building module 
> use diagnostics; 
> struct Person => {        #create definition for struct Person 
>     name => '$',           #name field is a scalar 
>     age => '$',            #age field is a scalar 
>     peers => '@',          #peers field is an array 
> }; 
>   
> 
> my $p = Person->new();    #allocate an empty Person struct 
> 
> #Set the various fields 
> 
> $p->name("Jason Smythe"); 
> $p->age("13"); 
> $p->peers( [ "Preston", "Richard", "Sam" ] );  # <- this is not working 
> #@{$p->peers} = ("Preston", "Richard", "Sam"); # <- this works as expected 
> 					       #    when uncommented.	
> #Now retrieve the info 
> 
> printf "At age %d, %s's first friend is %s.\n", 
>     $p->age, $p->name, $p->peers(0); 
>   
> 
> #End of code snippet 
> 
> When I run the above as is, I get a warning about use of 
> uninitialized value (-w flag, of course) for the line commented 
> as not working. If I use the line commented as working it performs 
> as expected. According to the Cookbook, they should both work 
> (and I don't see why not since, the [] should return an array 
> reference, right?) 
> 
> Am I overlooking a typo or making an obvious (to anyone else) mistake?
> 
> Any thoughts? 
> 

A caveat - I have never looked at Class:Struct until this very minute
but a quick look at the document would lead me to believe that the
accessor method for array members does not work like that :

            With one or two arguments, the first argument is an
            index specifying one element of the array; the second
            argument, if present, is assigned to the array
            element.  If the element type is '@', the accessor
            returns the array element value.  If the element type
            is '*@', a reference to the array element is
            returned.

That is you would have :

  $p->peers(0,"Preston");
  $p->peers(1,"Richard");
  $p->peers(2,"Sam");

But I think your second method of doing it is perfectly alright - if only
a little scary looking for the uninitiated.

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: Sat, 20 Nov 1999 11:49:58 -0500
From: "Arthur Cinader" <acinader@panix.com>
Subject: Recursive Search And Replace on NT.
Message-Id: <816jfs$rbm$1@news.panix.com>

Here is what I have so far:

C:\TEMP\mungetest>perl -e "s/test/hello/g;" -pi.save $(find . -type f)
Can't open $(find: No such file or directory
Can't open .: Permission denied
Can't open -type: No such file or directory
Can't open f): No such file or directory

I don't know how to get a recursive file list from the current directory
down.  Ideally I could specify extensions to be included (i.e. .html .txt,
but not .gif).

Dont really get the NT thing yet.

Any help greatly appreciated,

Arthur




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

Date: Sat, 20 Nov 1999 16:28:52 GMT
From: nextar@my-deja.com
Subject: runing a executable from CGI/Perl script
Message-Id: <816i81$lde$1@nnrp1.deja.com>

Hi all
I'm for short time in touch with Perl programming.
I have a cgi/perl script which take some values from a HTML form and put
them in a text file.
All is going fine, but I need after that to run a executable file with
this text file as parameter (./exec_file text_file).
I have put in the Perl script the line:
open (FH, "cgi_script.cgi text_file")
When I run the script from console (on my http server) is OK, but when
I try from browser something is wrong .
All file permisions are OK and I run this on Linux.
If is anybody here which can help me pls. send me few words.

Regards
Bogdan




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


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

Date: Sat, 20 Nov 1999 16:46:02 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: runing a executable from CGI/Perl script
Message-Id: <efAZ3.30670$YI2.1480541@typ11.nn.bcandid.com>

In article <816i81$lde$1@nnrp1.deja.com>,  <nextar@my-deja.com> wrote:
>I'm for short time in touch with Perl programming.
>I have a cgi/perl script which take some values from a HTML form and put
>them in a text file.
>All is going fine, but I need after that to run a executable file with
>this text file as parameter (./exec_file text_file).

perldoc -f system

>I have put in the Perl script the line:
>open (FH, "cgi_script.cgi text_file")
>When I run the script from console (on my http server) is OK, but when
>I try from browser something is wrong .

That won't work even from your console.


-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08.  Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>


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

Date: Sat, 20 Nov 1999 07:51:09 -0800
From: Jaime Perez <jaimedp@pacbell.net>
Subject: Search Engine
Message-Id: <3836C36D.58A32BCD@pacbell.net>

Does anybody out there know how to create a search engine that would
search
specific sites for a specific keyword?

Take a look at a program I saw on a magazagine called "Web Development".

I did all the code but the program did not work.

The code is at:  http://jaime.laosb.org/cgi-bin/sitesearch.cgi

The code is supposed to search stonehenge.com for the word the user
inputs.
The problem is that when the user inputs the stuff and submits the
forms, it does not work.

The system I am working with is a Linux  with Perl 5.00503-2

I have also installed modules:

WWW-Search-2.05
HTML-Parser-2.25
URI-1.04
libwww-perl-5.46
libnet-1.0607
MIME-Base64-2.11
Digest-MD5-2.09

The program code is at:  http://jaime.laosb.org/sitesearch

Please advise me on what I am doing wrong.

-Jaime





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

Date: Sat, 20 Nov 1999 16:39:49 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Search Engine
Message-Id: <p9AZ3.30586$YI2.1481317@typ11.nn.bcandid.com>

In article <3836C36D.58A32BCD@pacbell.net>,
Jaime Perez  <jaimedp@pacbell.net> wrote:
>Does anybody out there know how to create a search engine that would
>search specific sites for a specific keyword?

Step 1. download the contents of those sites.  Be sure to obey robots.txt.
Step 2. index it by keyword so you can find results in a reasonable amount 
        of time.
Step 3. when you get a query, look up its keywords in the keyword index.

>The code is supposed to search stonehenge.com for the word the user
>inputs.
>The problem is that when the user inputs the stuff and submits the
>forms, it does not work.

You mean you get a 507 Doesn't Work error from the web server, and a
Doesn't Work error in your web server error log?

>I have also installed modules:
>
>WWW-Search-2.05
>HTML-Parser-2.25
>URI-1.04
>libwww-perl-5.46
>libnet-1.0607
>MIME-Base64-2.11
>Digest-MD5-2.09

Good.  Good start.

>The program code is at:  http://jaime.laosb.org/sitesearch

Why don't you post the part of the code that Doesn't Work?


-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08.  Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>


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

Date: Sat, 20 Nov 1999 16:51:16 GMT
From: cissy@writerspace.removethis.com (Cissy Hartley)
Subject: Re: Small scripting question
Message-Id: <3836d137.59355689@news>

On Fri, 19 Nov 1999 21:03:56 -0500, tadmc@metronet.com (Tad McClellan)
wrote:

>>I need a piece of script that would take the $VALUE{'PICTURES'}
>>(0380803291.gif), strip off the '.gif' and create another
>>$VALUE{'ISBN'} (0380803291)
>
>
>      ($VALUE{ISBN} = $VALUE{PICTURES}) =~ s/\.gif$//i;

With a slight modification that worked perfectly! Thanks very much for
your help.

--Cissy


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

Date: 20 Nov 1999 12:40:11 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Split a input file with perl
Message-Id: <8164rb$7ct$1@gellyfish.btinternet.com>

On Thu, 18 Nov 1999 02:21:35 -0500 Huy Vu wrote:
> Hi all,
> 
> I have a file with a format as below:
> 
> ^R
>                            AAAAAA   BBBBBbb  CCCCCCCc
> 
> PARAGRAPH   #1
> 
> ^O1234     Testing        54.0

OK assuming that we are talking about the single character ctrl-O here
rather than a literal ^O then you might take a lokk at this :


#!/usr/bin/perl -w

use strict;

use IO::File;


my %files;

open(INFILE,'thing.txt') || die "Cant open thing.txt for input - $!\n";

while(<INFILE>)
{
   if ( /^PARAGRAPH\s+#(\d+)/ )
     {
       my $fname = "paragraph$1";
       unless (exists $files{$fname} )
         {
           my $fhandle = IO::File->new;
           $fhandle->open(">$fname") || die "Cant open $fname - $!\n";
           $files{$fname} = $fhandle;
         }
       select $files{$fname};
     }
    print $1 if /^\cO(.+)/s;
}

close $_ foreach (values %files);


I have used the module IO::File in order to ease the storage of the
filehandles for each file in a hash although there are other methods.

Please see the manpage for IO::File for more as well as the perlre and
perlop and perlfunc manpages.

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: Sat, 20 Nov 1999 12:04:20 GMT
From: "Jim Schuman" <netanator@home.com>
Subject: SQL questions and Win32::ODBC
Message-Id: <87wZ3.214$HF2.2930@news.rdc1.ne.home.com>

Hello,

I am a programmer new to Perl. I downloaded the latest edition of ActivePerl
to my comp and attempted to use it. To the best of my knowledge the
installation went fine. The simple programs I have written appear to work as
expected. However, I attepted to run a program that I found from a link from
the ActivePerl site. It was an example of how to implement the win32::odbc
module which comes with ActivePerl. The normal output portion of the program
works fine, but it is not querying the database. It returns an error that
says it cannot find a file called sql.al.

Is this an installation error? Should there be a file by this name? Does
anyone know where I can get a fix to this problem?

Thanks,
Jim




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

Date: Sat, 20 Nov 1999 13:15:48 -0000
From: "Richard" <richard@avocation.demon.co.uk>
Subject: Sub-routine help needed please
Message-Id: <943103825.21426.0.nnrp-03.d4e489f6@news.demon.co.uk>

I'm trying to run the following script - as soon as I include the line
&Parse_Form; it no longer uploads the file to the server and doesn't fail or
give any kind of error!! But if I remove the &Parse_Form; line it works
again!!! (copy of the sub routine included below).

Any Ideas??


=====start of script ===
#!/usr/local/bin/perl5 -w
use lib $0 =~ m#(.+)[/\\]#;
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;

require "subparseform.lib";
&Parse_Form;

#$frf = $formdata{file1};
#$refs = $formdata{refs};

print header();
print start_html("File Upload Example");
print"<LINK REL=stylesheet TYPE = \"text/css\"
HREF=\"../../mainsite.css\">";
print strong("Version "),$CGI::VERSION,p;

print h1("File Upload Example"),p;

# Start a multipart form.
print start_multipart_form(),
    "Enter the file to process:",
    filefield('filename','',45),
    br,
    p,
    reset,submit('submit','Process File'),
    endform;


# Process the form if there is a file name entered
if ($file = param('filename')) {
   $tmpfile=tmpFileName($file);
   $mimetype = uploadInfo($file)->{'Content-Type'} || '';
}

print "<br><br>File after $file<br><br>";

# -------Richards additions
$p = gmtime();
$p =~ s/ file://g;
$p =~ s/://g;
$filename = ".gif";
$UPLOAD_PATH = "";
$UPLOAD_FILE = $p.$filename;

print "FILE NAME: $UPLOAD_PATH$filename <br>";
# Copy a binary file to somewhere safe
if ($file ne "") {open (OUTFILE,">$UPLOAD_FILE") or die "Could not open
output ($UPLOAD_FILE)
file"};
# binmode(OUTFILE);

#---->The line below does the transfer but it doesn't seem to kick in.
while ($bytesread=read($file,$buffer,1024)){
   print OUTFILE $buffer;
}
close $filename;
close $file;
$file="";

# ------End of Richards additions

====end of script====



====start of subroutine=====
sub Parse_Form {
 if ($ENV{'REQUEST_METHOD'} eq 'GET') {
  @pairs = split(/&/, $ENV{'QUERY_STRING'});
 } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
  read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  @pairs = split(/&/, $buffer);

  if ($ENV{'QUERY_STRING'}) {
   @getpairs =split(/&/, $ENV{'QUERY_STRING'});
   push(@pairs,@getpairs);
   }
 } else {
  print "Content-type: text/html\n\n";
  print "<P>Use Post or Get";
 }

 foreach $pair (@pairs) {
  ($key, $value) = split (/=/, $pair);
  $key =~ tr/+/ /;
  $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

  $value =~s/<!--(.|\n)*-->//g;

  if ($formdata{$key}) {
   $formdata{$key} .= ", $value";
  } else {
   $formdata{$key} = $value;
  }
 }
}
1;
====end of sub routine=====

Many thanks,

Richard





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

Date: Sat, 20 Nov 1999 16:31:45 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Sub-routine help needed please
Message-Id: <R1AZ3.30577$YI2.1479274@typ11.nn.bcandid.com>

In article <943103825.21426.0.nnrp-03.d4e489f6@news.demon.co.uk>,
Richard <richard@avocation.demon.co.uk> wrote:
>I'm trying to run the following script - as soon as I include the line
>&Parse_Form; it no longer uploads the file to the server and doesn't fail or
>give any kind of error!! But if I remove the &Parse_Form; line it works
>again!!! (copy of the sub routine included below).
>
>Any Ideas??

Don't include the line &Parse_Form.  Also don't require
subparseform.lib.  use CGI does all that for you, and as a special
added bonus, does it (a) without your bugs, and (b) in a way that will
work with multipart forms.

You might want to desk-check the code that reads "Richards Additions",
too.  Print it out, and then on each line, pencil in what you think any
changed variable values will be.  For things specified by the user,
just pick something.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08.  Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>


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

Date: 20 Nov 1999 16:12:29 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Sub-routine help needed please
Message-Id: <816h9d$7o1$1@gellyfish.btinternet.com>

On Sat, 20 Nov 1999 13:15:48 -0000 Richard wrote:
> I'm trying to run the following script - as soon as I include the line
> &Parse_Form; it no longer uploads the file to the server and doesn't fail or
> give any kind of error!! But if I remove the &Parse_Form; line it works
> again!!! (copy of the sub routine included below).
> 
> Any Ideas??
> 
> 
> =====start of script ===
> #!/usr/local/bin/perl5 -w
> use lib $0 =~ m#(.+)[/\\]#;
> use CGI qw(:standard);
> use CGI::Carp qw/fatalsToBrowser/;
> 
> require "subparseform.lib";
> &Parse_Form;

<big snip>

Why do you need to include this form-parsing stuff when the CGI module
does it for you already?  You should read the documentation for CGI.pm
if you are having difficulty getting at the form parameters.

Leave out the require, leave out the &Parse_Form and use the normal
facilities provided to you by CGI.pm .

I have this horrible feeling you are simply cutting and pasting this stuff
from source without understanding it - if so I would recommend that you
turn off your computer and take a walk down to your local bookshop and
get yourself a decent book about Perl:  Uri Guttman has a goodly selection
of reviews at <http://www.sysarch.com>.

Of course you might just be better off asking in the group:

    comp.infosystems.www.authoring.cgi

if you are only interested in making some CGI program rather than learning
Perl.

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: 20 Nov 1999 11:47:37 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: What is a good book on Perl
Message-Id: <8161op$78k$1@gellyfish.btinternet.com>

On Fri, 19 Nov 1999 23:49:43 GMT crackbaby1@my-deja.com wrote:
> In article <814gi7$ptv$1@nntp2.atl.mindspring.net>,
>   "Trulits" <trulits@hotmail.com> wrote:
>> I am interested in learning Perl.
>>
>> Is that what most cgi is written in these days?
>> I need to learn how to process forms
>> create and maintain databases
>> perhaps create, shopping carts, mailing lists apps, and guest book
> apps.
>>
>> What is a good book to learn?
>>
> Two books you must have...
> 
> Programming Perl (Oreilly)

Absolutely - although maybe not the best book for a beginner to the whole
enterprise of programming.

> MySQL & msql (Oreilly)
> 

I didnt see the OP mention MySQL although undeniably it is widely used it
has limitations that those serious about database work would consider to
be show stoppers.  I would in the first instance recommend a more general
book on SQL - though I couldnt recommend one n particular (It feels like
I came into the workd with knowledge of SQL:) - this is almost certainly
something that should be taken up with some comp.databases.* group.

The boy Guttman has some fine book reviews on his web pages - this can be
found via <http://www.sysarch.com>.

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

Date: 20 Nov 1999 11:15:43 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: What is a good book on Perl
Message-Id: <x7hfihp2a8.fsf@home.sysarch.com>

>>>>> "JS" == Jonathan Stowe <gellyfish@gellyfish.com> writes:

  JS> The boy Guttman has some fine book reviews on his web pages - this can be
  JS> found via <http://www.sysarch.com>.

thanx for the plug. but "boy Guttman"? i am more insulted by that than
by jakob the liar!

uri

-- 
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: Sat, 20 Nov 1999 16:55:57 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: What is a good book on Perl
Message-Id: <xoAZ3.30820$YI2.1483829@typ11.nn.bcandid.com>

In article <8161op$78k$1@gellyfish.btinternet.com>,
Jonathan Stowe  <gellyfish@gellyfish.com> wrote:
>I didnt see the OP mention MySQL although undeniably it is widely used it
>has limitations that those serious about database work would consider to
>be show stoppers.  I would in the first instance recommend a more general
>book on SQL - though I couldnt recommend one n particular (It feels like
>I came into the workd with knowledge of SQL:) - this is almost certainly
>something that should be taken up with some comp.databases.* group.

OT or no, I'll recommend _SQL for Web Nerds_, http://photo.net/sql/.
They have the whole documentation set for Oracle 8 online there too.

There's also a huge amount of source code there, along with explanation
of its philosophy.  All of it is freely downloadable.  It has the minor
disadvantage of being written all in Tcl.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08.  Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>


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

Date: Fri, 19 Nov 1999 13:39:14 -0600
From: TK Soh <r28629@email.sps.mot.com>
To: simon@brecon.co.uk
Subject: Re: Writing Modules
Message-Id: <3835A762.E653CC4E@email.sps.mot.com>

Simon Cozens wrote:
> 
> Bill Moseley (comp.lang.perl.misc):
> >perldoc perlmod has this:
> >    For example, to start a normal module called Some::Module,
> >    create a file called Some/Module.pm and start with this
> >    template:
> >
> >Follows is a template you can cut-n-paste.  What else would you want?
> 
> Although you really want to start with h2xs if you're thinking of
> distributing it. 

The original post simply asked for guide to write a perl module, nothing
about distributing it. Beside, even if you want to distribute the
module, why XS?

> MJD wrote a really good modules tutorial, didn't he?

not sure about MJD, but Tom did write one:

 perldoc perltoot


-TK


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

Date: 20 Nov 1999 15:10:50 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Writing Modules
Message-Id: <816dlq$7nn$1@gellyfish.btinternet.com>

On Fri, 19 Nov 1999 13:39:14 -0600 TK Soh wrote:
> Simon Cozens wrote:
>> 
>> Bill Moseley (comp.lang.perl.misc):
>> >perldoc perlmod has this:
>> >    For example, to start a normal module called Some::Module,
>> >    create a file called Some/Module.pm and start with this
>> >    template:
>> >
>> >Follows is a template you can cut-n-paste.  What else would you want?
>> 
>> Although you really want to start with h2xs if you're thinking of
>> distributing it. 
> 
> The original post simply asked for guide to write a perl module, nothing
> about distributing it. Beside, even if you want to distribute the
> module, why XS?
> 

yeah but given the write arguments h2xs will provide a nice skeleton
module to start work with - with a Makefile.PL MANIFEST and all - its
a matter of convenience really.  Of course the advice in perlmod and
perltoot are more useful in actually *writing* the modules.

/J\
-- 
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>


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

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


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