[12700] in Perl-Users-Digest
Perl-Users Digest, Issue: 109 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jul 11 13:07:23 1999
Date: Sun, 11 Jul 1999 10:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 11 Jul 1999 Volume: 9 Number: 109
Today's topics:
Re: checking Perl offline (Kai Henningsen)
Re: checking Perl offline (Michael Rubenstein)
Re: extracting domains from whois query (Tad McClellan)
from a pipe <dgrogan@erols.com>
Re: Help: creating files through a CGI <nospam@nospam.nospam>
How do I keep all values for duplicate keys in hashes. <john@hendigital.com.au>
Re: How secure is my Perl code on the web? <wagener@cs.fsu.edu:NOSPAM>
Re: How to dereference an array reference? (Tad McClellan)
Re: How to dereference an array reference? (Tad McClellan)
Re: How to dereference an array reference? (Philip 'Yes, that's my address' Newton)
Re: Idiot requires help (Tad McClellan)
Re: Ignoring the first line of a file <bwebb@fred.net>
Re: Ignoring the first line of a file <uri@sysarch.com>
md5 passwords via perl <witchy@netserv.net.au>
Re: Need Expert Help! (Tad McClellan)
Re: Net:Telnet.pm question <dfontain@cisco.com>
Re: OBJECT THRESHOLD OF PERL? <tobez@plab.ku.dk>
Perl compiler and editor for palm pilot <brigadier1@earthlink.net>
Re: PERL: read dir and print out its files - Engels <rusenet@bigfoot.com>
Re: PERLFUNC: tr/// - transliterate a string (Philip 'Yes, that's my address' Newton)
Re: Use a Perl Module w/o Installing It? (Tad McClellan)
Re: Waiting to exhale...actually for user to hit a key. (Tad McClellan)
Re: Waiting to exhale...actually for user to hit a key. (Philip 'Yes, that's my address' Newton)
Re: Zip codes... <garyg@gator.net>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Jul 1999 11:55:00 +0200
From: kaih=7Kg6nySHw-B@khms.westfalen.de (Kai Henningsen)
Subject: Re: checking Perl offline
Message-Id: <7Kg6nySHw-B@khms.westfalen.de>
tchrist@mox.perl.com (Tom Christiansen) wrote on 08.07.99 in <3784d28c@cs.colorado.edu>:
> Wait. Offline means away from the computer. You know, analogue.
> It doesn't mean that your internetty is brokey.
That's an interesting definition, Tom. Do you think anybody actually uses
it?
As far as I can remember, "online" vs. "offline" always referred to
connections between computers. For example, "online" was when your modem
was connected to the modem at the BBS. These days, it's usually the
Internet dialup.
(Ok, it can also refer to computer parts - see taking a tape offline.)
There's one exception that I know of, and that's in reference to netnews -
the jargon file claims "offline" means "by email".
Kai
--
http://www.westfalen.de/private/khms/
"... by God I *KNOW* what this network is for, and you can't have it."
- Russ Allbery (rra@stanford.edu)
------------------------------
Date: Sun, 11 Jul 1999 16:33:54 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: checking Perl offline
Message-Id: <378ac6b1.46744775@nntp.ix.netcom.com>
On 11 Jul 1999 11:55:00 +0200, kaih=7Kg6nySHw-B@khms.westfalen.de
(Kai Henningsen) wrote:
>tchrist@mox.perl.com (Tom Christiansen) wrote on 08.07.99 in <3784d28c@cs.colorado.edu>:
>
>> Wait. Offline means away from the computer. You know, analogue.
>> It doesn't mean that your internetty is brokey.
>
>That's an interesting definition, Tom. Do you think anybody actually uses
>it?
>
>As far as I can remember, "online" vs. "offline" always referred to
>connections between computers. For example, "online" was when your modem
>was connected to the modem at the BBS. These days, it's usually the
>Internet dialup.
From the Oxford English Dictionary certainly does not agree with
Tom:
off-line
...
2. Computers. Not on-line; other than on-line.
...
1969 Sunday Times (Colour Suppl.) 16 Feb. 22/3 The
clearance and updating must be done when the computer
is..‘off-line’, i.e. is uncoupled from any systems that
the computer itself is controlling.
1972 Accountant 26 Oct. 530/2 Off-line operation at
Hendon is through a Varian 6201 computer and dual tape
unit, transferring data to tape for processing later on +
the 370/145.
The New Shorter Oxford English Dictionary (which is more recent
than the OED) reports both definitions:
2 Computing. Not online. Also, not connected, not in
operation.
--
Michael M Rubenstein
------------------------------
Date: Sun, 11 Jul 1999 07:32:09 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: extracting domains from whois query
Message-Id: <pbv9m7.tga.ln@magna.metronet.com>
webmaster@inlandpac.com wrote:
: OK. I am trying to perform a whois '$name.' and extract the domains
: that are output as $results.
: I want to extract only the list on the right hand side (the domains).
: Can anyone please help me with this?
----------------------
#!/usr/bin/perl -w
use strict;
my @domains = grep s/.* //, <DATA>;
chomp @domains;
foreach (@domains) {
print "$_\n";
}
__DATA__
PEPSI-LACROSS.COMPepsi-Cola (PEPSI-LACROSSE-DOM) PEPSI-LACROSSE.COM
Pepsi-Cola (PEPSI-MANKATO-DOM) PEPSI-MANKATO.COM
Pepsi-Cola (PEPSI-ROCHESTER-DOM) PEPSI-ROCHESTER.COM
Pepsi-Online.com (PEPSI-ONLINE3-DOM) PEPSI-ONLINE.COM
Pepsi-Online.net (PEPSI-ONLINE-DOM) PEPSI-ONLINE.NET
Pepsi-Online.org (PEPSI-ONLINE2-DOM) PEPSI-ONLINE.ORG
----------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 11 Jul 1999 11:34:56 -0400
From: Don Grogan <dgrogan@erols.com>
Subject: from a pipe
Message-Id: <3788B9A0.CB0A27B@erols.com>
I wanted grep for dos. I wrote this script
$pat=$ARGV[0];
$pat=~tr/a-z/A-Z/;
@dir=`dir`;
for (@dir){
if ($_=~$pat){
print $_ }; }
But it doesnt work with any output. With this I just go to a directory
and type
grep <pattern>
Can anyone tell me how I access something from a pipe? Like if I wanted
to do
type autoexec.bat |grep <pattern>
How would I access the output from the type command? Thanks for any
help.
------------------------------
Date: Sun, 11 Jul 1999 22:18:47 +0800
From: "Calvin" <nospam@nospam.nospam>
Subject: Re: Help: creating files through a CGI
Message-Id: <7ma8vs$e42$1@hfc.pacific.net.hk>
Why can't do that? As you set the whole directory, every one can delete
it. They don't need to have your username and password. How about another
user on the server go into your directory and delete the information?? Of
course, there are still some methods can delete or change ur information as
you changed the permission to be writable by anyone.
------------------------------
Date: 11 Jul 1999 22:58:45 -0800
From: "John Hennessy" <john@hendigital.com.au>
Subject: How do I keep all values for duplicate keys in hashes.
Message-Id: <01becbad$6fef7f60$f34f39cb@stingray>
I have a simple while loop that contains a couple of hashes.
The first hash holds real names with unique login names as the key.
The second hash is the opposite holding the login name with the real name
as the key.
My problem arises when I have matching real names as keys. The hash stores
only
the last value for that key.
I need to be able to sort by real name without loosing values.
Obviously having unique login names as keys avoids this problem.
Thanks
John.
------------------------------
Date: Sun, 11 Jul 1999 11:00:54 -0400
From: "Brian Wagener" <wagener@cs.fsu.edu:NOSPAM>
Subject: Re: How secure is my Perl code on the web?
Message-Id: <7mabcb$a3a$1@news.fsu.edu>
>I don't think you understand what he means. If you tell your webserver
>to display a cgi script instead of executing it, it probably will. In
>this case, I think *you* are your own biggest security risk, because
>*you* don't know what you're doing.
>
>I feel sorry for Florida State U. (or whomever you work for).
Oh I forgot that some people were actually born with all the knowledge. But
for me I am still a student at FSU, and I am just trying to learn. Thanks
for nothing.
------------------------------
Date: Sun, 11 Jul 1999 05:38:53 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: How to dereference an array reference?
Message-Id: <dno9m7.37a.ln@magna.metronet.com>
theoddone33 (anonymous@web.remarq.com) wrote:
: I must ask why these are violations.
^^^^^
What "these"?
It is customary to include some context for followups.
With the vagaries of NNTP, it is entirely possible that the
article containing the anonymous "these" has not yet reached
a reader's spool.
So they don't know what you are talking about.
Dialogs are oh so much better when you get access to all
that is being said...
: As for serving as a help desk,
: Usenet is for people of like interests who wish to
: converse, but certainly using technical groups to find
: answers to questions is another major purpose of Usenet in
: general.
No, you have it wrong there.
Using technical groups to find answers to questions
*that have not already been adequately answered* is a
major purpose of Usenet.
Frequently Asked Questions have already been adequately answered.
The purpose of going to an amuzement park is to ride the rides.
Standing in line slows you down in the pursuit of your purpose.
So you should ignore them, and just go right to the front.
Go ahead. Nobody will mind...
: One more thing, when advising someone to read the faq for
: this newsgroup, it would help that person out if you could
: provide a web address for someone to reach that faq.
*boggle!*
The docs *come with* perl.
If you have perl, you already have the docs installed on your
hard disk.
If you don't have perl, then what on earth are you doing
posting to a Perl newsgroup?
------------------------------------------------------------------------
In article <1995Nov9.193745.13694@netlabs.com>, lwall@netlabs.com (Larry
Wall) wrote: ...
<Larry> [snip] I view a programming language as a place to be
<Larry> explored, like Disneyland. You don't need to have a lot of preparation
<Larry> to explore a theme park. You do have to go along with the crowd
<Larry> control measures, though. In a sense, each ride has its own
<Larry> prerequisites--if you cut in line, you risk getting tossed out of the
<Larry> park.
<Larry>
<Larry> What we have here in this newsgroup is a failure in crowd control.
<Larry> Reading the FAQ is like staying in line--it's something you should
<Larry> learn in kindergarten. Usenet needs a better kindergarten.
------------------------------------------------------------------------
news.announce.newusers is Usenet's kindergarten.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 11 Jul 1999 07:40:03 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: How to dereference an array reference?
Message-Id: <jqv9m7.mma.ln@magna.metronet.com>
Calvin (citidancer@hongkong.com) wrote:
: Finally, please don't reply to this message on the news server. If you
: have something want let me know, just send it to my mail box
: (citidancer@hongkong.com) .
This is the most rude of all possible requests!
You are moving backwards in the continuum of good 'netiquette...
We are a _community_ here.
We like to help the community.
Hoarding answers and discussion is not it the best interests
of helping others, since the others cannot see any of it.
It is OK to ask for _copies_ to be emailed though, since the
rest of the community can still benefit from the answers/discussion.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 11 Jul 1999 16:53:02 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: How to dereference an array reference?
Message-Id: <3788c8aa.251838896@news.nikoma.de>
On Sun, 11 Jul 1999 05:38:53 -0400, tadmc@metronet.com (Tad McClellan)
wrote:
>theoddone33 (anonymous@web.remarq.com) wrote:
>
>: I must ask why these are violations.
> ^^^^^
>
> What "these"?
>
> It is customary to include some context for followups.
[...]
> Dialogs are oh so much better when you get access to all
> that is being said...
Note the *some* in Tad's text. Including some context does not mean to
quote the entire post; just quote the bits you are commenting on. (And
please put your comments *after* the quote, not before; most of us
humans read from the top to the bottom and experience time from the
past through present to future; hence having the past be at the top
and the present at the bottom makes more sense.)
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Sun, 11 Jul 1999 05:41:40 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Idiot requires help
Message-Id: <kso9m7.37a.ln@magna.metronet.com>
Tony (tony.mail@tesco.net) wrote:
: OK- maybe not such an idiot, at least I know where to ask for help !
You "know" incorrectly.
Language newsgroups (note the "lang" in the name) are for
discussing programming in that language.
Newsgroups with "jobs" in the name are for employment advertising.
: I'm working for a small company and we don not have a perl genius handy
: when wee need one - like now...
: So, if there is a kindly soul, who would like to offer some very
: basic advice on a very simple topic to some idots,
: please mail me ASAP.
I think you will have better luck finding a contractor if
you give some indication of the pay that you are offering.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 11 Jul 1999 10:54:49 -0400
From: "Robert E Webb" <bwebb@fred.net>
Subject: Re: Ignoring the first line of a file
Message-Id: <Bf2i3.63$hI2.128879@news.abs.net>
Of course Uri, I knew it would turn out to be a rookie mistake!.
Also, since the data portion of my data file ends with a keyword, I just
added an if ($_ =~ keyword) { print; exit;}, and that works as well. So I
did not have to do the array.
Also, David the -p needed to be changed to -n.
Final script looks like this:
#!/usr/bin/perl -i -n -w
#
# Perl Script to Clean Up a Cisco 'sh run' generated by Expect
# Deletes First Line, Removes ^M EOL, and exits when 'end' is found
# REW 7/11/99
next if $. == 1;
if ( $_ =~ /^end/ ) {
print;
exit;
}
tr/\cM//d;
print;
Thank you both for the reply.
Regards,
Bob/
Uri Guttman <uri@sysarch.com> wrote in message
news:x7k8s7pxp0.fsf@home.sysarch.com...
> >>>>> "REW" == Robert E Webb <bwebb@fred.net> writes:
>
> REW> #!/usr/bin/perl -i -p
>
> why no -w? it would have caught your error.
>
> REW> next if $.=1;
>
> do you know what the = operator does? do you know why it is the wrong
> operator to use to test a value? read perlop and look for another
> operator which is correct for this statement.
>
> REW> Also, the last 4 lines in the file are also unwanted data, but the
file
> REW> itself is variable in length, so I am not sure how to get rid of
those
> REW> lines.
>
> that is harder. you have to buffer up 4 lines and keep printing the
> oldest line when a new line comes in. this is easily done with an array
> and the push and unshift operators. i leave the rest as an exercise for
> you.
>
> uri
>
> --
> Uri Guttman ----------------- SYStems ARCHitecture and Software
Engineering
> uri@sysarch.com --------------------------- Perl, Internet, UNIX
Consulting
> Have Perl, Will Travel -----------------------------
http://www.sysarch.com
> The Best Search Engine on the Net -------------
http://www.northernlight.com
> "F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 11 Jul 1999 12:07:42 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Ignoring the first line of a file
Message-Id: <x73dyvp3u9.fsf@home.sysarch.com>
>>>>> "REW" == Robert E Webb <bwebb@fred.net> writes:
you shouldn't stealth cc me. bad boy. now i have to post what i mailed
to you.
REW> next if $. == 1;
REW> if ( $_ =~ /^end/ ) {
REW> print;
REW> exit;
REW> }
REW> tr/\cM//d;
REW> print;
perl golf time (untested for reasons of stealth but should work fine):
#!/usr/bin/perl -i -n -w
tr/\cM//d, print if 1 .. /^end/ ;
or as a one liner:
perl -ni -e 'tr/\cM//d, print if 1 .. /^end/'
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Sun, 11 Jul 1999 22:43:03 +0800
From: Greg Dickson <witchy@netserv.net.au>
Subject: md5 passwords via perl
Message-Id: <3788AD77.111E0BBC@netserv.net.au>
Im trying to get a handle on md5 password generation
has anyone got an idea how to generate a md5 encrypted string
from perl.
Thanks
Greg
--
Greg Dickson
('> witchy@netserv.net.au
//\ Linux System Admin,
v_/_ Perl and Java Programing
Margaret River Western Australia
------------------------------
Date: Sun, 11 Jul 1999 05:19:07 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Need Expert Help!
Message-Id: <bin9m7.37a.ln@magna.metronet.com>
Steven Smolinski (sjs@yorku.ca) wrote:
: BTW: Apparently if you ask a question here which is answered in one of the
^^^^
: many good FAQs
There is nothing specific to clpmisc in that.
You are expected to check the FAQs related to ANY newsgroup
before posting to that newsgroup.
: I am supposed to tell you to RTFM. So, there you go.
It is good form to give some clue as to what part of TFM
contains their answer.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 11 Jul 1999 12:16:28 -0400
From: "David Fontaine" <dfontain@cisco.com>
Subject: Re: Net:Telnet.pm question
Message-Id: <931725355.674405@sj-nntpcache-2.cisco.com>
Net:Telnet.pm questionHave you tried using dump_log? It shows you the input
and output of the telnet session
at the byte level.
Dave
Andrei Bergners <andreib@bellatlantic.net> wrote in message
news:19990707.17022800@earth.cities.lehman.com...
Hi,
I have been successful, in logging into remote hosts, and sourcing various
environments. There is one problem, when I run a specific command (querying
a daemon), on the remote host, I don't get a response, and afterward, none
of my commands work anymore.
How can I dig deeper into the problem and investigate what is happening?
Truss doesn't give me enough info.
Thanks,
Andrei
------------------------------
Date: Sun, 11 Jul 1999 16:39:32 +0200
From: Anton Berezin <tobez@plab.ku.dk>
Subject: Re: OBJECT THRESHOLD OF PERL?
Message-Id: <19990711163932.C39024@lion.plab.ku.dk>
On Sat, Jul 03, 1999 at 01:32:41PM +0000, J Perry Fecteau wrote:
> i read how it's not advised to have a deep inheritence tree but i'm if
> there are any numbers indicating how deep you can go without
> significantly hurting performance.
What do you mean saying ``significantly hurting performance''?
Perl 5.005_03:
#! /usr/bin/perl -w
package A00;
sub hello { my $class = $_[0]; }
sub packgen
{
my ($par) = @_; my $p = $par; $p++;
eval "package $p; \@ISA=qw($par);";
}
for ('A00'..'A89') { packgen $_; }
A00-> hello;
A50-> hello;
A90-> hello;
use Benchmark;
timethese 300000, {
zero => 'A00-> hello;',
fifty => 'A50-> hello;',
ninety => 'A90-> hello;'
};
__END__
Benchmark: timing 300000 iterations of fifty, ninety, zero...
fifty: 5 wallclock secs ( 3.90 usr + 0.00 sys = 3.90 CPU)
ninety: 4 wallclock secs ( 3.95 usr + 0.00 sys = 3.95 CPU)
zero: 5 wallclock secs ( 3.89 usr + 0.00 sys = 3.89 CPU)
--
Anton Berezin <tobez@plab.ku.dk>
The Protein Laboratory, University of Copenhagen
------------------------------
Date: Sat, 10 Jul 1999 23:04:17 -0400
From: "Brigadier" <brigadier1@earthlink.net>
Subject: Perl compiler and editor for palm pilot
Message-Id: <7mabhu$cn2$1@holly.prod.itd.earthlink.net>
Does anyone know if there is a perl compiler/interpreter, for a palm pilot
???
------------------------------
Date: Sun, 11 Jul 1999 18:33:37 +0200
From: "Rik." <rusenet@bigfoot.com>
Subject: Re: PERL: read dir and print out its files - Engels
Message-Id: <7magsi$6ij$1@enterprise.cistron.net>
Marcel <marcel.grunauer@lovely.net> schreef in berichtnieuws
378d8c27.8693760@enews.newsguy.com...
> On Sun, 11 Jul 1999 13:31:17 +0200, "Rik." <rusenet@bigfoot.com>
> wrote:
>
> >Can you help me?
> >
> >I'm trying to generate a list of files on our FTP server, but i can't get
it
> >to work.
> >I currently use this which results in a blank page:
> >
> >
> >#!/usr/local/bin/perl
>
> Please use the -w switch to have Perl generate warnings, also "use
> strict" like this:
>
> #!/usr/local/bin/perl -w
>
> use strict;
>
> Read perlfaq3: How do I debug my Perl programs?
>
>
> ># Major Instincts Drivers Check hardware listing Perl file
> >
> >print "Content-Type: text/html\n\n";
> >
> >$dir = "ftp.drivers-check.com/pub/updates/";
> >
> >opendir(DIR,$dir);
>
> Yes, that would be nice, wouldn't it?
>
> Last time I checked, opendir didn't accept URLs. Use the LWP modules
> instead.
>
> But even when you use opendir, and with system calls in general, you
> should always check the return value, like this:
>
> opendir(DIR,$dir) || die "can't opendir: $!\n";
>
> $! will then tell you what went wrong.
>
> >@file = readdir(DIR);
> >
> >loop: foreach $elem (@file) {
> >next if $elem eq ".";
> >next if $elem eq "..";
> >print "$elem\n";
>
> What is the loop: label for?
>
> >}
> >
> >
> >- what content-type code do i need to return plain text instead of html?
>
> text/plain
>
> >- is there a way to leav out the file-extentions (file.ext would become
file
> >in the listing)
>
> Sure, just strip off the extension.
>
> foreach (@file) {
> next if /^\.+$/;
> s/(.+)\..*/$1/;
> print;
> }
>
> This will skip '.' and '..', strip off the extension, but not on
> dotfiles (e.g., '.newsrc'), and print the rest.
>
> >- what can i do to get this thing to work? (widexs)
>
> Use LWP modules. See CPAN.
>
>
> Marcel
> --
> perl -e 'print unpack(q$u$,q$82G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R$)'
The script was ust basic.
The FTP is our own FTP, people will have to upload files in it and using
this perl script i create a filelist of that dir.
What is CPAN, i suppose its a newsgroup which i don't have.
Rik
------------------------------
Date: Sun, 11 Jul 1999 14:56:49 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: PERLFUNC: tr/// - transliterate a string
Message-Id: <3788ab59.244332933@news.nikoma.de>
On 10 Jul 1999 21:23:13 -0400, Uri Guttman <uri@sysarch.com> wrote:
> since tom controls the docs, it will be almost impossible
>to do other than to replace him with a clone.
tr/tom/clone/ ? SCNR.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Sun, 11 Jul 1999 05:48:20 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Use a Perl Module w/o Installing It?
Message-Id: <49p9m7.37a.ln@magna.metronet.com>
nkaiser@my-deja.com wrote:
: I have a Perl program which will be installed on many Unix machines. It
: uses the "Storable" Perl module. However, many of these machines will
: not have this module installed...and I will not have root access. Is
: it possible to somehow bundle this module and reference it that way?
Perl FAQ, part 8:
"How do I keep my own module/library directory?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 11 Jul 1999 05:52:02 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Waiting to exhale...actually for user to hit a key...
Message-Id: <2gp9m7.37a.ln@magna.metronet.com>
R.Joseph (streaking_pyro@my-deja.com) wrote:
: Subject: Waiting to exhale...actually for user to hit a key...
^^^
: In C you can use the function getch() to wait for a user to hit a key,
^^^
: then do something. In perl I have been using:
: unless (<STDIN>) { }
: but I realize this a stupid way to do it because the could hit anything
: but ENTER and it will not do what it is supposed to. Is there another
: way of doing this? (hopefully a function)
perldoc -w key
Finds several Frequently Asked Questions.
You are expected to check the FAQ *before* posting.
Perl FAQ, part 5:
"How can I read a single character from a file?
From the keyboard?"
Perl FAQ, part 8:
"How do I check whether input is ready on the keyboard?"
: Thanks!!
Uh huh.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 11 Jul 1999 16:53:03 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Waiting to exhale...actually for user to hit a key...
Message-Id: <3788c98d.252065810@news.nikoma.de>
On Sun, 11 Jul 1999 05:52:02 -0400, tadmc@metronet.com (Tad McClellan)
wrote:
> perldoc -w key
>
> Finds several Frequently Asked Questions.
That's perldoc -q key, actually. But Tad's still right about your
being expected to check the FAQ.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Sun, 11 Jul 1999 12:00:15 -0400
From: "Gary M. Greenberg" <garyg@gator.net>
Subject: Re: Zip codes...
Message-Id: <3788BF8F.E8708E9D@gator.net>
Jonathan Stowe wrote:
>
> >> i.e. returning a list of zip codes in a x mile radius of single zipcode?
> >>
> > Use Perl for perlish problems; imo this is a GIS problem;
> >
>
> But why shouldnt Perl be used for GIS ? I know I have .... ;-}
>
Me too; but this looks like it'd be easier to do using software like
ARC/INFO and a polygon coverage of target zipcodes.
Easier to find the cover than a properly populated ascii file, I'd
think.
Gary
-=- Avenue Programmers' Reference (Created with Perl) -=-
Class Hierarchy, Requests, and Hyperlinked Sample Scripts:
http:/www.gator.net/~garyg/aveclass.htm
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 109
*************************************
