[12646] in Perl-Users-Digest
Perl-Users Digest, Issue: 55 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 7 11:47:20 1999
Date: Wed, 7 Jul 1999 08:37:38 -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 Wed, 7 Jul 1999 Volume: 9 Number: 55
Today's topics:
Where might I find info. on "$_" <ranaylor@cais.net>
Re: Where might I find info. on "$_" (Bob Trieger)
Re: Where might I find info. on "$_" (Abigail)
Re: Why use perl .. .... tell me please!! (Abigail)
Re: Why use perl .. .... tell me please!! <uri@sysarch.com>
Re: Why use perl .. .... tell me please!! <dgris@moiraine.dimensional.com>
Re: Why use perl .. .... tell me please!! <elaine@wustl.edu>
Re: Why use perl .. .... tell me please!! (Abigail)
Re: Why use perl .. .... tell me please!! <gellyfish@gellyfish.com>
Win32NetAdmin question <harry_zisko@nospam.vantive.com>
Zip codes... <not@gonna.tell>
Re: Zip codes... <ehpoole@ingress.com>
Re: Zip codes... (Mitchell Morris)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 4 Jul 1999 00:39:35 -0400
From: "Andy" <ranaylor@cais.net>
Subject: Where might I find info. on "$_"
Message-Id: <syBf3.404$Sw3.8780493@newsie.cais.net>
I'm looking for an explanation of $_
I can't seem to find it in the perldoc or my gecko book.
Thanx,
a humble student
Andy...
It's not only what you know
but your ability to explain it
with your listeners brain intact.
------------------------------
Date: Sun, 04 Jul 1999 04:51:17 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Where might I find info. on "$_"
Message-Id: <7lmp8v$s5h$1@ash.prod.itd.earthlink.net>
[ courtesy cc sent by mail if address not munged ]
"Andy" <ranaylor@cais.net> wrote:
>I'm looking for an explanation of $_
perldoc perlvar
>I can't seem to find it in the perldoc or my gecko book.
It's gotta be in there. I doubt something as important as $_ would be
left out.
Good Luck
------------------------------
Date: 4 Jul 1999 00:46:24 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Where might I find info. on "$_"
Message-Id: <slrn7ntt8u.31h.abigail@alexandra.delanet.com>
Andy (ranaylor@cais.net) wrote on MMCXXXIII September MCMXCIII in
<URL:news:syBf3.404$Sw3.8780493@newsie.cais.net>:
__ I'm looking for an explanation of $_
__
__ I can't seem to find it in the perldoc or my gecko book.
Really? Are you 100% sure? Did you look closely enough?
$ grep -c '\$_' `which perldoc`
19
$
Here, let me help. What kind of a think *is* $_? A dollar sign followed
by an alphanumunder. That must be a variable, doesn't it? Now, where are
all the funny looking variables explained? In perlvar!
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 3 Jul 1999 04:59:08 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Why use perl .. .... tell me please!!
Message-Id: <slrn7nrnmj.31h.abigail@alexandra.delanet.com>
Elaine -HappyFunBall- Ashton (elaine@cts.wustl.edu) wrote on MMCXXXI
September MCMXCIII in <URL:news:377D50C8.6E934458@cts.wustl.edu>:
''
'' Perl is not limited to the Unix boxes of the world and you can run it on
'' almost anything.
I once ran Perl on a horse. That was cool.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 03 Jul 1999 10:53:01 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Why use perl .. .... tell me please!!
Message-Id: <x7wvwhzsxe.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@delanet.com> writes:
A> Elaine -HappyFunBall- Ashton (elaine@cts.wustl.edu) wrote on
A> MMCXXXI September MCMXCIII in
A> <URL:news:377D50C8.6E934458@cts.wustl.edu>: '' '' Perl is not
A> limited to the Unix boxes of the world and you can run it on ''
A> almost anything.
A> I once ran Perl on a horse. That was cool.
you know, of course, that a camel is a horse designed by a committee.
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: 03 Jul 1999 10:10:25 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Why use perl .. .... tell me please!!
Message-Id: <m3aetd1zpq.fsf@moiraine.dimensional.com>
Uri Guttman <uri@sysarch.com> writes:
> >>>>> "A" == Abigail <abigail@delanet.com> writes:
> A> I once ran Perl on a horse. That was cool.
> you know, of course, that a camel is a horse designed by a committee.
No.
A camel is a horse after a gang of open-source hackers finish adding
useful features to it. :-)
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Sat, 3 Jul 1999 16:12:09 -0500
From: elaine ashton <elaine@wustl.edu>
Subject: Re: Why use perl .. .... tell me please!!
Message-Id: <Pine.GSO.4.05.9907031610510.26923-100000@chaos.wustl.edu>
> '' Perl is not limited to the Unix boxes of the world and you can run it on
> '' almost anything.
>
> I once ran Perl on a horse. That was cool.
Hmmm. And how did the horse feel about that? :)
e.
-=]) elaine ashton // elaine@chaos.wustl.edu // bofh ([=-
-=]) A dismal wasteland of banality, cliche' and casual obscenity ([=-
------------------------------
Date: 3 Jul 1999 18:24:38 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Why use perl .. .... tell me please!!
Message-Id: <slrn7nt6t2.31h.abigail@alexandra.delanet.com>
elaine ashton (elaine@wustl.edu) wrote on MMCXXXII September MCMXCIII in
<URL:news:Pine.GSO.4.05.9907031610510.26923-100000@chaos.wustl.edu>:
## > '' Perl is not limited to the Unix boxes of the world and you can run it on
## > '' almost anything.
## >
## > I once ran Perl on a horse. That was cool.
##
## Hmmm. And how did the horse feel about that? :)
The horse felt great. You see, it was a Java horse, and this was the
first time it could actually run instead of walk.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 4 Jul 1999 15:18:09 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Why use perl .. .... tell me please!!
Message-Id: <7lntvh$407$1@gellyfish.btinternet.com>
On Fri, 02 Jul 1999 10:30:42 GMT bodhyfryd@my-deja.com wrote:
>
> 3)are these bigger than small sites happy to use perl, or are they
> adopting microsofts way of doing things e.g. ASP or something else. I
> just want to be able to make a reasonable living!!
>
A quick look at the Netcraft survey <http://www.netcraft.com> would
indicate that the majority of sites arent having anything to do with
'microsofts way of doing things' at all and that doesnt look like changing
any time real soon if at all.
/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>
------------------------------
Date: Tue, 6 Jul 1999 10:41:04 -0700
From: "Harry Z." <harry_zisko@nospam.vantive.com>
Subject: Win32NetAdmin question
Message-Id: <37823e2c$0$2487@news.sanjose1.level3.net>
I'm trying to create a simple script to check if a user's account has been
disabled. I have reviewed all the standard books, read the FAQs for
Win32AdminMisc and Win32NetAdmin, etc. and I cannot make it work. I realize
that it's probably something I'm coding incorrectly, but I need some
assistance to find it (I'm very much the novice at PERL).
The code I'm using is:
-------------------------------------------------------------
use win32::NetAdmin;
@users = qw(aaaaaa bbbbbb);
foreach $user (@users) {
if (Win32::NetAdmin::UserGetAttributes('\\\\mypdc', $user, $Password,
$PassAge, $Privlege, $HomeDir, $Comment, $Flags, $ScriptPath )) {
print "\nFlags for $user are $Flags\n";
if ($status = $Flags && UF_ACCOUNTDISABLE) {
print "Status is $status\n";
print "User account $user disabled\n\n";
} else
print "Status is $status\n";
print "User account $user enabled\n\n";
}
}
else
{ print "Houston we have a problem....\n" };
}
------------------------------------------------------------ -
Here's the output I get when I run this:
-------------------------------------------------------------
C:\scripts>perl userattrib4.pl
Flags for aaaaaa are 66113
Status is UF_ACCOUNTDISABLE
User account aaaaaa disabled
Flags for bbbbbb are 66051
Status is UF_ACCOUNTDISABLE
User account bbbbbb disabled
-------------------------------------------------------------
As you can see, the flags for the two users are different. Account aaaaaa
should show as enabled, bbbbbb as disabled. The AdminMisc FAQ shows an
example of the 'logical AND' using a single ampersand ('&'). However, when I
open up the Camel book and look up 'logical AND' it shows using double
ampersands ('&&'). I've tried both ways, and all that changes is that both
accounts show as enabled or disabled, never one of each (as it should be).
I'm stuck - assistance greatly appreciated
Thanks in advance,
Harry Z.
------------------------------
Date: Mon, 5 Jul 1999 23:38:27 -0400
From: "Doug Crabtree" <not@gonna.tell>
Subject: Zip codes...
Message-Id: <7lrtks$m5a$1@nntp8.atl.mindspring.net>
I once saw a post here about zip codes. Is there any information out there
about perl modules that have functions dealing with zip codes. i.e.
returning a list of zip codes in a x mile radius of single zip code?
TIA,
Doug
------------------------------
Date: Tue, 06 Jul 1999 01:21:02 -0400
From: "Ethan H. Poole" <ehpoole@ingress.com>
Subject: Re: Zip codes...
Message-Id: <3781923E.50EB450@ingress.com>
Doug Crabtree wrote:
>
> I once saw a post here about zip codes. Is there any information out there
> about perl modules that have functions dealing with zip codes. i.e.
> returning a list of zip codes in a x mile radius of single zip code?
The only free resource I know of for ZIP code data is from the US Census
Bureau, but that data is from 1990. When you compare that data to more
up-to-data info available commercially, you'll realize it is missing
thousands of new ZIP codes.
I don't have the algorithm off the top of my head, but if you do some
searches on "geodetic algorithms" and/or "great circle" you should find
the proper algorithm for calculating the distance between two points given
their lattitude and longitude.
Then all you'll need is the ZIP code data with appropriate lattitude and
longitude info and you'll be all set. Or you can wait until next year's
census and there should be an a free dataset that is actually current.
--
Ethan H. Poole **** BUSINESS ****
ehpoole@ingress.com ==Interact2Day, Inc.==
(personal) http://www.interact2day.com/
------------------------------
Date: 6 Jul 1999 12:50:31 GMT
From: mgm@unpkhswm04.bscc.bls.com (Mitchell Morris)
Subject: Re: Zip codes...
Message-Id: <slrn7o3uso.fje.mgm@unpkhswm04.bscc.bls.com>
In article <7lrtks$m5a$1@nntp8.atl.mindspring.net>, Doug Crabtree wrote:
>I once saw a post here about zip codes. Is there any information out there
>about perl modules that have functions dealing with zip codes. i.e.
>returning a list of zip codes in a x mile radius of single zip code?
>
>TIA,
>Doug
This is off the top of my head, so some research tasks are still ahead of
you. Some years back I had to perform a similar task for a client, and
acquired (from an unremembered governmental source, probably the Post Office)
a table showing which three digit ZIP Code regions were contiguous. Thus, you
can find all ZIP Code regions contiguous with any given ZIP Code. This
doesn't actually solve your "x" mile radius issue, but it may give you some
answers which are Close Enough For Government Work(tm).
ObPerl: "perldoc perldsc" will be of some help if you arrange the resulting
data into a hash of lists (assuming that is what you're going to do with it).
HTH,
+Mitchell
--
Mitchell Morris
Amazing! You just hang something in your closet for a while, and it
shrinks two sizes.
------------------------------
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 55
************************************
