[15712] in Perl-Users-Digest
Perl-Users Digest, Issue: 3125 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 22 18:09:51 2000
Date: Mon, 22 May 2000 15:05:24 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <959033124-v9-i3125@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 22 May 2000 Volume: 9 Number: 3125
Today's topics:
"Static" hash across recurisive function <Jay@Buffington.net>
Re: a wacky idea (Craig Berry)
Re: Activestate perl <rootbeer@redcat.com>
Ask Expert about Perl5 DBM files <Qiang.Wu@motorola.com>
Re: Basic scripting question <dave@dave.org.uk>
Re: Building a hash array <james@208.23.123.242>
Re: Building a hash array <rootbeer@redcat.com>
Re: comparing dates <lr@hpl.hp.com>
Converting special chars... <dpegram@paragen.com>
Re: Converting special chars... <uri@sysarch.com>
Re: Converting special chars... <makarand_kulkarni@My-Deja.com>
Re: Converting special chars... <makarand_kulkarni@My-Deja.com>
diff <klowryNOklSPAM@fhlbatl.com.invalid>
Re: Does Perl not support the MSG_WAITALL flag for recv <rootbeer@redcat.com>
Re: Excluded strings from warnings <rootbeer@redcat.com>
Re: file handles - win32 internal structure <Luc-Etienne.Brachotte@wanadoo.fr>
Re: file locking <AgitatorsBand@yahoo.com>
Re: file locking <AgitatorsBand@yahoo.com>
Re: file locking <godzilla@stomp.stomp.tokyo>
Re: Form Script <rootbeer@redcat.com>
Re: Garbage Collection <rootbeer@redcat.com>
Re: getgrnam function on Win32 <rootbeer@redcat.com>
Re: Getting rid of leading and trailing spaces <rootbeer@redcat.com>
Re: Global variables to apply to multiple Perl scripts <lr@hpl.hp.com>
Re: Help with emailing files <rootbeer@redcat.com>
Re: help (Abigail)
Re: How to COPY a website (Mark-Jason Dominus)
Re: IP Address Query <rootbeer@redcat.com>
Re: Mixed results! <hassoun@sympatico.ca>
Modules: creating man pages <apietro@my-deja.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 23 May 2000 03:36:04 -0500
From: Jay Buffington <Jay@Buffington.net>
Subject: "Static" hash across recurisive function
Message-Id: <392A42F4.AE3D0306@Buffington.net>
I've written a recursive function which prompts the user for input. The
input is validated by information that is in a plaintext file (the
filename is in the global hash $param{communityfile}). If the base case
is not reached (i.e. recursion occurs) the %communities hash should not
be rebuilt (why reopen the file?).
I'm not entirly familiar with BEGIN {}; I believe I may be improperly
using it? Below is what I came up... Is there a better way to do this?
Thanks
Jay
--------Code begins here-------
# prompt the user for the community, validate it, and return it
BEGIN {
my %communities;
sub getcommunity {
my $community;
my @entry;
# read in the communities (keys) and their descriptions (values) unless
I already have
unless (defined %communities) {
my $fh = FileHandle->new;
open $fh, $param{communityfile} or die "Couldn't open
community file $param{communityfile}: $!\n";
while (<$fh>) {
next if (/^(#|\n)/);
@entry = split ":";
$communities{$entry[0]} = $entry[6];
}
close $fh;
}
print "Please enter the community the users should belong to (?
for a list): ";
chomp($community = <STDIN>);
if ($community eq '?') { printcommunities(\%communities); return
getcommunity(); }
if (!defined $communities{$community}) {
print "The community \"$community\" is invalid.";
getcommunity();
}
return $community;
}
}
------------------------------
Date: Mon, 22 May 2000 20:20:52 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: a wacky idea
Message-Id: <sij5l4gjo1149@corp.supernews.com>
Jonah (nomail@nomail.com) wrote:
: Ok, is it possible to run a perl script from a graphic on a standard
: html page?
:
: Example.
: <img src="http://www.server.com/cgi-bin/image.cgi">
Not merely possible, but done routinely. The image.cgi script has to
return an appropriate MIME header, followed by the properly-formatted
binary graphic data. Works like a charm.
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "The road of Excess leads to the Palace
of Wisdom" - William Blake
------------------------------
Date: Mon, 22 May 2000 12:04:00 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Activestate perl
Message-Id: <Pine.GSO.4.10.10005221201500.23375-100000@user2.teleport.com>
On Mon, 22 May 2000, Colin Chaplin wrote:
> Subject: Activestate perl
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> My application didn't work, which I couldn't understand, and to help
> debugging I put in this snippet of code:
>
> print "T: $testy SH: $starthash FH $finhash<BR>";
>
> if (($testy > $starthash) && ($testy < $finhash))
> {
It's hard to imagine where you might have put that snippet into your
source without causing (or curing) a syntax error.
Unless you tell us what you really did, it's pretty-near impossible for us
to know what's going on.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 16:21:53 -0500
From: Qiang Wu <Qiang.Wu@motorola.com>
Subject: Ask Expert about Perl5 DBM files
Message-Id: <3929A4F1.E21BAEB7@motorola.com>
Here is my problem:
I am using perl 5.005_03 built for sun4-solaris
I want to convert a text file to a DBM file. This text file
contains 150000 records. I tried NDBM, SDBM and ODBM and failed all the
times.
I wrote a program like this:
tie(%data,....);
while (<f1>) {
# get the key and val from the line
$data {$key} = $val;
};
untie (%data);
Here is the error message during the process :
ndbm store returned -1, errno 0, key "10314063" at ./text_to_dbm line
51, <f1> chunk 75517.
chunk 75517. 75517 is the line number where key '10314063' exists in the
text file
'10314063' is the unique of the record. If I skip this record, the
similar error will happen in another record.
The other thing I don't understand is the size of the file generated.
The generated DBM file has two files .pag and .dir
ls -l *pag
-rw-r--r-- 1 ide ide 243567616 May 22 07:46
cid-to-record.pag
du *.pag
19104 cid-to-record.pag
If you use ls, the file size is more than 200M. While you use du, the
file size is no more than 20M.
I even tried the same procedures on another machine, failed with the
same rfesult.
I worked on this for one month and hope you can help me out.
Thanks in advance,
Qiang
------------------------------
Date: Mon, 22 May 2000 19:14:28 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: Basic scripting question
Message-Id: <27uiisk0mhdsgh9tlmq9np0ipaboiemlv3@4ax.com>
On Mon, 22 May 2000 12:58:29 -0400, e adams
<adams@mrclin1.med.yale.edu> wrote:
>Hi,
>I'm new Perl user and would like to know if there is a way to write
>script that, for example, deletes every 3rd line in a file. I am able to
>substitute every 3rd line with a blank line but I can not delete the
>line unless I go into an editor and do it manually.
>Thank you for any advice
No need for a script, it's simple enough from the command line
perl -i.bak -n -e "print if $.%3" text.txt
hth,
Dave...
--
<http://www.dave.org.uk> SMS: sms@dave.org.uk
yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
"There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: Mon, 22 May 2000 16:53:04 -0700
From: James Tolley <james@208.23.123.242>
Subject: Re: Building a hash array
Message-Id: <3929C860.91CEE10A@208.23.123.242>
jimmy_mcnamara@my-deja.com wrote:
>
> I'm reading arguments from the command line using a perl script. One
> of the arguments say $ARGV[5] will be of the form jim~jack~jill.
> can I make a hash array of that
> data so I can access it using something similar to the following
> construct:
I think you want an arrayref, not a hash, right?
> foreach (@$AccountAliasList)
> {
> # $_ read each line of array on each pass
> if($_ eq $AccountAlias)
> {
>
> Where the elements of the hash array would comprise of jim, jack and
> jill
$AccountAliasList = [ split('~', $ARGV[5]) ];
hth,
James
------------------------------
Date: Mon, 22 May 2000 13:55:43 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Building a hash array
Message-Id: <Pine.GSO.4.10.10005221353100.23375-100000@user2.teleport.com>
On Mon, 22 May 2000 jimmy_mcnamara@my-deja.com wrote:
> Subject: Building a hash array
What do you mean by the term "hash array"? Do you mean a hash of
(references to) arrays? Do you mean a hash? Do you mean something else?
> $ARGV[5] will be of the form jim~jack~jill. This is probably a very
> trivial question but can I make a hash array of that data so I can
> access it using something similar to the following construct:
> foreach (@$AccountAliasList)
Maybe you want this?
$AccountAliasList = [ split /j*/, $ARGV[5] ];
Then again, probably not; there's no hash in there. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 12:19:48 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: comparing dates
Message-Id: <MPG.13932830195b597b98aaad@nntp.hpl.hp.com>
In article <B54DC37A.B04%john@digitalmx.com> on Sun, 21 May 2000
16:46:51 -0700, John Springer <john@digitalmx.com> says...
...
> OK, to compare dates you need to get them into "julian" format:
> number of seconds since Jan 1 1970.
> Time::Local (which ships with standard perl) will do that, if you can
> get the text form of the date in the right format.
>
> Here's a routine that parses the input date and sends it to Time::Local
> to get the Julian date.
The 'Julian date' is not the number of Unix-epoch seconds. It is a term
used primarily by astronomers to denote the number of days since a
specific time in the prehistoric past, but not the Unix Epoch. See also
'Modified Julian Date', which refers to an epoch in the 19th century.
This mischaracterization is perpetuated by the ill-named '%j' strftime
format, which gives the serial number of the day of the year.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 22 May 2000 20:33:35 GMT
From: "David A. Pegram" <dpegram@paragen.com>
Subject: Converting special chars...
Message-Id: <3929A418.9646AF24@paragen.com>
How can I convert a special character within a string to some other
character?
For example, I'd like to convert "ö" to "o".
TIA,
David
------------------------------
Date: Mon, 22 May 2000 21:23:06 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Converting special chars...
Message-Id: <x7g0rae0ue.fsf@home.sysarch.com>
>>>>> "DAP" == David A Pegram <dpegram@paragen.com> writes:
DAP> How can I convert a special character within a string to some other
DAP> character?
DAP> For example, I'd like to convert "ö" to "o".
$string =~ tr/\366/o/ ;
perldoc perlop
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: Mon, 22 May 2000 14:26:33 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Converting special chars...
Message-Id: <3929A608.A623B194@My-Deja.com>
> For example, I'd like to convert "ö" to "o".
perldoc -f tr
perldoc -f perlop
--
------------------------------
Date: Mon, 22 May 2000 14:29:30 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Converting special chars...
Message-Id: <3929A6BA.ADF8287B@My-Deja.com>
> perldoc -f perlop
I mean perldoc perlop
--
------------------------------
Date: Mon, 22 May 2000 12:36:32 -0700
From: crotchless gespatcho <klowryNOklSPAM@fhlbatl.com.invalid>
Subject: diff
Message-Id: <00d6b246.ea413e80@usw-ex0104-031.remarq.com>
I found a perl diff that did not need the module on CPAN ( from
a ng link). The diff code was all one line, though. Does
anyone know where I can get the perl diff script (that does not
need the Algorithm::diff module) in a form that I can copy/paste
or download.
TIA,
Kermit Lowry, III
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Mon, 22 May 2000 13:51:31 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Does Perl not support the MSG_WAITALL flag for recv?
Message-Id: <Pine.GSO.4.10.10005221338380.23375-100000@user2.teleport.com>
On Fri, 19 May 2000, Lorin Hochstein wrote:
> I tried to use a recv call with a flag of MSG_WAITALL, and I got an error of
> "Your vendor has not defined Socket macro MSG_WAITALL" (both on Windows NT
> and on Linux, same error). Does Perl not support this flag?
Perl supports it. But maybe you're using a version of Perl which doesn't
(yet) have it available. This may tell you something:
$ perl -lwe 'use Socket qw/ MSG_WAITALL /; print MSG_WAITALL;'
But even if your perl doesn't support it, and you can't upgrade, don't
give up all hope. You can use h2ph to convert your sys/socket.h file into
a .ph file which is usable via require.
Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 12:00:46 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Excluded strings from warnings
Message-Id: <Pine.GSO.4.10.10005221156570.23375-100000@user2.teleport.com>
On Sun, 21 May 2000, Bryan C. Warnock wrote:
> Can someone refresh my memory on why strings beginning with "di",
> "ds", and "ig" are explicitly excluded from having void context use
> reported?
Because those were once used for embedding the source code for a manpage
directly into a program, before POD was invented. An example of doing this
is found in the 'rename' program in the 'eg/' directory in the Perl source
distribution. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 20:09:19 +0200
From: Luc-Etienne Brachotte <Luc-Etienne.Brachotte@wanadoo.fr>
Subject: Re: file handles - win32 internal structure
Message-Id: <392977CF.96075875@wanadoo.fr>
In fact, a file handle is more or less simply a (win32) pointer to an internal
win-structure, where can be found, the file name, plus a lot of other interesting
informations: flags, device informations, numerical limits/pointers, and so on.
I'm sure there is some way to get this structure (it is possible when programming in C).
Then a call to unpack would permit to access all fields.
That was what I was asking in the first place. I was sure at least one person in the NG
knew how to.
------------------------------
Date: Mon, 22 May 2000 18:42:56 GMT
From: Scratchie <AgitatorsBand@yahoo.com>
Subject: Re: file locking
Message-Id: <QcfW4.87$uW4.21090@news.shore.net>
Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
: Jill, Jackie and John are our corporate officers,
: President, Vice-President and CEO, respectfully.
: Always knew my doctorate in English would pay
: off one of these here days.
This is comedy, right?
--Art
------------------------------
Date: Mon, 22 May 2000 18:46:37 GMT
From: Scratchie <AgitatorsBand@yahoo.com>
Subject: Re: file locking
Message-Id: <hgfW4.88$uW4.21090@news.shore.net>
Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
: USENET guidelines, paraphrased, indicate:
: "Flaming for spelling, punctuation, grammar errors
: and similar, will earn you a Slime Badge."
: "Use of personal level insults is a well practiced
^^^^^^^^^^^^^^
: art of blithering idiots."
: Nobody forces you or others to engage
: in these types of sociopathic behaviors.
^^^^^^^^^^^
: Yours is a personal freewill choice. You
: have only yourself to fault.
This *IS* comedy! ROFLMAO!
--Art
------------------------------
Date: Mon, 22 May 2000 11:47:35 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: file locking
Message-Id: <392980C7.B3EFF48@stomp.stomp.tokyo>
Scratchie wrote:
> Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
> : Jill, Jackie and John are our corporate officers,
> : President, Vice-President and CEO, respectfully.
> : Always knew my doctorate in English would pay
> : off one of these here days.
> This is comedy, right?
For myself, yes indeed.
For others, I kinda think
they didn't find this very
humorous at all.
* wipes rotten egg off her skirt *
...not very humorous at all.
I do kinda like my subtle take-off
on Jack and Jill though. Has a modern
day lesbian twist.
Godzilla!
------------------------------
Date: Mon, 22 May 2000 11:55:59 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Form Script
Message-Id: <Pine.GSO.4.10.10005221154340.23375-100000@user2.teleport.com>
On Sun, 21 May 2000, Marcus Ouimet wrote:
> I am trying to find a perl script that will send the info for a form
> not using sendmail.
If you're wishing merely to _find_ (as opposed to write) programs,
this newsgroup may not be the best resource for you. There are many
freeware and shareware archives which you can find by searching Yahoo
or a similar service.
> For some reason the script I am using gives no errors but does the
> following:
>
> Sends to:
>
> something@something.com
> something.something.com
> something@something.ca
> something@something.com.au
>
> Will not send to:
>
> something@sk.sympatico.ca
> something@websurfer.co.za
If your program is using sendmail, perhaps you want to search for the
docs, FAQs, and newsgroups about sendmail.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 11:54:19 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Garbage Collection
Message-Id: <Pine.GSO.4.10.10005221150320.23375-100000@user2.teleport.com>
On Mon, 15 May 2000, Tim wrote:
> The docs say simple reference counting with mark and sweep on thread
> termination. They also say better garbage collection is planned, but
> give no details.
Maybe some day we'll have something better, if you want to implement it.
:-)
> Is there something in the works? I did a little digging, but came up
> with nothing. I would be very interesting in finding out what Perl is
> up to.
Maybe you want to check out this URL:
http://www.perl.com/pub/q/archivep5p
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 11:45:46 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: getgrnam function on Win32
Message-Id: <Pine.GSO.4.10.10005221145180.23375-100000@user2.teleport.com>
On 19 May 2000, James Francisco wrote:
> Is the getgrnam function implemented in perl for Win32
I doubt it; what would it do? Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 12:11:39 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Getting rid of leading and trailing spaces
Message-Id: <Pine.GSO.4.10.10005221211220.23375-100000@user2.teleport.com>
On 22 May 2000, Gabriel Kihlman wrote:
> What is wrong with \s ? Like in $x =~ s/^\s*|\s*$//g;
Do you mean, besides what the FAQ says? :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 14:12:12 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Global variables to apply to multiple Perl scripts
Message-Id: <MPG.1393428455ba8d1a98aab0@nntp.hpl.hp.com>
In article <8gbb3p$5kj$1@sshuraac-i-1.production.compuserve.com> on Mon,
22 May 2000 14:01:37 +0100, A Pietro <apietro@my-deja.com> says...
> I have got it to work using:
>
> foreach $i
>
> then:
>
> rename ("$i.new", "$i") or die $!;
>
> It was failing on the $_ rename for some reason.
Probably failure to chomp() the input string. open() ignores trailing
whitespace on a filename; rename() doesn't.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 22 May 2000 14:38:12 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Help with emailing files
Message-Id: <Pine.GSO.4.10.10005221435490.23375-100000@user2.teleport.com>
On Mon, 22 May 2000, Robert Gasiorowski wrote:
> here is a part of email.cgi ( it does work for the guy who wrote it ):
Then maybe your sendmail isn't configured like the sendmail for someone
else.
If you're giving sendmail the right data, and it's still not working,
that's a problem with sendmail. If you're not giving it the right data,
that's a problem with your program - so check the sendmail docs to find
out what the right data are.
But you could, perhaps, use a module from CPAN to do what you want. Since
that's likely to be better tested and debugged than email.cgi is, you may
find that easier to use.
Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 22 May 2000 20:40:17 GMT
From: abigail@foad.org (Abigail)
Subject: Re: help
Message-Id: <slrn8ij6ph.1bm.abigail@ucan.foad.org>
On Mon, 22 May 2000 10:04:12 -0400, Guest <guest@yale.edu> wrote:
++ I am a beginner at perl and I have been using perl for text editing and
++ formatting.
++ I have been trying to take a text file which is over 2000 lines long and
++ basically
++ trying to delete lines for example delete every other 3rd line in the
++ file. I can
++ write a script to substitute every 3rd line with a blank line but not
++ really
++ delete the line unless I go into an editor and do it manually. I was
++ wondering
++ if there is an easy way in perl to do this?
Behold the power of the command line switches:
perl -ni -we 'print if $. % 3' file
Abigail
------------------------------
Date: Mon, 22 May 2000 19:37:29 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: How to COPY a website
Message-Id: <39298c79.5fee$12a@news.op.net>
In article <m1aehsr9md.fsf@halfdome.holdit.com>,
Randal L. Schwartz <merlyn@stonehenge.com> wrote:
>>>>>> "Bob" == Bob Long <bob@oblong.take_it_out.com.au> writes:
>
>Bob> Teleport Pro from www.tenmax.com .
>
>Which is blocked on my website because it has been shown not to
>respect robots.txt. Evil Product. Do not buy. Do not promote.
Yeah, it's a real stinker. It appears that whoever wrote it couldn't
figure out how to tell it not to fetch the same document twice, and so
it has a propensity to get stuck in loops, fetching the same files
over and over and over.
Amazingly, people continue to pay real money for it.
------------------------------
Date: Mon, 22 May 2000 14:25:17 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: IP Address Query
Message-Id: <Pine.GSO.4.10.10005221358240.23375-100000@user2.teleport.com>
On Mon, 22 May 2000, soulfly wrote:
> can anyone help me in getting the ipaddress from winx/nt machines with
> a perl-script.
Do you mean this?
my $address = '127.0.0.1';
Or do you want the Net::DNS module?
http://search.cpan.org/search?dist=Net-DNS
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 May 2000 18:56:58 GMT
From: Hassoun <hassoun@sympatico.ca>
Subject: Re: Mixed results!
Message-Id: <39298578.4518E2A2@sympatico.ca>
thanks for you all. your answers really helped me.
i am using MacPerl 5.2.0r4 and CGI.pm v2.45 on a G3. i have installed
CGI.pm according to the appropriate litterature:
http://ptf.com/macperl/ptf_book/r/MP/310.Extensibility.html,
but i am still having the same problem. i have built my forms in .html
files according to HTML 4.0. do i need to rebuild them as cgi scripts?
thanks a lot.
Jonathan Stowe wrote:
>
> On Wed, 17 May 2000 14:31:35 GMT Hassoun wrote:
> > hi
> >
> > after collecting data from an HTML form, my cgi script returns all the
> > data but in a random order. is there a way to return it in the same
> > sequence of the form? any clues?
> >
>
> You are not using CGI.pm then. From the section of that module's manpage
> entitled :
>
> FETCHING THE NAMES OF ALL THE PARAMETERS PASSED TO YOUR
> SCRIPT:
>
> You will read:
>
> NOTE: As of version 1.5, the array of parameter names
> returned will be in the same order as they were submitted
> by the browser. Usually this order is the same as the
> order in which the parameters are defined in the form
>
> /J\
> --
> When I look at the smiles on all the children's faces,,...I just know
> they're about to jab me with something.
> --
> fortune oscar homer
------------------------------
Date: Mon, 22 May 2000 21:55:58 +0100
From: "A Pietro" <apietro@my-deja.com>
Subject: Modules: creating man pages
Message-Id: <8gc6t4$aae$1@sshuraaa-i-1.production.compuserve.com>
I have used h2xs to create a Perl module.
h2xs creates a man page from the POD, I think.
But how can I read the manual page for MyModule::Config?
I have tried man MyModule etc... but no luck.
Thanks
AP
------------------------------
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 3125
**************************************
