[15727] in Perl-Users-Digest
Perl-Users Digest, Issue: 3140 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 23 18:15:41 2000
Date: Tue, 23 May 2000 15:15:27 -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: <959120127-v9-i3140@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 23 May 2000 Volume: 9 Number: 3140
Today's topics:
NT, perl, mySQL yes or no? mandersjones@my-deja.com
Re: NT, perl, mySQL yes or no? <glauber.ribeiroNOglSPAM@experian.com.invalid>
Re: NT, perl, mySQL yes or no? <makarand_kulkarni@My-Deja.com>
Re: NT, perl, mySQL yes or no? <jeff@vpservices.com>
opinion on libwww arpith@my-deja.com
Re: opinion on libwww <rootbeer@redcat.com>
parse a string question, regexp? bj0rn@my-deja.com
Re: parse a string question, regexp? <makarand_kulkarni@My-Deja.com>
Perl Security: What has to change? aaron@preation.com
Re: Perl Security: What has to change? <sariq@texas.net>
Re: Perl Security: What has to change? (brian d foy)
Perl/GD and Flow charts <apage.net[remove]@usa.net>
Prototype mismatch <jbehren@linux01.gwdg.de>
Sending variables to a script via the URL <rdm28@hermes.cam.ac.uk>
Re: Sending variables to a script via the URL <makarand_kulkarni@My-Deja.com>
Re: Server Push <red_orc@my-deja.com>
Re: Server Push <makarand_kulkarni@My-Deja.com>
Re: Server Push (Randal L. Schwartz)
Re: Simple alphabetical name sort <lr@hpl.hp.com>
Re: Tanspose rows to columns <mjcarman@home.com>
use english <barnabas@cis.ohio-state.edu>
Re: use english (Abigail)
Re: use english <uri@sysarch.com>
Re: use english <rootbeer@redcat.com>
Re: use english <mjcarman@home.com>
Re: use english <bmb@dataserv.libs.uga.edu>
Re: Visibility of package lexicals in debugger (Randal L. Schwartz)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 23 May 2000 18:43:47 GMT
From: mandersjones@my-deja.com
Subject: NT, perl, mySQL yes or no?
Message-Id: <8gejgv$sju$1@nnrp1.deja.com>
I've got some on going development on an NT server. The site is really
taking off and I really should switch to using a DB. As their system is
NT based Im tempted to take the ASP root with Access or something -
although Ive heard ASP is not robust. In fact Im tempted to drop Perl
altogether. The questions are:
1) Is there a good GUI for MySQL, so that the non programmers who part
run the site can have full access to the tables, and add, delete, print
records etc. If not its going to prove to be an inflexible and
programming heavy solution to use MySQL. they need to be able to get
and look at the data with minimum of effort (I don't want to write an
interface for them either!)
2) Why should I be using Perl on NT?? Please reassure me, I feel very
uneasy ... for example, why shouldn't I make use of my Java as I have
the opportunity .. after all that's a proper programming language isn't
it :-)
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 23 May 2000 11:53:37 -0700
From: glauber <glauber.ribeiroNOglSPAM@experian.com.invalid>
Subject: Re: NT, perl, mySQL yes or no?
Message-Id: <0c57a950.643b429b@usw-ex0104-026.remarq.com>
In article <8gejgv$sju$1@nnrp1.deja.com>, mandersjones@my-
deja.com wrote:
[...]
>1) Is there a good GUI for MySQL, so that the non programmers
who part
>run the site can have full access to the tables, and add,
delete, print
>records etc. If not its going to prove to be an inflexible and
>programming heavy solution to use MySQL. they need to be able
to get
>and look at the data with minimum of effort (I don't want to
write an
>interface for them either!)
Dunno, but you could build an Access front-end to your SQL
database in no time, and still have a good database back-end.
>2) Why should I be using Perl on NT?? Please reassure me, I
feel very
>uneasy ... for example, why shouldn't I make use of my Java as
I have
>the opportunity .. after all that's a proper programming
language isn't
>it :-)
Use Java, use Perl, just don't use VB. :-) :-) :-)
But, since you asked for a reason, since you posted to a Perl
newsgroup, you should use Perl.
glauber
* 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: Tue, 23 May 2000 11:59:58 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: NT, perl, mySQL yes or no?
Message-Id: <392AD52E.7BD7ECD5@My-Deja.com>
> Is there a good GUI for MySQL,
Try some GUI clients yourselves.
Check at http://www.mysql.com/download.html
> why shouldn't I make use of my Java as I have
> the opportunity
Yes. Why not ? If you feel Java is the language you should use
for your task then you should do it.
------------------------------
Date: Tue, 23 May 2000 12:04:40 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: NT, perl, mySQL yes or no?
Message-Id: <392AD648.2394F92D@vpservices.com>
mandersjones@my-deja.com wrote:
>
> I've got some on going development on an NT server. The site is really
> taking off and I really should switch to using a DB. As their system is
> NT based Im tempted to take the ASP root with Access or something -
Whatever you do, do not treat Access as a multi-user, web-accessible
database. It will fail miserably at that. Almost anything else would
be preferable..
--
Jeff
------------------------------
Date: Tue, 23 May 2000 18:39:34 GMT
From: arpith@my-deja.com
Subject: opinion on libwww
Message-Id: <8gej93$s9s$1@nnrp1.deja.com>
Hi,
I was wondering, whats the best way to snatch webpages
through perl, most efficiently and quickly ? Right now
I'm using libwww.
I don't know if there is a better way of doing things.
Is there ? I am planning on snatching a lot of URLs,
simultaneously, and quickly. Is this the best method ?
Thanks a lot,
Arpith
http://arpith.com/
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 23 May 2000 11:59:33 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: opinion on libwww
Message-Id: <Pine.GSO.4.10.10005231157440.23375-100000@user2.teleport.com>
On Tue, 23 May 2000 arpith@my-deja.com wrote:
> I was wondering, whats the best way to snatch webpages through perl,
> most efficiently and quickly ? Right now I'm using libwww.
Then you probably want to get LWP from CPAN. But "quickly"? Probably the
vast majority of the time involved is netlag, and better software won't be
able to fix that, in general.
> I am planning on snatching a lot of URLs, simultaneously, and quickly.
> Is this the best method ?
Don't neglect the Robot Rules. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 23 May 2000 20:46:52 GMT
From: bj0rn@my-deja.com
Subject: parse a string question, regexp?
Message-Id: <8geqnm$1t1$1@nnrp1.deja.com>
Hey there!
I have a small problem... I want to search in a rather huge string, for
a word, and then after that word start saving everything after the
first 2 new lines (\n\n) until the next two new lines (\n\n)...
Does anyone know how to do this?
Would be really thankful if anyone could give me a clue on how to do
this, give me some pointers, or just throw me a piece of working
code ! :)
Here's a string for you:
.-----
This is the string
This is the string
This is the string
madman This is the string
This is the string
This is the stringThis is the string
This is the stringThis is the string
This is the stringThis is the string
This is the string
This is the string
This is the string
This is the string
This is the string
This is the stringThis is the string
This is the stringThis is the stringThis is the string
This is the stringThis is the string
This is the string
And here's the rest.....
.-----
So, what I want to do is: where the script finds the word madman, it
should start looking for the first two newlines, it finds it, and
starts saving in a string until it reaches the next 2 newlines...
hmmm, hope anyone understand! :)
TIA folks!
-Bj0rN
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 23 May 2000 14:45:49 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: parse a string question, regexp?
Message-Id: <392AFC0D.7A000D4B@My-Deja.com>
> So, what I want to do is: where the script finds the word madman, it
> should start looking for the first two newlines, it finds it, and
> starts saving in a string until it reaches the next 2 newlines...
You can do that by changing the value of $/
see below for a sample
while (<>) # read consecutive lines from appropriate source
{
next unless /madman/ ;
$save_sep=$/; # save the value of $/
$/="\n\n"; # change $/
<>;
$wanted=<>; # these are the lines you want
print "\n---\n$wanted\n ----\n"; # the lines you want are printed here
$/=$save_sep; # restore $/
}
------------------------------
Date: Tue, 23 May 2000 18:28:40 GMT
From: aaron@preation.com
Subject: Perl Security: What has to change?
Message-Id: <8geik5$rrb$1@nnrp1.deja.com>
I have a question regarding security with a Perl Program running on a
Unix server under Apache. I am going to use SSL to secure the
transmission from a Web form to a Perl file that will parse the form,
and put the data into a secure folder on my Web server. Then I want to
let people with an appropriate password and user name enter a URL that
will allow them to pull that information back off of the server out of
that directory and secure file. Both of these programs are going to be
https so that they are protected by secure socket layers . . .
But what I want to know is if the PERL program itself may pose any
security issues I need to know about. I DO know that using some sort of
secure mode you can help your PERL programs to be more secure, what do
you do, is that a sort of flag or the "use strict?" I usually run all of
my programs under the "-w" flag, is that OK, and what do I have to
change to make it secure. Under this new flag (if that is what it is) is
there anything I will have to change about my program to make it run
normally?
Thanks for your help, I know this is more of a conceptual problem than
technical, but I would appreciate any answers anyone who has a better
understanding of PERL than I can provide me with. Thanks so much. Aaron
H.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 23 May 2000 13:48:04 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Perl Security: What has to change?
Message-Id: <392AD264.DDF4DC51@texas.net>
aaron@preation.com wrote:
>
> I want to know is if the PERL program itself may pose any
> security issues I need to know about.
perldoc perlsec
Also, read:
perlfaq1: What's the difference between "perl" and "Perl"?
perldoc perldoc
perldoc perl
- Tom
------------------------------
Date: Tue, 23 May 2000 14:56:49 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: Perl Security: What has to change?
Message-Id: <brian-ya02408000R2305001456490001@news.panix.com>
In article <8geik5$rrb$1@nnrp1.deja.com>, aaron@preation.com posted:
> But what I want to know is if the PERL program itself may pose any
> security issues I need to know about. I DO know that using some sort of
> secure mode you can help your PERL programs to be more secure, what do
> you do, is that a sort of flag or the "use strict?" I usually run all of
> my programs under the "-w" flag, is that OK, and what do I have to
> change to make it secure. Under this new flag (if that is what it is) is
> there anything I will have to change about my program to make it run
> normally?
see the perlsec man page, as well of the security references in the
CGI Meta FAQ.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
Date: Tue, 23 May 2000 16:45:07 -0400
From: "Zowwie" <apage.net[remove]@usa.net>
Subject: Perl/GD and Flow charts
Message-Id: <silreejgo116@corp.supernews.com>
I have searched high and low for a PERL program that can take input similar
to the below... But in GIF format:
box[name=admin,type=parent,association=top,box_size=large]
box[name=child_1,type=child,association=admin,box_size=small]
box[name=child_2,type=child,association=admin,box_size=small]
box[name=peer_1,type=peer_r,association=admin,box_size=medium]
Then produce a graphic similar to....
Admin ------- Peer R
/ \
child_1 child_2
I have started writing the code for such a program... And have encountered
many a headache with the logic and flow. :( Urg.
Has anyone seen a similar program????
------------------------------
Date: 23 May 2000 22:21:21 +0200
From: Joerg Behrens <jbehren@linux01.gwdg.de>
Subject: Prototype mismatch
Message-Id: <2k3dn9uif2.fsf@linux01.gwdg.de>
Using perl, version 5.005_03 built for i586-linux, i get a
"Prototype mismatch"-error when i try to use the sock package.
I looked through the required socked.ph and the therein contained
references. In short, it seems the problem comes up like this:
eval 'sub __need_size_t() {1;}' unless defined(&__need_size_t);
undef(&__need_size_t) if defined(&__need_size_t);
eval 'sub __need_size_t() {1;}' unless defined(&__need_size_t);
__END__
This produces the error message:
Prototype mismatch: sub main::__need_size_t vs () at (eval 2) line 1.
Can someone explain why this fails?
Thanks,
Jörg
------------------------------
Date: Tue, 23 May 2000 20:56:48 +0100
From: Robin <rdm28@hermes.cam.ac.uk>
Subject: Sending variables to a script via the URL
Message-Id: <Pine.SOL.4.21.0005232046500.14585-100000@orange.csi.cam.ac.uk>
Hello,
I would like to know if this is possible - I'm connecting to a
database of student houses to rent which gets updated randomly a few times
a day. However to read this you have to pass though a passworded website
which then gives you the results via a perl script... This means you
can't bookmark it so to automatically notify you of changes. However _if_
there is a ludicrously easy way of saying e.g.
www.blah.co.uk/script.pl password="sausages"
which what i would assume it would be... but it isn't, all my problems
would be solved.
Thanks
Robin
p.s. I'm sorry if this question has been asked a million times before -
i've looked in the archives & searched around.... but nothing turned
up.
---------------------------------------------------------------------
Phone 01223 366898
------------------------------
Date: Tue, 23 May 2000 13:27:35 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Sending variables to a script via the URL
Message-Id: <392AE9B7.DD31F682@My-Deja.com>
> can't bookmark it so to automatically notify you of changes. However _if_
> there is a ludicrously easy way of saying e.g.
>
> www.blah.co.uk/script.pl password="sausages"
check LWP::UserAgent and the functions
get_basic_credentials ()
credentials ()
--
------------------------------
Date: Tue, 23 May 2000 18:50:40 GMT
From: Rodney Engdahl <red_orc@my-deja.com>
Subject: Re: Server Push
Message-Id: <8gejtp$spl$1@nnrp1.deja.com>
In article <8gdrju$m62$1@nn-os105.ocn.ad.jp>,
"sang" <laoxiu100@hotmail.com> wrote:
> Hi,alls
>
> I search for some perl samples used of server push.
>
> Any advice ?
>
use any of the major search engines and enter search strings for "perl'
and "server push"
http://search.excite.com/search.gw?search=%2B%22perl%22+%2B%22server+push%22
for example . . .
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 23 May 2000 12:10:37 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Server Push
Message-Id: <392AD7AD.871DBCC5@My-Deja.com>
> I search for some perl samples used of server push.
http://www.wiley.com/compbooks/stein/source.html
Look at the last script.
--
------------------------------
Date: 23 May 2000 12:58:42 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Server Push
Message-Id: <m1n1lht4wd.fsf@halfdome.holdit.com>
>>>>> "sang" == sang <laoxiu100@hotmail.com> writes:
sang> Hi,alls
sang> I search for some perl samples used of server push.
I've got a few of those in my WT columns at
http://www.stonehenge.com/merlyn/WebTechniques/
Go read. :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Tue, 23 May 2000 13:45:09 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Simple alphabetical name sort
Message-Id: <MPG.13948dae8bf74d2b98aac2@nntp.hpl.hp.com>
In article <7ar9atjkql.fsf@Merlin.i-did-not-set--mail-host-address--so-
shoot-me> on Tue, 23 May 2000 16:26:43 GMT, Ala Qumsieh
<aqumsieh@hyperchip.com> says...
...
> sub by_name {
> my @a = split ' ' => $a;
> my @b = split ' ' => $b;
>
> splice @a => 1, 0, '' if @a == 2;
> splice @b => 1, 0, '' if @b == 2;
>
> $a[0] cmp $b[0] or
> $a[1] cmp $b[1] or
> $a[2] cmp $b[2];
> }
>
> @sorted = sort by_name @brokers;
Sortsubs like that should be posted only with a mandatory disclaimer:
Caution! Don't try this at home on any sizable input data unless you
have plenty of CPU cycles to burn.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 23 May 2000 13:07:33 -0500
From: Michael Carman <mjcarman@home.com>
Subject: Re: Tanspose rows to columns
Message-Id: <392AC8E5.AF768D7C@home.com>
Xah wrote:
>
> You may filch my algorithm/methodology, but not copy/rely from my
> subroutines. If anyone can do it without using 'eval', then i'd be
> _extremely_ impressed.
Why not? My question, and your challenge (as originally stated) simply
concerned the necessity of using eval(). As far as I'm concerned, Ilmari
has fulfilled that. Why not test his code to ensure that it has the same
functionality and run some benchmarks on it to see how the performance
compares?
At any rate it doesn't really matter, as Ilmari has already done what
you're now asking for, too. Will you be gracious enough to admit it?
-mjc
P.S. Lest anyone be misled: I am not concerned about proving that anyone
here is a better/worse programmer than anyone else. The collective
community here is far better than any individual. I just want to see
problems solved in the best possible manner.
------------------------------
Date: Tue, 23 May 2000 15:50:32 -0400
From: "Sandy Barnabas" <barnabas@cis.ohio-state.edu>
Subject: use english
Message-Id: <8genjr$bqk$1@news.cis.ohio-state.edu>
Hello all,
I'm a fairly new perl programmer, and I "use english" in most (if not all)
my scripts. Recently, a friend has told me that "use english" is not used
by serious perl programmers and is against the perl idiom; and that I should
learn the shorthand form of the variable names. I was wondering if this is
indeed the case or not.
Thanks,
Sandy
------------------------------
Date: 23 May 2000 20:01:43 GMT
From: abigail@arena-i.com (Abigail)
Subject: Re: use english
Message-Id: <8geo36$b3a$1@news.panix.com>
On Tue, 23 May 2000 15:50:32 -0400,
Sandy Barnabas <barnabas@cis.ohio-state.edu> wrote:
++ Hello all,
++
++ I'm a fairly new perl programmer, and I "use english" in most (if not all)
++ my scripts. Recently, a friend has told me that "use english" is not used
++ by serious perl programmers and is against the perl idiom; and that I should
++ learn the shorthand form of the variable names. I was wondering if this is
++ indeed the case or not.
If it's against the "Perl idiom", it wouldn't be present in the main
distribution, or documented in perlvar.
I wouldn't know whether it's not used by serious Perl programmers.
What I can say is you don't see "use English;" used to often.
Whether you should use "use English;" or not depends. If you mainly code
for yourself, and noone else needs your code, do whatever *you* like.
If your code is going to be maintained by others, see what they prefer.
If you often use code from others, and that code doesn't use "use English;",
you might want to get yourself familiar to the short names.
Abigail
------------------------------
Date: Tue, 23 May 2000 20:43:07 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: use english
Message-Id: <x7zophatgk.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@arena-i.com> writes:
A> On Tue, 23 May 2000 15:50:32 -0400,
A> Sandy Barnabas <barnabas@cis.ohio-state.edu> wrote:
A> I wouldn't know whether it's not used by serious Perl programmers.
A> What I can say is you don't see "use English;" used to often.
for a long time English.pm has been deprecated because it refers to $&
and friends. and any mention of $& causes regexes to slow down as they
have to make an extra copy incase $& is ever used in the script. if all
you regexes use grabbing (since that copies anyway) this is no loss but
it loses for the others.
i have heard but not verified that this slowdown has been lessened or
removed. but that is the historical reason English is rarely used.
on top of that, there are not that many commonly used special vars
(compared to the dozens defined) so you don't have to memorize that
much. after a short while it becomes second nature. many have decently
chosen symbols which are mnemonic. so learning the short names is worth
doing. leave english for the perl-as-cobol types.
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: Tue, 23 May 2000 14:30:28 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: use english
Message-Id: <Pine.GSO.4.10.10005231429070.23375-100000@user2.teleport.com>
On Tue, 23 May 2000, Uri Guttman wrote:
> i have heard but not verified that this slowdown has been lessened or
> removed.
According to the docs, $& is now less costly than the other two. But I
think that Chip's patch which implemented that never made into the
distribution, and the docs are fibbing.
> but that is the historical reason English is rarely used.
Well, maybe not _the_ reason. :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 23 May 2000 15:42:57 -0500
From: Michael Carman <mjcarman@home.com>
Subject: Re: use english
Message-Id: <392AED51.93EC98E9@home.com>
Sandy Barnabas wrote:
>
> I'm a fairly new perl programmer, and I "use english" in most (if
> not all) my scripts. Recently, a friend has told me that "use
> english" is not used by serious perl programmers and is against the
> perl idiom; and that I should learn the shorthand form of the
> variable names. I was wondering if this is indeed the case or not.
Most experienced Perl hackers don't use the long names for built in
variables, but that's because we're lazy and don't want to type
$INPUT_RECORD_SEPERATOR' when we can get by with '$/'. Using them is
kind of raising a flag that says "I'm a newbie" but I wouldn't concern
yourself with it.
For one, the long names are there for a reason -- they're descriptive
and easier to remember than secret code of $!^*& stuff. What you use in
your programs depends on your knowledge, preferences, and
maintainability concerns. (That next person may not know the short names
either.) You should learn the more commonly used shorthand names if
you're going to work on what other people have written, but you can
always look them up in perlvar; knowing where to find the answer is more
important than having it memorized.
If you're worried about setting up a banner proclaiming your lack of
experience, don't be: there are probably a thousand other things you do
in your code that say that just as well. :) Concentrate your efforts
there.
-mjc
------------------------------
Date: Tue, 23 May 2000 17:57:05 -0400
From: Brad Baxter <bmb@dataserv.libs.uga.edu>
Subject: Re: use english
Message-Id: <Pine.GSO.4.21.0005231755490.9692-100000@dataserv.libs.uga.edu>
On Tue, 23 May 2000, Michael Carman wrote:
...
> For one, the long names are there for a reason -- they're descriptive
> and easier to remember than secret code of $!^*& stuff. What you use in
...
1 #!/usr/local/bin/perl -w
2 use strict;
3
4 print $!^*&;
5
6 __END__
7 Output:
8
9 *main::&
__
Brad
------------------------------
Date: 23 May 2000 12:55:27 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Visibility of package lexicals in debugger
Message-Id: <m1r9att51s.fsf@halfdome.holdit.com>
>>>>> "Bart" == Bart Lateur <bart.lateur@skynet.be> writes:
Bart> nobull@mail.com wrote:
>> Paging Tom Pheonix...
>> Paging Tom Pheonix...
Bart> That won't work.
Bart> Paging Tom Phoenix...
Bart> Now you have a chance.
Perhaps he was looking for the author of:
"hooked on Pheonix"
(ducking rapidly... :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
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 3140
**************************************
