[14028] in Perl-Users-Digest
Perl-Users Digest, Issue: 1438 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 19 18:21:41 1999
Date: Fri, 19 Nov 1999 15:20:29 -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: <943053629-v9-i1438@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 19 Nov 1999 Volume: 9 Number: 1438
Today's topics:
Re: Simple help <maraism@ironhilltech.com>
Re: Simple help <uri@sysarch.com>
Re: Simple help <sariq@texas.net>
Re: Simple help <sariq@texas.net>
Re: Simple help <lr@hpl.hp.com>
Testsuite Mac/cgi/perl (Hado Hein)
Re: Testsuite Mac/cgi/perl (Kragen Sitaker)
Re: Thank you all <lr@hpl.hp.com>
Re: unique search and replace problem <lr@hpl.hp.com>
Re: using classes (Kragen Sitaker)
Re: using classes <gellyfish@gellyfish.com>
Re: Weekday in perl books@mail.state.fl.us
Re: Weekday in perl <vincent.murphy@cybertrust.gte.com>
Re: Weekday in perl <lr@hpl.hp.com>
Re: Weekday in perl <vincent.murphy@cybertrust.gte.com>
Re: Weekday in perl (Kragen Sitaker)
What is a good book on Perl <trulits@hotmail.com>
Re: Writing data to file on another server. mark_r_jones@my-deja.com
Re: Writing Modules <gellyfish@gellyfish.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 19 Nov 1999 04:15:19 +0000
From: Mike Maraist <maraism@ironhilltech.com>
Subject: Re: Simple help
Message-Id: <3834CED7.6C0D9097@ironhilltech.com>
Larry Rosler wrote:
> In article <81221a$ak$1@uranium.btinternet.com> on Thu, 18 Nov 1999
> 23:27:27 -0000, Tom Clark <tomclark@btinternet.com> says...
> > Was wondering if some kind soul could help me.
>
> 'Kind' is my middle name (not!).
>
> > Am trying to write a Perl script that will extract data from a text file and
> > present it in a new one.
> >
> > The (beginning of the) original file from which the data has to extracted
> > looks like this:
> >
> > A0: Astronomy - Advanced
> > S6300 Professor Alethia Williams
> > 9901770 Cory Peterson 56
> > 9911224 Frances Fowler 51
> > 9920645 Sarah Watt 59
> > 9921786 Henry Peterson 72
> > 9925656 William Peterson 62
> >
> > The lines with numbers that begin 99 are records of students taking the
> > course unit (its fairly self-explanatory).
> >
> > I need to extract all the lines with students (ignoring the lines with the
> > teachers and the unit title), and put this into a text file that looks like
> > this:
> >
> > 9901770 Cory Peterson
> > 9911224 Frances Fowler
> > 9920645 Sarah Watt
> > 9921786 Henry Peterson
> > 9925656 William Peterson
>
> I would use a regex instead of all those column numbers. Read 'perlre'
> or a regex tutorial for explanations.
>
> Here is the code, less all the file manipulations. (BTW, include $! in
> all those excellent file-open-error diagnostics.) As you can see, the
> data collection takes exactly one line of code. :-)
>
> #!/usr/local/bin/perl -w
> use strict;
>
> my %students;
>
> / 99(\d{5}) (.+?) / and $students{$1} = $2 while <DATA>;
>
> while (my ($id, $name) = each %students) {
> print "99$id\t$name\n";
> }
> __END__
> A0: Astronomy - Advanced
> S6300 Professor Alethia Williams
> 9901770 Cory Peterson 56
> 9911224 Frances Fowler 51
> 9920645 Sarah Watt 59
> 9921786 Henry Peterson 72
> 9925656 William Peterson 62
> B1: Bowling - Advanced
> S6300 Professor Jack Nicklaus
> 9901770 Cory Peterson 56
> 9911224 Frances Fowler 51
> 9920645 Sarah Watt 59
> 9921787 Henry James 72
> 9925656 William Petersen 62
>
> Note that the last time an ID is found is the name that sticks, if they
> are different (Peterson => Petersen).
>
> > Its adapted from another program written by someone else. I'm no Perl
> > genius - as I'm sure is apparent!. I understand pretty much what's going
> > on - its just selecting the right bits of the lines that is eluding me. The
> > file (ultimately) is going to put the students data into an 'insert into'
> > command in SQL.
>
> Then presumably you don't care what order the output list is. As shown,
> it will be essentially random. But there are ways to sort it, if that
> matters.
>
This is an almost purely sed / awk type of example.. And as such.. :
#!/usr/bin/perl -w -s
BEGIN {
open OUTH, ">file_name.txt";
}
/^\s*99(\d+)\s*(.*)\D\d+\s*$/ and print OUTH "99$1\t$2\n";
# This allows for the case where 99 might appear somewhere on a line other than
the beginning
# The last example didn't get rid of the final set of numbers. This code
greedily gobbles up the remainder of the line then backtracks past any #
potential white-space and then all numbers up to the first non number ( which
will either be a tab or white-space ).
-Michael
------------------------------
Date: 19 Nov 1999 11:16:39 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Simple help
Message-Id: <x766yyqwwo.fsf@home.sysarch.com>
>>>>> "MM" == Mike Maraist <maraism@ironhilltech.com> writes:
<snip of massive quote>
no need to quote larry's ENTIRE post! at least it wasn't jeopardy style.
MM> This is an almost purely sed / awk type of example.. And as such.. :
MM> #!/usr/bin/perl -w -s
so where is the -p or -n option? probably you mean -p and not -s. and
you can combine the options like -wp.
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: Fri, 19 Nov 1999 10:11:08 -0600
From: Tom Briles <sariq@texas.net>
Subject: Re: Simple help
Message-Id: <3835769C.6D903FD8@texas.net>
Tom Clark wrote:
>
> Hi all,
>
> Was wondering if some kind soul could help me.
>
> Am trying to write a Perl script that will extract data from a text file and
> present it in a new one.
>
> The (beginning of the) original file from which the data has to extracted
> looks like this:
>
> A0: Astronomy - Advanced
> S6300 Professor Alethia Williams
> 9901770 Cory Peterson 56
> 9911224 Frances Fowler 51
> 9920645 Sarah Watt 59
> 9921786 Henry Peterson 72
> 9925656 William Peterson 62
>
> The lines with numbers that begin 99 are records of students taking the
> course unit (its fairly self-explanatory).
>
> I need to extract all the lines with students (ignoring the lines with the
> teachers and the unit title), and put this into a text file that looks like
> this:
>
> 9901770 Cory Peterson
> 9911224 Frances Fowler
> 9920645 Sarah Watt
> 9921786 Henry Peterson
> 9925656 William Peterson
>
Well, I don't know if you need to handle names like:
John W. Jones, Jr.
Fred Flintstone the 3rd
But here's my shot at it (though I don't know why Larry thinks Jack
Nicklaus would be teaching bowling).
I believe it'll work as long as there are at least two consecutive
whitespaces after the student name.
- Tom
-----
#!/usr/bin/perl -w
use strict;
my @students;
/\s+(99.+)\s{2}/ and push @students, $1 while (<DATA>);
for (@students) {
s/\s+$//;
print "$_\n";
}
__DATA__
A0: Astronomy - Advanced
S6300 Professor Alethia Williams
9901770 Cory L. Peterson 56
9911224 Frances K. Fowler, Jr 51
9920645 Sarah Watt the 14th 59
9921786 Henry Peterson 72
9925656 William Peterson 62
B1: Bowling - Advanced
S6300 Professor Jack Nicklaus
9901770 Cory Peterson 56
9911224 Frances Fowler 51
9920645 Sarah Watt 59
9921787 Henry James 72
9925656 William Petersen 62
-----
------------------------------
Date: Fri, 19 Nov 1999 10:17:24 -0600
From: Tom Briles <sariq@texas.net>
Subject: Re: Simple help
Message-Id: <38357814.1CF50292@texas.net>
Tom Briles wrote:
>
> Tom Clark wrote:
> >
> > Hi all,
> >
> > Was wondering if some kind soul could help me.
> >
> > Am trying to write a Perl script that will extract data from a text file and
> > present it in a new one.
> >
> > The (beginning of the) original file from which the data has to extracted
> > looks like this:
> >
> > A0: Astronomy - Advanced
> > S6300 Professor Alethia Williams
> > 9901770 Cory Peterson 56
> > 9911224 Frances Fowler 51
> > 9920645 Sarah Watt 59
> > 9921786 Henry Peterson 72
> > 9925656 William Peterson 62
> >
> > The lines with numbers that begin 99 are records of students taking the
> > course unit (its fairly self-explanatory).
> >
> > I need to extract all the lines with students (ignoring the lines with the
> > teachers and the unit title), and put this into a text file that looks like
> > this:
> >
> > 9901770 Cory Peterson
> > 9911224 Frances Fowler
> > 9920645 Sarah Watt
> > 9921786 Henry Peterson
> > 9925656 William Peterson
> >
>
> Well, I don't know if you need to handle names like:
>
> John W. Jones, Jr.
> Fred Flintstone the 3rd
>
> But here's my shot at it (though I don't know why Larry thinks Jack
> Nicklaus would be teaching bowling).
>
> I believe it'll work as long as there are at least two consecutive
> whitespaces after the student name.
>
> - Tom
>
I forgot to add that you should use a hash to store the students if you
want to keep them unique.
- Tom
------------------------------
Date: Fri, 19 Nov 1999 13:09:18 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Simple help
Message-Id: <MPG.129f5c597b1211998a240@nntp.hpl.hp.com>
In article <3835769C.6D903FD8@texas.net> on Fri, 19 Nov 1999 10:11:08 -
0600, Tom Briles <sariq@texas.net> says...
...
> But here's my shot at it (though I don't know why Larry thinks Jack
> Nicklaus would be teaching bowling).
Testing to see if anybody would actually read the data. You pass!
> I believe it'll work as long as there are at least two consecutive
> whitespaces after the student name.
That was exactly the presumption in my regex.
...
> /\s+(99.+)\s{2}/ and push @students, $1 while (<DATA>);
But that should be non-greedy (99.+?), so you don't need the next step
that strips the trailing whitespace.
> for (@students) {
> s/\s+$//;
> print "$_\n";
> }
Fortunately, you fixed the duplications in your follow-up.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 19 Nov 1999 20:27:02 +0100
From: Hado.Hein@gmx.net (Hado Hein)
Subject: Testsuite Mac/cgi/perl
Message-Id: <1e1j9zc.13rpxbq1dmrrbcN@p3e9eb8ac.dip.t-dialin.net>
What do I need to install to test a site that was sucked from an
ux-server ?
A client gave to me his site on disc. I need to run that locally to
alter the scripts.
I have (handy) NetPresenz with cgi on , but it does not work. I also
have downloaded MacPerl.
But what need I to do with the cgi's and pl's.
Do I need to compile them before NetPresenz can run them ? What tool to
use for that ? MacPerl or somethig from stairways.com ?
thx, Hado.
--
Hado Hein, Berlin, Fed. Rep. of Germany
find PGP and http in Headers
------------------------------
Date: Fri, 19 Nov 1999 22:58:43 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Testsuite Mac/cgi/perl
Message-Id: <DCkZ3.28986$YI2.1346132@typ11.nn.bcandid.com>
In article <1e1j9zc.13rpxbq1dmrrbcN@p3e9eb8ac.dip.t-dialin.net>,
Hado Hein <Hado.Hein@gmx.net> wrote:
>A client gave to me his site on disc. I need to run that locally to
>alter the scripts.
>
>I have (handy) NetPresenz with cgi on , but it does not work. I also
>have downloaded MacPerl.
>But what need I to do with the cgi's and pl's.
That is a question about NetPresenz, if NetPresenz is a web server. It
is probably not a question about Perl.
>Do I need to compile them before NetPresenz can run them ?
Probably not.
> What tool to use for that ? MacPerl or somethig from stairways.com ?
Perhaps you should ask this question somewhere where people know what
"NetPresenz" and "stairways.com" are.
--
<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:03:17 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Thank you all
Message-Id: <MPG.129f5af0ab18e9ba98a23f@nntp.hpl.hp.com>
In article <x3yg0y2zal6.fsf@tigre.matrox.com> on Fri, 19 Nov 1999
11:53:57 -0500, Ala Qumsieh <aqumsieh@matrox.com> says...
>
> bardsk@math.ntnu.no (Bård Skaflestad) writes:
>
> > while (<>) {
> > chomp;
> > $max = length if (lenght > $max);
> > }
> >
> > With this I actually can remove the (unnecessary) $nchar variable, and
> > the loop has a more natural reading, at least to me. Is there
> > anything "fishy" going on here that I might not be grasping?
>
> 1) The spelling mistake (length NOT lenght :)
> 2) I would say that calling length() twice is not the best of styles,
> but I can't find a way to do it without a temporary variable.
The aversion to calling length() twice is a misconception I had
approaching Perl from C, where a function such as strlen() that scans
the string is relatively costly, so one wants to call it once and store
the result for reuse.
In Perl the situation is quite the opposite. length() is a compiler
primitive that accesses the dope vector of the string, so takes no more
time than any other operation, in particular storing and retrieval of a
variable. Relative speed comes from doing as few Perl operations as
possible.
Benchmark it both ways if you want to verify this.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 19 Nov 1999 12:30:10 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: unique search and replace problem
Message-Id: <MPG.129f532bc29c173a98a23e@nntp.hpl.hp.com>
In article <38359145.2299C9D4@bms.com> on Fri, 19 Nov 1999 13:04:54 -
0500, Joe Kazimierczyk <joseph.kazimierczyk@bms.com> says...
...
> Here's one way:
>
> $a = '<option value="232">Bain & Company';
> $a =~ s/(<option value=")(\d+)(">)(.*)/$1$4$3$4/;
> print $a;
>
> <option value="Bain & Company">Bain & Company
Here's a shorter way:
$a =~ s/\d+">(.*)/$1">$1/;
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 19 Nov 1999 21:07:00 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: using classes
Message-Id: <UZiZ3.28720$YI2.1332870@typ11.nn.bcandid.com>
In article <813veg$tmc$1@nnrp1.deja.com>, sp00fD <sp00fD@yahoo.com> wrote:
>I'm somewhat familiar with Python and have used it on a couple of
>occassions. I'm curious, is there a way to directly use a class/module
>as in python?
Ask in comp.lang.python.
--
<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: 19 Nov 1999 22:49:48 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: using classes
Message-Id: <814k6c$6bi$1@gellyfish.btinternet.com>
On Fri, 19 Nov 1999 16:55:55 GMT sp00fD wrote:
> I'm somewhat familiar with Python and have used it on a couple of
> occassions. I'm curious, is there a way to directly use a class/module
> as in python? i.e.:
> in python
>
> class Foo:
> methods...
>
> if __name__ == "__main__":
> get command line args..
> bar = Foo(sys.argv[1]...)
> bar.run()
>
> or whatever..
>
Sure - please read the perlmod and perltoot manpages.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 19 Nov 1999 10:12:00 -0500
From: books@mail.state.fl.us
Subject: Re: Weekday in perl
Message-Id: <383568c0.0@news.hcs.net>
Steffen Beyer <sb@sdm.de> wrote:
> In article <80gp3s$dv7$1@nnrp1.deja.com>, dpi27@my-deja.com wrote:
>> Is there any function that could give me the weekday of a
>> specified date ?
>> If not, how could I get it with the following informations :
>> month day, month, year.
> See "localtime" in "man perlfunc" (or "perldoc perlfunc").
#!/usr/bin/perl
use Time::Local
my $time = timelocal( 0, 0, 12, $mday, $mon, $year);
$dayOfWeek = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime($time))[6]];
(NB, not tested, should work though.)
Roger Books
-------------------------------------------------------
| Unix sysadmin, Unix group | (850)921-0729 |
| Information Technology Program | |
| Dept of Mgmt Services | |
| State of Florida | |
-------------------------------------------------------
------------------------------
Date: Fri, 19 Nov 1999 15:57:25 GMT
From: Vincent Murphy <vincent.murphy@cybertrust.gte.com>
Subject: Re: Weekday in perl
Message-Id: <xjgg0y2mq3e.fsf@gamora.ndhm.gtegsc.com>
>>>>> "books" == books <books@mail.state.fl.us> writes:
books> Steffen Beyer <sb@sdm.de> wrote:
>> In article <80gp3s$dv7$1@nnrp1.deja.com>, dpi27@my-deja.com wrote:
>>> Is there any function that could give me the weekday of a
>>> specified date ?
>>> If not, how could I get it with the following informations :
>>> month day, month, year.
>> See "localtime" in "man perlfunc" (or "perldoc perlfunc").
books> #!/usr/bin/perl
books> use Time::Local
books> my $time = timelocal( 0, 0, 12, $mday, $mon, $year);
books> $dayOfWeek = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime($time))[6]];
books> (NB, not tested, should work though.)
Maybe if you tested it you would know that it doesn't work first of all,
need a semi after Time::Local, and secondly, it would output incorrect
data because of the $mon needs to be $mon-1;
--vjm
------------------------------
Date: Fri, 19 Nov 1999 08:08:36 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Weekday in perl
Message-Id: <MPG.129f15e1ee6d077e98a238@nntp.hpl.hp.com>
In article <383568c0.0@news.hcs.net> on 19 Nov 1999 10:12:00 -0500,
books@mail.state.fl.us <books@mail.state.fl.us> says...
> Steffen Beyer <sb@sdm.de> wrote:
> > In article <80gp3s$dv7$1@nnrp1.deja.com>, dpi27@my-deja.com wrote:
>
> >> Is there any function that could give me the weekday of a
> >> specified date ?
> >> If not, how could I get it with the following informations :
> >> month day, month, year.
>
> > See "localtime" in "man perlfunc" (or "perldoc perlfunc").
>
> #!/usr/bin/perl
> use Time::Local
>
> my $time = timelocal( 0, 0, 12, $mday, $mon, $year);
>
> $dayOfWeek = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime($time))[6]];
>
> (NB, not tested, should work though.)
I wish I could understand what value this article adds to Steffen
Beyer's complete and correct answer, which referred the questioner to
the documentation for the localtime() function.
Your code has a syntax error on line 2, is lacking '-w' and 'use
strict;', and uses a bunch of barewords and undefined variables. It
also omits to mention the key issues disussed in the documentation in
regard to the special characteristics of the $mon and $year variables.
Saying 'not tested' doesn't make up for not testing it!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 19 Nov 1999 20:28:15 GMT
From: Vincent Murphy <vincent.murphy@cybertrust.gte.com>
Subject: Re: Weekday in perl
Message-Id: <xjgbt8qp6ox.fsf@gamora.ndhm.gtegsc.com>
>>>>> "Kragen" == Kragen Sitaker <kragen@dnaco.net> writes:
Kragen> In article <xjgg0y2mq3e.fsf@gamora.ndhm.gtegsc.com>,
Kragen> Vincent Murphy <vincent.murphy@cybertrust.gte.com> wrote:
>>>>>>> "books" == books <books@mail.state.fl.us> writes:
books> Steffen Beyer <sb@sdm.de> wrote:
books> #!/usr/bin/perl
books> use Time::Local
books> my $time = timelocal( 0, 0, 12, $mday, $mon, $year);
books> $dayOfWeek = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime($time))[6]];
books> (NB, not tested, should work though.)
>>
>> Maybe if you tested it you would know that it doesn't work first of all,
>> need a semi after Time::Local, and secondly, it would output incorrect
>> data because of the $mon needs to be $mon-1;
Kragen> And $year needs to be $year-1900, although you might have missed that
Kragen> in testing.
No. You can have 99. Maybe you should have tested that.
Look at the code in <whereever in INC path>/Time/Local.pm to verify this.
-Vinny
------------------------------
Date: Fri, 19 Nov 1999 22:54:49 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Weekday in perl
Message-Id: <ZykZ3.28976$YI2.1348477@typ11.nn.bcandid.com>
In article <xjgbt8qp6ox.fsf@gamora.ndhm.gtegsc.com>,
Vincent Murphy <vincent.murphy@cybertrust.gte.com> wrote:
>>>>>> "Kragen" == Kragen Sitaker <kragen@dnaco.net> writes:
> books> my $time = timelocal( 0, 0, 12, $mday, $mon, $year);
> Kragen> And $year needs to be $year-1900, although you might have missed that
> Kragen> in testing.
>
>No. You can have 99. Maybe you should have tested that.
>
>Look at the code in <whereever in INC path>/Time/Local.pm to verify this.
Oops! You're right. Thanks!
--
<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 16:50:39 -0500
From: "Trulits" <trulits@hotmail.com>
Subject: What is a good book on Perl
Message-Id: <814gi7$ptv$1@nntp2.atl.mindspring.net>
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?
Thanks
Tru
------------------------------
Date: Fri, 19 Nov 1999 16:32:34 GMT
From: mark_r_jones@my-deja.com
Subject: Re: Writing data to file on another server.
Message-Id: <813u2q$sfg$1@nnrp1.deja.com>
I will indeed, and maybe one day I will understand them :-)
Many thanks for the help.
> However you *will* now go and read the man pages for the CGI module
and
> the perlfunc entries for open,flock,print ...
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Nov 1999 22:58:49 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Writing Modules
Message-Id: <814kn9$6br$1@gellyfish.btinternet.com>
On Fri, 19 Nov 1999 00:20:55 GMT David Waters wrote:
> Can anyone give me some tips please on how I go about writing a Perl
> module. Most of the standard documentation that I've come across is
> useless and doesn't explain the steps required to create a module.
>
Maybe you explain to us in what way you found the documentation useless
and what problems you are experiencing then we can help you out - the
perlmod and perltoot manpages are pretty good as far as i am concerned.
/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 1438
**************************************
