[12358] in Perl-Users-Digest
Perl-Users Digest, Issue: 5958 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 11 07:07:31 1999
Date: Fri, 11 Jun 99 04:00:24 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 11 Jun 1999 Volume: 8 Number: 5958
Today's topics:
Re: **ANY HELP APPRECIATED******* <webmaster@chatbase.com>
Alter name of an array? <pbatt@pop.agri.ch>
Re: Alter name of an array? <gellyfish@gellyfish.com>
Re: Alter name of an array? <dave@dave.org.uk>
Re: Calculating weekday given year, month and day <rpsavage@ozemail.com.au>
Re: Calculating weekday given year, month and day <gellyfish@gellyfish.com>
Re: Calculating weekday given year, month and day <jgr@tpnet.de>
Re: Calculating weekday given year, month and day <gellyfish@gellyfish.com>
Re: Calculating weekday given year, month and day (Bob Trieger)
how do i refresh frames from perl? <office@asc.nl>
Re: how do i refresh frames from perl? <gellyfish@gellyfish.com>
Re: How do I split this string into an array of words: <gellyfish@gellyfish.com>
Re: Intersection of several lists (Sitaram Chamarty)
Re: Is there an MS-DOS perl that will use extended memo <gellyfish@gellyfish.com>
mod_perl require problem <jason@eggnet.com>
NY Financial Community and NY City Hall Finally Acknowl <dpodbori@email.msn.com>
Perl LWP mod on Win98 steeperhill@my-deja.com
Re: Perl LWP mod on Win98 <gellyfish@gellyfish.com>
Re: Perl String , RE 's (Dean Hudson)
Re: Perldoc and Perlfaq <garethr@cre.canon.co.uk>
perlpod <niklaus@gif.de>
Re: perlpod <gellyfish@gellyfish.com>
Re: perlpod <rra@stanford.edu>
Re: Please Help!! <dave@dave.org.uk>
Re: quiz for perl professionals (Andrew Johnson)
Re: quiz for perl professionals (Andrew Johnson)
Re: Require "No NT commands" on UNIX <dave@dave.org.uk>
Re: sendmail doesn't work <webmaster@chatbase.com>
Re: Silly old me <office@asc.nl>
Re: Taking a Poll..... <gellyfish@gellyfish.com>
Re: waiting... (Lee)
Re: why short of 1 month ?? <gellyfish@gellyfish.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 11 Jun 1999 03:05:24 -0700
From: TRG Software : Tim Greer <webmaster@chatbase.com>
Subject: Re: **ANY HELP APPRECIATED*******
Message-Id: <3760DF64.2671B6B6@chatbase.com>
dmeyers@tisny.com wrote:
>
> Can anyone suggest where I can find an Engineer with Javascript/C/UNIX
> experience for a contract opportunity with a Fortune 1000 firm in San
> Francisco, Ca? Please contact dmeyers@tisny.com. Thank you!
Maybe asking in the proper NG's that have to do with your question would
be helpful? I saw no mention of Perl, but then again, this isn't a "jobs
offered" NG either. :-)
--
Regards,
Tim Greer: chatmaster@chatbase.com / software@linkworm.com
Chat Base: http://www.chatbase.com | 250,000+ hits daily Worldwide!
TRG Software: http://www.linkworm.com | CGI scripting in Perl/C, & more.
Unix/NT/Novell Administration, Security, Web Design, ASP, SQL, & more.
Freelance Programming & Consulting, Musician, Martial Arts, Sciences.
------------------------------
Date: Fri, 11 Jun 1999 11:22:19 +0200
From: "Paul Batt" <pbatt@pop.agri.ch>
Subject: Alter name of an array?
Message-Id: <7jqkr4$mhs$1@pollux.ip-plus.net>
Can you manipulate the name of an array? I'd need a way to continuously add
a number to the names of arrays while creating them. The name of the first
array should be @array_1, the next one should be called @array_2, etc. Is
that possibly somehow or is there any alternate way?
--
Paul Batt - Kernstrasse 27 - CH-8004 Zurich - Switzerland
Fachjournalist
Phone +41 1 242 39 76 - Fax +41 1 242 20 94 - Mail pbatt@access.ch
------------------------------
Date: 11 Jun 1999 11:17:50 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Alter name of an array?
Message-Id: <3760e24e@newsread3.dircon.co.uk>
Paul Batt <pbatt@pop.agri.ch> wrote:
> Can you manipulate the name of an array? I'd need a way to continuously add
> a number to the names of arrays while creating them. The name of the first
> array should be @array_1, the next one should be called @array_2, etc. Is
> that possibly somehow or is there any alternate way?
>
You want to use a hash or an array of arrray reference - as will undoubtedly
be pointed out length to you it is a bad idea to use symbolic
references where some mechanism exists to do the same thing better.
/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: Fri, 11 Jun 1999 11:51:14 +0100
From: "Dave Cross" <dave@dave.org.uk>
Subject: Re: Alter name of an array?
Message-Id: <7jqpbf$t5h$1@starburst.uk.insnet.net>
Paul Batt wrote in message <7jqkr4$mhs$1@pollux.ip-plus.net>...
>Can you manipulate the name of an array? I'd need a way to continuously add
>a number to the names of arrays while creating them. The name of the first
>array should be @array_1, the next one should be called @array_2, etc. Is
>that possibly somehow or is there any alternate way?
You almost certainly want an array of arrays.
my @arr_of_arr = ();
my @arr;
while (@arr = &function_that_creates_one_of_your_arrays) {
push @arr_of_arr, [@arr];
}
You can then get hold of one of your arrays like this:
@work_arr = @{$arr_of_arr[$x]}; # where $x is the number of the array you
need
Or grab one particular element in a particular array like this:
$some_element = $arr_of_arr[$x]->[$y];
hth,
Dave...
------------------------------
Date: Fri, 11 Jun 1999 18:03:38 +1000
From: "Pen and Ron Savage" <rpsavage@ozemail.com.au>
Subject: Re: Calculating weekday given year, month and day
Message-Id: <os383.889$td3.5873@ozemail.com.au>
The algorithm you want is called Zeller's Congruence, thus (in Pascal):
Program zeller;
Var
day,
month,
year,
y1,
y2,
zday,
m: Integer;
Begin { zeller }
write('Please enter D M YYYY: ');
readln(day, month, year);
if (month < 3)
then
Begin { B1 }
m := month + 10;
year := year - 1;
End { B1 }
else
m := month - 2;
y1 := year DIV 100;
y2 := year MOD 100;
zday := (day + trunc(2.6 * m - 0.1) + y2 + (y2 DIV 4) + (y1 DIV 4) -
(2 * y1) + 49) MOD 7;
case zday of
0: writeln('Sunday');
1: writeln('Monday');
2: writeln('Tuesday');
3: writeln('Wednesday');
4: writeln('Thursday');
5: writeln('Friday');
6: writeln('Saturday');
end;
End. { zeller }
Now, wasn't that painless :-)
--
Cheers
Pen and Ron Savage
rpsavage@ozemail.com.au
http://www.ozemail.com.au/~rpsavage
perl_beginner@my-deja.com wrote in message <7jq986$7g1$1@nnrp1.deja.com>...
> what is the most efficient way to calculate the weekday (sunday=0,
>monday=1 ...) given the year, month, and day without using the module
>provided by perl (i.e using arithmatics and algorithm)? Any suggestion?
>
> Thanks.....
>
>
>Sent via Deja.com http://www.deja.com/
>Share what you know. Learn what you don't.
------------------------------
Date: 11 Jun 1999 10:33:12 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Calculating weekday given year, month and day
Message-Id: <3760d7d8@newsread3.dircon.co.uk>
Pen and Ron Savage <rpsavage@ozemail.com.au> wrote:
> perl_beginner@my-deja.com wrote in message <7jq986$7g1$1@nnrp1.deja.com>...
>> what is the most efficient way to calculate the weekday (sunday=0,
>>monday=1 ...) given the year, month, and day without using the module
>>provided by perl (i.e using arithmatics and algorithm)? Any suggestion?
>>
> The algorithm you want is called Zeller's Congruence, thus (in Pascal):
Er sorry Pascal ? Unfortunately I would say that probably the only
people who could understand this knew the answer anyway ;-}
/J\
--
"The teenage masturbators of today are the television executives of
tomorrow" - Melissa Cabriolet, Drop the Dead Donkey
------------------------------
Date: Fri, 11 Jun 1999 10:40:12 +0200
From: Jan Gruber <jgr@tpnet.de>
Subject: Re: Calculating weekday given year, month and day
Message-Id: <929090698.1816878717@news.uni-leipzig.de>
Hi,
>what is the most efficient way to calculate the weekday (sunday=0,
>monday=1 ...) given the year, month, and day without using the module
>provided by perl (i.e using arithmatics and algorithm)? Any suggestion?
Date::Manip and Date::Calc (have look at CPAN) should do the trick.
HTH
Jan
--
======================================
Reality is the leading cause of stress
======================================
_
------------------------------
Date: 11 Jun 1999 11:10:25 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Calculating weekday given year, month and day
Message-Id: <3760e091@newsread3.dircon.co.uk>
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> Pen and Ron Savage <rpsavage@ozemail.com.au> wrote:
>> perl_beginner@my-deja.com wrote in message <7jq986$7g1$1@nnrp1.deja.com>...
>>> what is the most efficient way to calculate the weekday (sunday=0,
>>>monday=1 ...) given the year, month, and day without using the module
>>>provided by perl (i.e using arithmatics and algorithm)? Any suggestion?
>>>
>
>> The algorithm you want is called Zeller's Congruence, thus (in Pascal):
>
> Er sorry Pascal ? Unfortunately I would say that probably the only
> people who could understand this knew the answer anyway ;-}
>
Of course that was a cop-out on my part when I should have embraced it as
an opportunity for some comparative computing ;-}
#!/usr/bin/perl -w
use strict;
=for comment
Program zeller;
Var
day,
month,
year,
y1,
y2,
zday,
m: Integer;
Begin { zeller }
write('Please enter D M YYYY: ');
readln(day, month, year);
=cut
use vars qw( $m $y1 $y2 $zday);
my ($day,$month,$year ) = @ARGV;
=for comment
if (month < 3)
then
Begin { B1 }
m := month + 10;
year := year - 1;
End { B1 }
else
m := month - 2;
=cut
if ( $month < 3 )
{
$m = $month + 10;
$year-- ;
}
else
{
$m = $month - 2;
}
=for comment
y1 := year DIV 100;
y2 := year MOD 100;
=cut
$y1 = int($year / 100);
$y2 = $year % 100 ;
=for comment
zday := (day + trunc(2.6 * m - 0.1) + y2 + (y2 DIV 4) + (y1 DIV 4) -
(2 * y1) + 49) MOD 7;
=cut
$zday = ($day + int(2.6 * $m - 0.1) +
$y2 + int( $y2 / 4) + int( $y1 /4 ) - (2 * $y1) + 49 ) % 7;
=for comment
case zday of
0: writeln('Sunday');
1: writeln('Monday');
2: writeln('Tuesday');
3: writeln('Wednesday');
4: writeln('Thursday');
5: writeln('Friday');
6: writeln('Saturday');
end;
End. { zeller }
=cut
my @daynames = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
print $daynames[$zday],"\n";
__END__
--
"The only man in the cabinet who supported them was that fucking lunatic
Redwood" - John Major
------------------------------
Date: Fri, 11 Jun 1999 11:02:04 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Calculating weekday given year, month and day
Message-Id: <7jqo87$mtf$1@oak.prod.itd.earthlink.net>
[ courtesy cc sent by mail if address not munged ]
perl_beginner@my-deja.com wrote:
> what is the most efficient way to calculate the weekday (sunday=0,
>monday=1 ...) given the year, month, and day without using the module
>provided by perl (i.e using arithmatics and algorithm)? Any suggestion?
Use the Date::Calc module.
------------------------------
Date: Fri, 11 Jun 1999 11:56:07 +0200
From: "Bastiaan S van den Berg" <office@asc.nl>
Subject: how do i refresh frames from perl?
Message-Id: <7jqmim$eam$1@zonnetje.NL.net>
hiya
since my last post didn't get much reply.. i redefined my question..
i need to update a frame with new values , how can i export information to
a
certain frame , instead of just the current frame ?
or how can i update a default value in a form textbox without refreshing
the entire page??
(if that's even possible :)
tnx in advance
--
Bastiaan v/d Berg ; aka buZz
Internet Specialist
Account Software Consultancy
-[ http://www.asc.nl/ ]-[ office@asc.nl ]-
-[ http://huizen.ddsw.nl/bewoners/buzz/ ]-[ buzz@ddsw.nl ]-
------------------------------
Date: 11 Jun 1999 11:20:38 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: how do i refresh frames from perl?
Message-Id: <3760e2f6@newsread3.dircon.co.uk>
Bastiaan S van den Berg <office@asc.nl> wrote:
> hiya
>
> since my last post didn't get much reply.. i redefined my question..
>
> i need to update a frame with new values , how can i export information to
>
You didnt get much reply because this is not really a Perl question -
it is one that should be asked in comp.infosystems.www.authoring.cgi
or preferably the CGI FAQ - <http://www.webthing.com/tutorials/cgifaq/html>
Alternatively if you are using the module CGI.pm you should see the
section in it documentation entitled:
WORKING WITH NETSCAPE FRAMES
/J\
--
"Buzz Aldrin was the second man to walk on the moon and the first to
fill his pants" - Violet Berlin, The Big Bang
------------------------------
Date: 11 Jun 1999 10:43:15 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How do I split this string into an array of words: CAR, DOG, "PIG,4", 5 split into ('CAR', 'DOG', 'PIG,4', '5') ?
Message-Id: <3760da33@newsread3.dircon.co.uk>
Snehanshu Shah <s_shah@ix.netcom.com> wrote:
> How do I split this string into array words using :
>
> CAR, DOG, "PIG,4", 5 => ('CAR', 'DOG', 'PIG,4', '5')
>
> I tried using split(',' , CAR, DOG, "PIG,4", 5 ) but that separate the word
> "PIG,4" into 2 words '"PIG' and '4"'
>
You will want to look in perlfaq4:
How can I split a [character] delimited string except when inside
[character]? (Comma-separated files)
/J\
--
"You're blowing me off for a monkey?" - Joey, Friends
------------------------------
Date: Fri, 11 Jun 1999 10:38:37 GMT
From: sitaram@diac.com (Sitaram Chamarty)
Subject: Re: Intersection of several lists
Message-Id: <slrn7lvnos.7k5.sitaram@diac.com>
On Thu, 10 Jun 1999 10:42:03 GMT, Sitaram Chamarty <sitaram@diac.com> wrote:
>On Tue, 08 Jun 1999 16:58:38 GMT, Thomas Weholt <u970130@studbo.hit.no> wrote:
>>Hi,
>>
>>I got several ( 3 - 15) lists that I need to put into one, containing
>>only the items that are in all the lists ( intersection ).
>
>Start with
>
> perlfaq -q intersect
Oops! I meant "perldoc" not "perlfaq"...sorry
------------------------------
Date: 11 Jun 1999 10:07:30 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Is there an MS-DOS perl that will use extended memory?
Message-Id: <3760d1d2@newsread3.dircon.co.uk>
Andrew J Perrin <aperrin@mcmahon.qal.berkeley.edu> wrote:
> Greetings-
>
> Odd question, I know - I'm trying to recycle an old laptop to do a
> particular job that involves its holding a rather large hash in memory.
> The laptop has 8Mb of RAM, of which 7 are reported free by DOS, but of
> course in good ol' DOS fashion it will only use the low memory area. Has
> anyone created a DOS perl binary (v 4 is fine) that can use extended
> memory?
>
You can get the version built with djgpp from :
<ftp://ftp.simtel.net/pub/simtelnet/gnu/djgpp/v2gnu/perl552b.zip>
You may well need the djgpp dpmi provider however which can be had at
<http://www.delorie.com>
/J\
--
"It's times like this I wish I had a penis" - Duckman
------------------------------
Date: Fri, 11 Jun 1999 08:39:02 GMT
From: Jason Eggleston <jason@eggnet.com>
Subject: mod_perl require problem
Message-Id: <7jqhv5$ao4$1@nnrp1.deja.com>
I have written a mod_perl cgi script that "require()"s another script.
Unfortunately, the functions in the script are not always available.
The script works about 1 out of every 2 tries.
The script:
#!/usr/bin/perl -w -T
BEGIN { require '/home/httpd/html/stdinc.pl'; }
local $| = 1;
use strict;
use CGI qw/-compile :standard *table end_td end_Tr/;
# ...........
My config is as follows:
PerlWarn On
PerlTaintCheck On
PerlModule Apache::Registry
PerlModule CGI
<Files *.pl>
order allow,deny
allow from all
SetHandler perl-script
PerlHandler Apache::Registry
Options ExecCGI
</Files>
Any help would be appreciated.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 11 Jun 1999 01:51:46 -0400
From: "Dmitry P." <dpodbori@email.msn.com>
Subject: NY Financial Community and NY City Hall Finally Acknowledge the Importance of Perl
Message-Id: <ekDza38s#GA.205@cpmsnbbsa02>
New York, Wed 06/10/1999
(by The Gotham Herald staff reporter Ping Box)
After months of heated debates and personal attacks, the financial community
of the City of New York together with the Mayor Giulliani's Administration
have finally decided to commemorate the role of The Perl Programming
Language in the unprecedentedly long peace-time economic expansion of the US
economy.
The city powers have officially announced about their decision to name a
street in down town Manhattan after the creator of the Perl language Larry
Wall. The street, from now on known as Wall Street, is considered by many to
be the most important one in that part of New York City.
The decision, criticized by some as grossly overdue, was however hailed by
the City Comptroller who called it "the most cost-effective renaming of a
New York street ever done".
Many red hat wearing New Yorkers and their guests from out of town gathered
on The Street to celebrate the event. Cheerful crowd applauded attempts by
several senior City Hall officials to perform Schwarzian transform in front
of the public, although only the most hardened ones managed to do it right.
Mr. Wall himself was unavailable for an interview.
------------------------------
Date: Fri, 11 Jun 1999 08:38:36 GMT
From: steeperhill@my-deja.com
Subject: Perl LWP mod on Win98
Message-Id: <7jqhub$ao0$1@nnrp1.deja.com>
Hi there...
I have a little problem maybe you guys (and gals) can help me with.
Im experimenting with the LWP::Simple get funtion, but cant get it to
work properly.
This is the script i use:
print "Content-type: text/html\n\n";
use LWP::Simple;
print <<HTMLcode;
<html>
<head>
<title>test</title>
</head>
<body bgcolor="#FFFFFF">
HTMLcode
$URL = "http://www.steeperhill.com/";
# $page = get($URL);
@page = split(/\n/,$page);
$start= 0;
foreach $line (@page){
print "$line\n"
}
print <<HTMLcode;
</body>
</html>
HTMLcode
However, if i run this script the browser just gets a blank default
HTML page. But if i comment out the 'use LWP::Simple;' line, it
delivers my HTML page (as printed from the perl script)...
Anyhow... If i run the script from DOS it delivers the whole stuff.. My
HTML header and footer plus the contents of @page. I really need to use
this functions, but i just cant get it to work..
Anybody please help me out here.
Im running this on a Wintel PIII 450 mhz win98 thru Smabar server with
ActiveState PERL 5.00503 but the script is heading for an NT machine
ultimately.
Thanks in advance
/emil
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 11 Jun 1999 11:31:25 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl LWP mod on Win98
Message-Id: <3760e57d@newsread3.dircon.co.uk>
steeperhill@my-deja.com wrote:
> Hi there...
>
> I have a little problem maybe you guys (and gals) can help me with.
> Im experimenting with the LWP::Simple get funtion, but cant get it to
> work properly.
> This is the script i use:
>
> print "Content-type: text/html\n\n";
> use LWP::Simple;
> print <<HTMLcode;
> <html>
> <head>
> <title>test</title>
> </head>
> <body bgcolor="#FFFFFF">
> HTMLcode
>
> $URL = "http://www.steeperhill.com/";
> # $page = get($URL);
>
> @page = split(/\n/,$page);
>
> $start= 0;
> foreach $line (@page){
> print "$line\n"
> }
>
> print <<HTMLcode;
> </body>
> </html>
> HTMLcode
>
>
> However, if i run this script the browser just gets a blank default
> HTML page. But if i comment out the 'use LWP::Simple;' line, it
> delivers my HTML page (as printed from the perl script)...
> Anyhow... If i run the script from DOS it delivers the whole stuff.. My
> HTML header and footer plus the contents of @page. I really need to use
> this functions, but i just cant get it to work..
> Anybody please help me out here.
>
Aside from not using -w or 'use strict;' there is nothing wrong with
your code - I think you ought to look at the HTML that it generates.
/J\
--
"What is the future for beef? Curtains?" - Graham Norton
------------------------------
Date: 11 Jun 1999 02:36:11 -0700
From: deanh@nwnet.net (Dean Hudson)
Subject: Re: Perl String , RE 's
Message-Id: <7jqlab$ih1@cypress.nwnet.net>
In article <7jorj0$nee$1@nnrp1.deja.com>, <jatgirl@yahoo.com> wrote:
>I have following expression that I need to manipulate in a Cgi/perl
>script. Cgi script receives following format from a web based form
>
>LastName, firstName, NIckName, Email LastName,FirstName,Nickname,Email
>LastName, FirstName,Nickname LastName,FirstName, Nickname, Email
First, make sure there isn't an easier way to set up your form data with
CGI.pm and descriptive names for your input tags.
Supposing your data is in an array as above (a line of data containing
an arbitrary numbers of entries ordered as implied) you could try
sending your data into an array of hashes:
# ----- code ----- #
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my @ar;
while ( <DATA> ) {
s/,\s+/,/g; # make the data easier to deal with
for ( split ) {
my ( $hsh );
@$hsh{ qw( last first nick email) } = split /,/;
push @ar, $hsh;
}
}
print Dumper @ar;
__END__
LastName0, firstName0, NickName0, Email0 LastName1,FirstName1,Nickname1,Email1
LastName2, FirstName2,Nickname2 LastName3,FirstName3, Nickname3, Email3
# ----- code ----- #
Here's what it looks like; once you've got this you can format it
however you like:
$VAR1 = {
'email' => 'Email0',
'first' => 'firstName0',
'last' => 'LastName0',
'nick' => 'NickName0'
};
$VAR2 = {
'email' => 'Email1',
'first' => 'FirstName1',
'last' => 'LastName1',
'nick' => 'Nickname1'
};
$VAR3 = {
'email' => undef,
'first' => 'FirstName2',
'last' => 'LastName2',
'nick' => 'Nickname2'
};
$VAR4 = {
'email' => 'Email3',
'first' => 'FirstName3',
'last' => 'LastName3',
'nick' => 'Nickname3'
};
BTW, one of the splits in the code you posted is broken. :(
dean.
--
--
dean hudson, <deanh@verio.net> Verio Systems Engineering
------------------------------
Date: Fri, 11 Jun 1999 10:27:18 GMT
From: Gareth Rees <garethr@cre.canon.co.uk>
Subject: Re: Perldoc and Perlfaq
Message-Id: <sid7z32fsp.fsf@cre.canon.co.uk>
Gareth Rees wrote:
> $ pod2man `pmpath Net::LDAP` | nroff -man
> /apps/perl5/bin/pod2man: Invalid man page - no documentation in /apps/perl5/lib/site_perl/5.005/Net/LDAP.pm
Tom Christiansen wrote:
> That is not valid documentation. Not my fault that people are
> subclued. They need to fix it. Period.
At the moment there's nothing in the perlmodlib manpage about this
requirement. If it is going to become a requirement that module
documentation be in the .pm file and not in a separate .pod file then it
ought to be a documented requirement.
--
Gareth Rees
------------------------------
Date: Fri, 11 Jun 1999 10:55:17 +0200
From: Harald Niklaus <niklaus@gif.de>
Subject: perlpod
Message-Id: <3760CEF5.28C040A9@gif.de>
I have tested the documentation of perl programs with the POD format.
After writing some perl programs i am not very stisfied with this format
and the tool pod2html. That's why i am looking for an other similar way
to make a html-documentation of my perl programs.
Any suggestions?
Harald Niklaus
------------------------------
Date: 11 Jun 1999 10:35:22 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: perlpod
Message-Id: <3760d85a@newsread3.dircon.co.uk>
Harald Niklaus <niklaus@gif.de> wrote:
> I have tested the documentation of perl programs with the POD format.
> After writing some perl programs i am not very stisfied with this format
>
> and the tool pod2html. That's why i am looking for an other similar way
> to make a html-documentation of my perl programs.
>
> Any suggestions?
>
You could always patch Pod::HTML to do what you wanted.
/J\
--
"When the boys in the playground found out that I had a potentially
fatal peanut alergy they would shove me up against a wall and make me
play Russian roulette with a bag of Revels" - Milton Jones
------------------------------
Date: 11 Jun 1999 03:07:38 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: perlpod
Message-Id: <yllndr82z9.fsf@windlord.stanford.edu>
Harald Niklaus <niklaus@gif.de> writes:
> I have tested the documentation of perl programs with the POD format.
> After writing some perl programs i am not very stisfied with this format
> and the tool pod2html. That's why i am looking for an other similar way
> to make a html-documentation of my perl programs.
Before giving up on POD, you may want to poke around CPAN. I believe
there's an alternate POD to HTML converter there that may do a better job
for you. (I'm not overly thrilled with the default output of pod2html
either, although it does get some stuff right.)
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Fri, 11 Jun 1999 11:36:06 +0100
From: "Dave Cross" <dave@dave.org.uk>
Subject: Re: Please Help!!
Message-Id: <7jqof3$qol$1@starburst.uk.insnet.net>
coneliberation@my-deja.com wrote in message <7jp6m0$s0u$1@nnrp1.deja.com>...
>The cone liberation society needs your help. We are an international
>organisation dedicated to liberating traffic cones, an we're updating
>our
>webpages. This is where we need someones help.
>
>We need to have a page where people can fill in details on a form so
>that
>they can join our organisation. We'd then like the form the details e-
>mailed
>to us. Unfortunately we don't have much experience in CGI scripts etc
>and
>need help.
There are many free scripts out there on the web that do this kind of thing.
You might try looking at <http://www.cgi-recourses.com>. Don't grab anything
by Matt Wright as they are Bad Scripts.
hth,
Dave...
p.s. Look, I didn't even mention my own form mail script available from
<http://www.mag-sol.com/Download.html>!
p.p.s. Damn!
------------------------------
Date: Fri, 11 Jun 1999 09:30:25 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: quiz for perl professionals
Message-Id: <RG483.68$Yr2.2033@news2.rdc1.on.home.com>
In article <x7d7z34vkz.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
! do-be-do-be-do! (my condolences to mel torme'e family)
damn you Uri...now I have to start my bad mood all over
again!
andrew
------------------------------
Date: Fri, 11 Jun 1999 09:45:07 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: quiz for perl professionals
Message-Id: <DU483.71$Yr2.2956@news2.rdc1.on.home.com>
In article <86pv336gen.fsf@dev-serv.nrl.navy.mil>,
Kiriakos Georgiou <kgnews@olympiakos.com> wrote:
[snip]
! How do you find the length of an array?
$length = @array; # everything else falls out from that.
andrew
------------------------------
Date: Fri, 11 Jun 1999 11:29:45 +0100
From: "Dave Cross" <dave@dave.org.uk>
Subject: Re: Require "No NT commands" on UNIX
Message-Id: <7jqo3c$pih$1@starburst.uk.insnet.net>
Ashish Kadakia wrote in message <929037819.19863@www.remarq.com>...
>I have following setup.
>
>Web Server running on NT
>CGI Directory is on Unix, as Mapped network drive on NT.
>ie..when I call CGI script it looks on UNIX box via mapped
>drive on NT.
>(my url reads http://www.mysite.com/cgi-bin/xyz.pl)
>
>In CGI script when I call
>open IN, "date|" it reads date command of NT and not unix.
>(You can tell the difference between NT-date and UNIX-date).
>
>How I can setup in CGI scripts or Perl Enviornment so that
>it will not go to NT for commands and read UNIX commands as
>I want to try several commands which are on UNIX and not on
>NT.
Others have discussed in detail the problems that you're having. I'd just
like to ask one question:
What do you think you can get from the Unix date command that you can't get
using 'localtime'?
Dave...
------------------------------
Date: Fri, 11 Jun 1999 03:18:15 -0700
From: TRG Software : Tim Greer <webmaster@chatbase.com>
To: DarStec <darstec@aol.com>
Subject: Re: sendmail doesn't work
Message-Id: <3760E267.7C329A7C@chatbase.com>
DarStec wrote:
>
> In article <7jb91i$44b$1@gellyfish.btinternet.com>, Jonathan Stowe
> <gellyfish@gellyfish.com> writes:
>
> >
> >On 05 Jun 1999 04:08:42 GMT DarStec wrote:
> >> In article <375616E1.E5C2BFD1@chatbase.com>, TRG Software : Tim Greer
> >> <webmaster@chatbase.com> writes:
> >>>
> >>>Free web server offering CGI... And you bring those troubles here? :-)
> >>>
> >>
> >> Let me get this right. Those that can't afford $100 or more a month for a
> >> "real" web host are not suppose to learn Perl, and should be excluded from
> >> asking questions and learning in this newsgroup?
> >>
> >
> >Leaving aside the fact that the sentence was followed by :-) which should
> >indicate to the reader the spirit in which it should be taken - I dont
> >see anywhere in that sentence where what you are saying is suggested.
> >
> >I think however that this group is not the appropriate place to be
> >asking questions about running Perl programs on a particular server, I would
> >hope that those services have helpdesks for things like that - and if they
> >dont then you should be considering whether you are really getting value
> >for money (yes even for free) from that service.
> >
> >/J\
> >--
> >Jonathan Stowe <jns@gellyfish.com>
> >Some of your questions answered:
> ><URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
> >Hastings:
> ><URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
> >
>
> Far too often, when making a snide comment, usenet authors use the ":-)"
> emoticon as a COVER for their criticism and sarcasm. Judging from the
> "attitude" of many regulars of this newsgroup, I chose to interpret this
> instance as such. Look at the sentence and think about it for a minute: "Free
> web server offering CGI... And you bring those troubles here?" In what other
> way can it be interpreted?
<SNIP.. blah blah blah....>
Look, if you have a problem with my post, then why not email me and ask
what I meant, rather then to "assume" what I meant. Unless you've rented
a room in my mind, I don't see how you can justify your conclusion, or
moreover so adamantly claim this *must* be what I meant. It was a
*joke*. There's a lot of people that host their scripts on a free
server, and it's often not only simple questions (which was never my
point), but questions that makes it difficult for us "regulars" to offer
any help with, due to the fact that we don't have the proper info about
their system, and the poster surely doesn't.
People on such free services often only have FTP access into their own
account's root directory, and they are unable to provide us with any
info about what is installed on the system, how the system is
configured, etc. Not that it's a big deal, and there's nothing wrong
with it (hence why I state I was JOKING), but often I find that these
people aren't taking advantage of their account's error logs (or
bothering to check) at the places that *do* offer such a thing, and it's
a lost cause for the people servers that do *not* offer such a thing.
So people post a question to the effect of "I'm having a problem with
one of Matt Wright's scripts. I'm on Hypermart.net and it's not
working". What I meant more then anything by that post, was to say that
they need to read the FAQ's and help/support sections of their free
server's site (as they have a lot of info the user's could certainly
use) before posting here. But I had mainly meant that as a joke, and
yes, that's why I put the :-). I admit I do use it for purposes of
"sarcasm" too at points, but I wasn't then. I will in the closing of
this email though, I'm sure. :-/
Next time you choose to believe something is most likely a fact based on
your interpretation/opinion, then feel free.. it's your right,
obviously. However, assuming you know what someone meant and to complain
about it when you might just be wrong, is not very impressive for one,
and further; It's usually a flawed technique. :-)
--
Regards,
Tim Greer: chatmaster@chatbase.com / software@linkworm.com
Chat Base: http://www.chatbase.com | 250,000+ hits daily Worldwide!
TRG Software: http://www.linkworm.com | CGI scripting in Perl/C, & more.
Unix/NT/Novell Administration, Security, Web Design, ASP, SQL, & more.
Freelance Programming & Consulting, Musician, Martial Arts, Sciences.
------------------------------
Date: Fri, 11 Jun 1999 11:06:09 +0200
From: "Bastiaan S van den Berg" <office@asc.nl>
Subject: Re: Silly old me
Message-Id: <7jqjl7$bom$1@zonnetje.NL.net>
hehe
learn like we do , surf ..
just goto www.perl.org or www.perl.com
it should answer all your questions
cul8r
buZz
CacheBoy heeft geschreven in bericht <7jq60i$p3p$3@godzilla.krdl.org.sg>...
>Hi, from the quality of the replies here, some of you really know your
>stuff.
>I would like to inquire abt who is the father/fathers of perl.
>
>Thanks. Pls understand that I am very new to perl and my knowledge is not
as
>much as most of you here so please refrain from giving me the
>you-mean-dont-know kind of answers.
>Once again thanks.
>
>
------------------------------
Date: 11 Jun 1999 10:08:45 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Taking a Poll.....
Message-Id: <3760d21d@newsread3.dircon.co.uk>
rkidd@luc.edu wrote:
> and I need your assistance. I plan on teaching myself Perl but I don't
> know which book to use. If you have and suggestions please email me at
> rkidd@luc.edu. Thank you. By the way I am a CS major with a background
> in C++.
Check out :
<http://reference.perl.com/query.cgi?books>
/J\
--
"It's times like this I wish I had a penis" - Duckman
------------------------------
Date: Fri, 11 Jun 1999 04:19:35 -0500
From: rlb@intrinsix.ca (Lee)
Subject: Re: waiting...
Message-Id: <B3863ED79668917E3@0.0.0.0>
In article <slrn7m0u6n.eco.hasant@borg.intern.trabas.co.id>,
hasant@trabas.co.id (Hasanuddin Tamir) wrote:
>On Thu, 10 Jun 1999 04:33:26 GMT,
>outlaw_torn <outlaw_torn@mailexcite.com> wrote:
>> In article <slrn7lt203.qks.hasant@borg.intern.trabas.co.id>,
>> hasant@trabas.co.id (Hasanuddin Tamir) wrote:
>>
>> > fork(), get the child's pid, exec(), send the pid some signal.
>> > That's basically...
>> >
>>
>> Thanks to both for the reply, but what then if I fork...I still have to
>> wait. The only way I can see to do that is with wait (which from my doco
>> says that the parent waits...and waits...and waits) or parse the ps
>> stuff until the child finishes, or kill it when the time is up. What I
>> basically need is a wait, which gives up waiting when necessary.
>
>did you go to perlipc manpage?
>how about perlfaq8?
Cookbook 16.19?
I think waitpid(... &WNOHANG) is what you're after.
Lee
------------------------------
Date: 11 Jun 1999 10:11:25 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: why short of 1 month ??
Message-Id: <3760d2bd@newsread3.dircon.co.uk>
NCB <eng80386@nus.edu.sg> wrote:
> Hi all ,
> Given
>
> ($sec ,$min,$hr,$mntdy,$mon,$yr,$wk,$yrdy,$stm)=localtime;
>
> why is the variable $mon which stands for month always slower by 1 month ??
>
Please examine the perlfunc documentatiion on localtime for an explanation
of this and other commonly misunderstood fetaures of this function:
perldoc -f localtime
/J\
--
"Gary Glitter pulls out of Children in Need" - BBC News Website
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 V8 Issue 5958
**************************************
