[13566] in Perl-Users-Digest
Perl-Users Digest, Issue: 976 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 3 06:07:31 1999
Date: Sun, 3 Oct 1999 03:05:08 -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: <938945108-v9-i976@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 3 Oct 1999 Volume: 9 Number: 976
Today's topics:
Re: /@array/ (Ilya Zakharevich)
Re: /@array/ (Mark A. Hershberger)
ActivePerl <joeyandsherry@mindspring.com>
Re: ActivePerl <tex@engsoc.carleton.ca>
Re: ActivePerl <joeyandsherry@mindspring.com>
Re: ActivePerl <joeyandsherry@mindspring.com>
Re: ActivePerl <nguyend7@msu.edu>
Re: ActivePerl <jeff@vpservices.com>
Re: CGI.pm <admin@gatewaysolutions.net>
DU in perl renez@lightcon.xs4all.nl
free testing <aryes2@email.msn.com>
Re: free testing (Michel Dalle)
Re: getting server errors <jeff@vpservices.com>
Re: How To Use a User Definied Type in Perl. (Mark A. Hershberger)
LWP::UserAgent timeout and eval/die problem <jbc@shell2.la.best.com>
Re: Match and escape processing (Abigail)
Perl vs. PHP3 <bluebit@gmx.net>
Re: script for URL forwarding or redirection with perl <jeff@vpservices.com>
Re: script for URL forwarding or redirection with perl (Abigail)
Re: using tr? (Abigail)
Re: using tr? (Neko)
Where to find doc of Perl? <geka@nest.ntu-kpi.kiev.ua>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Oct 1999 04:21:59 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: /@array/
Message-Id: <7t6ll7$kea$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to lt lindley
<lee.lindley@bigfoot.com>],
who wrote in article <7t6dhb$9c1$1@rguxd.viasystems.com>:
> my @refnums = qw/first second third/;
> my $restring = join '|', map "\\b$_\\b", @refnums;
You do not want to do this. Generally speaking, you want to keep as
much info out of alternations as possible.
local $" = '|';
> my $dat = 'This is the first time.';
> print "Matches\n" if $dat =~ /$restring/o;
print "Matches\n" if $dat =~ /\b(@refnums)\b/o;
Ilya
------------------------------
Date: 03 Oct 1999 00:45:17 -0500
From: mah@everybody.org (Mark A. Hershberger)
Subject: Re: /@array/
Message-Id: <49yadlm1zm.fsf@playpen.baileylink.net>
abnerstransky@my-deja.com writes:
> How can I search for the terms that I have in array when I won't know
> how many terms are in the array each time?
> I'm not adverse to joining the array first, so I just have a string of
> search terms.
Then join the array:
$searchfor = "\\b" . join("\\b|\\b", @array) . "\\b";
$dat =~ /$searchfor/;
Hope that helps,
Mark.
--
------------------------------
Date: Sat, 2 Oct 1999 23:59:35 -0400
From: <joeyandsherry@mindspring.com>
Subject: ActivePerl
Message-Id: <7t6kf3$j0m$1@nntp1.atl.mindspring.net>
Hello,
Thanks in advance.
I've just installed ActivePerl on my Win98 laptop. I've tried to execute the
script below:
print "Content-type: test/html\n\n";
print "<HTML><HEAD><TITLE>Test</TITLE></HEAD>\n";
print "<BODY>\n";
print "Hello World!\n";
print "</BODY></HTML>\n";
I expected my Web Browser to open up and display Hello World!
Have I really missed something, What gives?
Any assistance would be greatly appreciated.
Joey
------------------------------
Date: 3 Oct 1999 04:28:43 GMT
From: Clayton L. Scott <tex@engsoc.carleton.ca>
Subject: Re: ActivePerl
Message-Id: <7t6m1r$ckt$1@bertrand.ccs.carleton.ca>
You, yes you, joeyandsherry@mindspring.com. Stop writing stuff like this:
[snipped]
: I expected my Web Browser to open up and display Hello World!
Why did you expect it to do that?
: Have I really missed something, What gives?
It's likely that you have. What did your script actually do?
Clayton
--
Warning: Dates on calendar are closer than they appear.
------------------------------
Date: Sun, 3 Oct 1999 00:42:19 -0400
From: <joeyandsherry@mindspring.com>
Subject: Re: ActivePerl
Message-Id: <7t6mv7$ke4$1@nntp1.atl.mindspring.net>
------------------------------
Date: Sun, 3 Oct 1999 00:44:23 -0400
From: <joeyandsherry@mindspring.com>
Subject: Re: ActivePerl
Message-Id: <7t6n33$c3$1@nntp1.atl.mindspring.net>
Well...I ran it in DOS prompt and it printed everything within the quotes.
How would I then open my browser with the aforementioned process. I am
guilty of a CGI introduction to Perl.
------------------------------
Date: 3 Oct 1999 05:46:34 GMT
From: Dan Nguyen <nguyend7@msu.edu>
Subject: Re: ActivePerl
Message-Id: <7t6qjq$sqi$1@msunews.cl.msu.edu>
joeyandsherry@mindspring.com wrote:
: Well...I ran it in DOS prompt and it printed everything within the quotes.
: How would I then open my browser with the aforementioned process. I am
: guilty of a CGI introduction to Perl.
The aformentioned perl script must be executed by the web server.
Don't you have a webserver running???
--
Dan Nguyen | It is with true love as it is with ghosts;
nguyend7@msu.edu | everyone talks of it, but few have seen it.
dnn@debian.org | -Maxime De La Rochefoucauld
25 2F 99 19 6C C9 19 D6 1B 9F F1 E0 E9 10 4C 16
------------------------------
Date: 3 Oct 1999 05:53:42 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: ActivePerl
Message-Id: <37F6ED95.9D8CDCA@vpservices.com>
[cc sent to maintainers of perlwin32faq]
joeyandsherry@mindspring.com wrote:
>
> I've just installed ActivePerl on my Win98 laptop. I've tried to execute the
> script below:
>
> [well-formed "hello world" test script snipped]
>
> I expected my Web Browser to open up and display Hello World!
> Have I really missed something?
Yep, you (and hundreds of others who write to this newsgoup all the
time) seem to have missed the basic idea of what CGI is. The first line
of NCSA's overview of CGI says: "The Common Gateway Interface (CGI) is a
standard for interfacing external applications with information
servers...". That is "servers", *not* "browsers".
You can test if your Perl CGI scripts works by running it from the
command line, but if you want to see what it looks like in a web
browser, you need a web server. The web server can be on your laptop
and can be run without a connection to the net, so it is the only
missing ingredient in your setup.
See perlwin32faq6 "Web Server Configuration and Troubleshooting" in the
documentation that came with ActivePerl for info on the free and easy
process of getting and installing a webserver on your local machine. If
you have further problems installing or configuring the web server, ask
in a windows or server-related newsgroup. If you have problems with
what CGI is or how it works, ask in a CGI-related newsgroup. If you
have problems with Perl syntax, come back here.
--
Jeff Zucker
jeff@vpservices.com
------------------------------
Date: Sun, 3 Oct 1999 03:05:57 -0500
From: "Scott Beck" <admin@gatewaysolutions.net>
Subject: Re: CGI.pm
Message-Id: <rve3dd8cjf444@corp.supernews.com>
OK Sorry.
--
Scott Beck
Jonathan Stowe <gellyfish@gellyfish.com> wrote in message
news:7t63nn$87v$1@gellyfish.btinternet.com...
> On Sat, 2 Oct 1999 17:22:02 -0500 Scott Beck wrote:
> > This is a multi-part message in MIME format.
> >
> > ------=_NextPart_000_0053_01BF0CFA.A45A4580
> > Content-Type: text/plain;
> > charset="iso-8859-1"
> > Content-Transfer-Encoding: 7bit
> >
>
> Oh my gawd.
>
> > I noticed allot of questions about CGI.pm and how to use
> > it so I thought I would post this Help file I made for CGI.pm.
> > It is basically an indexed version of the documentation.
> > I did not write the documentation in this file I just
> > compiled it into a help file.
> >
> > This will only work on Windows.
> >
> > If this was inappropriate for posting to this group I apologize.
> >
>
> yes this was an inappropriate posting for this group - it was a binary
> posting in some unknown format - totally useless to the majority of
> the people here who would anyhow have the CGI.pm manpage.
>
> Thanks for your efforts but believe me it was totally misguided ....
>
> /J\
> --
> Jonathan Stowe <jns@gellyfish.com>
> <http://www.gellyfish.com>
> Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 3 Oct 1999 10:17:10 GMT
From: renez@lightcon.xs4all.nl
Subject: DU in perl
Message-Id: <FJ0v8M.M6@wolfe>
Keywords: Perl DiskUsage
I'm looking for a module which will do the same thing as the Unix
command du -ks. I have looked on CPAN but there seems to be no such
module.
Before writing my own version I would like to make sure I'm
not duplicating work!
Thanks Rene
--
------------------------------
Date: Sun, 3 Oct 1999 00:00:51 -0400
From: "aryes2" <aryes2@email.msn.com>
Subject: free testing
Message-Id: <OdSLRPVD$GA.286@cpmsnbbsa02>
Does everyone knows if there is some free perl testing in the web?
please answer with my name as subject, thanks, Andres Garzon
------------------------------
Date: 3 Oct 1999 10:00:17 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: free testing
Message-Id: <7t79fh$pml$1@nickel.uunet.be>
aryes2@email.msn.com (aryes2) wrote in <OdSLRPVD$GA.286@cpmsnbbsa02>:
>Does everyone knows if there is some free perl testing in the web?
I would guess that about 90% of the people posting here have Perl
installed on their PC/workstation/etc. But I doubt that most of them
would be happy to test your Perl scripts for free :-)
So go to www.activestate.com and download the latest version of
Perl. You'll be able to test Perl for free yourself...
Or did you mean CGI ? Well, go to comp.infosystems.www.authoring.cgi
with your question and see how they like it.
>please answer with my name as subject, thanks, Andres Garzon
Why bother ? Can't MSN handle a simple Usenet reply anymore ?
Michel.
------------------------------
Date: 3 Oct 1999 03:26:35 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: getting server errors
Message-Id: <37F6CB1D.918D2619@vpservices.com>
Outlaw Jim wrote:
>
> $sourcefile is meant to be defined in the following syntax
> e.g. http://linux.gamers.net/cgi-bin/getdoc.pl?sourcefile=news.txt,
That tells us how the information got sent into the script, but not how
how the script put that information into a variable called $sourcefile.
> open(INF, "$sourcefile"); or &dienice("Can't find the file requested");
There are four problems with this line. First, there should not be a
semicolon after the open statement, the whole point is that the "or"
needs to operate if and only if the open fails. Second, you did not
include $! in your &dienice parameter. Your dienice message says that
the error was "couldn't find the file" but that may or may not be the
real reason the open failed. $! will contain the actual reason the open
failed, not your guess about it. And third, you did not contain the
value of $sourcefile in the dienice parameter so that we could know what
the script actually knows about it as a variable. You should put it in
between brackets or something so that if it is empty the empty brackets
would show you that. And fourth, though minor, there is no reason to
put quotes around a string that consists only of a variable name so
"$sourcefile" is better written as just $sourcefile. So ...
open(INF,$sourcefile) or &dienice("Couldn't open [$sourcefile]: $!");
Unlike your line above, this one will show all of the information you
need to trace the source of the problem.
--
Jeff
------------------------------
Date: 03 Oct 1999 00:32:01 -0500
From: mah@everybody.org (Mark A. Hershberger)
Subject: Re: How To Use a User Definied Type in Perl.
Message-Id: <491zbdnh66.fsf@playpen.baileylink.net>
"Steven Hildreth" <sphildreth@hotmail.com> writes:
> Hi, I am wanting to know how do you use a user definied type in perl. I use
> this udf in PowerBasic to access a binary database, I am wanting to use perl
> to access this database and display data to a web page.
How was this database created? Is it ODBC? Perl can do that. Is it
just raw binary data that you hacked together? Perl can do that, too,
I'm sure. Just don't ask me how.
> Here is a example of the user definied type:
> ----------------------------
> Type ExampleInfo
> something as string * 1
> else as integer
> LastPart as boolean
> end type
>
> dim Example as ExampleInfo
>
> open filename for random as FileID
> get #FileID, , Example
> close FildID
>
> cls
> print "Here is the something string"; example.something
> end
Looks like your ExampleInfo is a nice hash:
while(<>) {
($example{something},
$example{else},
$example{LastPart}) = split /,/;
print "Here is the something string", $example{something};
}
Note that I do not expect the above code to be what you want to solve
your problem. I'm just showing you how I might write similar code in
Perl. (Although, what I've written would print out the "something"
string for each line. That, and my file is plain text while yours is
binary.)
> I have looked at several websites and see no information about user defined
> types.
That's because we don't talk about such things in Perl.
> Any help would be appreciated.
You could just type "perldoc perldata" to get information on Perl's
data types. I suspect it will take some time for you to begin to grok
it.
If your dist of perl is so sad that you don't have the docs, go to
http://www.perl.com/pub/doc/manual/html/pod/ and read up. You might
also go get the "Learning Perl" book.
Hope that helps.
Mark.
--
------------------------------
Date: 03 Oct 1999 08:47:02 GMT
From: John Callender <jbc@shell2.la.best.com>
Subject: LWP::UserAgent timeout and eval/die problem
Message-Id: <37f71806$0$221@nntp1.ba.best.com>
I previously posted something about this, but have more detail now and
was hoping someone might be able to help me make sense of it.
I'm having some weird (to me) problems getting LWP::UserAgent's timeout
method to work properly on a Red Hat Linux 6.0 system when doing a HEAD
request on certain URLs. Also, I seem to be unable to use an eval block
to force the timeout myself, either on my RH system or on another
(FreeBSD) system (where LWP::UserAgent's built-in timeout method
appears to be working correctly, by the way).
Here's a test script that demonstrates the behavior:
#!/usr/bin/perl -w
# lwp_test.pl - test timeout behavior of LWP
use strict;
use LWP::UserAgent;
my @urls = (
'http://204.245.187.59/',
'http://www.health.gov.au/',
);
my $ua = new LWP::UserAgent;
$ua->timeout(5);
my $begin_time = time;
foreach my $url (@urls) {
print "testing $url... ";
my $start = time;
my $request = new HTTP::Request HEAD => $url;
my $response = $ua->request($request);
my $elapsed = time() - $start;
if ($response->is_success) {
print "succeeded in $elapsed sec.\n";
} else {
print "failed in $elapsed sec.\n";
}
}
my $total = time() - $begin_time;
my $url_count = @urls;
my $avg = sprintf "%u", $total / $url_count;
print "$0 run completed: $url_count URLs, $total secs, $avg
secs/URL\n";
[script ends]
When running that on a FreeBSD system (2.2.8-STABLE, Perl 5.004_04,
LWP::UserAgent 1.58), I get the following (expected) output:
[jbc@shell2 lwp_test]$ perl5 lwp_test.pl
testing http://204.245.187.59/... failed in 5 sec.
testing http://www.health.gov.au/... failed in 5 sec.
lwp_test.pl run completed: 2 URLs, 10 seconds, 5 secs/URL
But when running on my RH 6.0 system (kernel 2.2.12, Perl 5.005_003,
LWP::UserAgent 1.68), I get the following:
[jbc@buffy lwp_test]$ lwp_test.pl
testing http://204.245.187.59/... failed in 789 sec.
testing http://www.health.gov.au/... failed in 789 sec.
./lwp_test.pl run completed: 2 URLs, 1578 seconds, 789 secs/URL
Can anyone offer any insights into why the timeout method might be
failing under RH Linux, but not under FreeBSD?
Another (possibly related) mystery concerns my attempts to use an eval
block and alarm to force the timeout; this was unsuccessful on both
systems. Here's the code I used (in this case using LWP::Simple):
#!/usr/bin/perl -w
# lwp_test2.pl - test timeout behavior of LWP using eval
use strict;
use LWP::Simple;
my $timeout = 5; # seconds to timeout
my @urls = (
'http://204.245.187.59/',
'http://www.health.gov.au/',
);
my $begin_time = time;
foreach my $url (@urls) {
print "testing $url... ";
my $start = time;
my $success;
eval {
local $SIG{ALRM} = sub { die "timeout\n" };
alarm($timeout);
$success = head($url);
alarm(0);
};
if ($@) {
die unless $@ eq "timeout\n";
print "(eval timed out) ";
}
if ($success) {
print "succeeded";
} else {
print "failed";
}
my $elapsed = time() - $start;
print " in $elapsed sec.\n";
}
my $total = time() - $begin_time;
my $url_count = @urls;
my $avg = sprintf "%u", $total / $url_count;
print "$0 run completed: $url_count URLs, $total seconds, $avg
secs/URL\n";
[code ends]
and here's the output it produced. First, on the FreeBSD system:
[jbc@shell2 lwp_test]$ perl5 lwp_test2.pl
testing http://204.245.187.59/... failed in 75 sec.
testing http://www.health.gov.au/... failed in 75 sec.
lwp_test2.pl run completed: 2 URLs, 150 seconds, 75 secs/URL
and on the RH Linux system:
[jbc@buffy lwp_test]$ lwp_test2.pl
testing http://204.245.187.59/... failed in 790 sec.
testing http://www.health.gov.au/... failed in 789 sec.
./lwp_test2.pl run completed: 2 URLs, 1579 seconds, 789 secs/URL
In neither case is my eval's alarm going off, apparently. When I looked
inside UserAgent.pm to see if I could figure out what was going on, I
became suspicious that the line:
local($SIG{__DIE__}); # protect agains user defined die handlers
inside the simple_request sub might be preventing my eval's die from
doing its dirty work, but commenting out that line in the RH Linux
system's copy of LWP::UserAgent.pm and re-running lwp_test2.pl didn't
seem to change anything; I got essentially the same results shown
above.
I'm still quite new to the concept of signal handlers and using the
eval/die construct; I've tried to make sense of perlipc's stuff on
signals, but a lot of it is over my head, so I assume there's something
pretty basic going on that I'm missing.
Anyway, any insights into either of these mysteries will be much
appreciated. Thanks.
--
John Callender
jbc@west.net
http://www.west.net/~jbc/
------------------------------
Date: 3 Oct 1999 00:34:41 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Match and escape processing
Message-Id: <slrn7vdr7d.2ot.abigail@alexandra.delanet.com>
lt lindley (ltl@rgsun40.viasystems.com) wrote on MMCCXXIII September
MCMXCIII in <URL:news:7t65qr$7c0$1@rguxd.viasystems.com>:
`` Abigail <abigail@delanet.com> wrote:
``
`` :> #!/opt/perl/bin/perl -wl
``
`` :> use strict;
``
`` :> sub TIESCALAR {bless \(my $a = '')}
`` :> sub FETCH {my $a = shift; my $b = $$a; $$a = '$'; $b}
``
`` :> tie my $xyz => '';
``
`` :> print "Yes" if $xyz =~ /^\Q$xyz$/;
``
`` :> __END__
`` :> Yes
``
`` OK. I left you an opening and you slithered through like
`` a snake through a mouse hole. I should have said "for any
`` single value of $xyz".
``
`` But I'm still ignorant as to why the first reference to $xyz during
`` the re interpolation doesn't call FETCH. I suppose I have some
`` reading to do and that it will all make sense then.
Oh, but it does. It certainly does. The interesting question is, why
is the FETCH from $xyz in the regex called *before* the FETCH call
from the $xyz left of the =~....
Abigail
--
split // => '"';
${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
-----------== 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: Sun, 03 Oct 1999 10:10:05 +0200
From: Moritz Mertinkat <bluebit@gmx.net>
Subject: Perl vs. PHP3
Message-Id: <37F70F5D.92203002@gmx.net>
Hi,
I have to write an Advertising Script (Banner rotation),
but I still don't know what language I should use.
What do you think is the better language (speed!) for
this task?
Thanks,
Moritz M.
------------------------------
Date: 3 Oct 1999 03:49:46 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: script for URL forwarding or redirection with perl ??
Message-Id: <37F6D088.8F34928B@vpservices.com>
JungleCore wrote:
>
> name like www.myname.com and when is someone surfing to that URL the script
> redirects him to my real homepage URL??
Probably the best way to do this to make the index.html page on
www.myname.com include something like this:
My home page is now located at
<a href='http://www.real-home.com'>www.realhome.com</a>
Please update your links and/or bookmarks.
This allows users to change their links and bookmarks so they don't keep
going to the wrong address.
If you really can't live with that for some reason, this kind of
redirection is best done by the server so ask whoever operates the
server where www.myname.com is located to put a redirect statement in
the server configs.
A much worse way to do it is to use a Perl script containing something
like this:
my $new_location = "http://www.my-real-server.com/";
print "Location: $new_location\n\n";
Unlike most other cgi scripts, do *not* print a "Content-type:
text/html\n\n" line in this script.
--
Jeff
------------------------------
Date: 3 Oct 1999 01:03:27 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: script for URL forwarding or redirection with perl ??
Message-Id: <slrn7vdstb.2ot.abigail@alexandra.delanet.com>
JungleCore (junglecore@SexMagnet.com) wrote on MMCCXXIV September
MCMXCIII in <URL:news:7t6be2$5l9$1@as102.tel.hr>:
''
'' Like I wrote in subject I would like to know, can be URL forwarding or
'' redirection done with perl and that it looks like come.to or cjb.net
'' service.What I really mean is, can I somehow make my self a 'virtual' domain
'' name like www.myname.com and when is someone surfing to that URL the script
'' redirects him to my real homepage URL??
Yes. But this has nothing to do with Perl. Go talk to an ISP that
offers DNS services.
Abigail
--
perl -wlne '}print$.;{' file # Count the number of lines.
-----------== 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 Oct 1999 00:50:15 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: using tr?
Message-Id: <slrn7vds4j.2ot.abigail@alexandra.delanet.com>
Neko (tgy@chocobo.org) wrote on MMCCXXIV September MCMXCIII in
<URL:news:raH2N++dGk+K3SuF7X0KMK32uSi4@4ax.com>:
!! On 2 Oct 1999 13:57:58 -0500, abigail@delanet.com (Abigail) wrote:
!!
!! >Clinton Pierce (cpierce1@ford.com) wrote on MMCCXXI September MCMXCIII in
!! ><URL:news:37f5c381.284840759@news.ford.com>:
!! >//
!! >// Name two multi-character "perlfunc" featured functions that appear
!! >// as a portion of a World Capital name.
!! >
!! > Stanley (tan)
!!
!! That last one is -$400. Here are a few others:
So, what do you have against the capital of the Falkland Islands,
which seems to be refered to as both Stanley and Port Stanley?
!! Maputo (map)
!! Bucharest (uc)
!! Tripoli (tr)
I didn't check for tr because that's described in perlop.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\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: Sun, 03 Oct 1999 01:06:44 -0700
From: tgy@chocobo.org (Neko)
Subject: Re: using tr?
Message-Id: <Egf3Nz=hkPzPTmIJ9x32xkabvheu@4ax.com>
On 3 Oct 1999 00:50:15 -0500, abigail@delanet.com (Abigail) wrote:
>Neko (tgy@chocobo.org) wrote on MMCCXXIV September MCMXCIII in
><URL:news:raH2N++dGk+K3SuF7X0KMK32uSi4@4ax.com>:
>!! On 2 Oct 1999 13:57:58 -0500, abigail@delanet.com (Abigail) wrote:
>!!
>!! >Clinton Pierce (cpierce1@ford.com) wrote on MMCCXXI September MCMXCIII in
>!! ><URL:news:37f5c381.284840759@news.ford.com>:
>!! >//
>!! >// Name two multi-character "perlfunc" featured functions that appear
>!! >// as a portion of a World Capital name.
>!! >
>!! > Stanley (tan)
>!!
>!! That last one is -$400. Here are a few others:
>
>So, what do you have against the capital of the Falkland Islands,
>which seems to be refered to as both Stanley and Port Stanley?
I blame them for the lack of a tan() function in Perl.
>!! Maputo (map)
>!! Bucharest (uc)
>!! Tripoli (tr)
>
>I didn't check for tr because that's described in perlop.
I erroneously checked 'tr' because it was in perlfunc.
--
Neko | tgy@chocobo.org | Will hack Perl for a moogle stuffy! =^.^=
------------------------------
Date: Sun, 03 Oct 1999 12:23:37 +0200
From: Evgen Pribaten <geka@nest.ntu-kpi.kiev.ua>
Subject: Where to find doc of Perl?
Message-Id: <37F72EA9.7157C957@nest.ntu-kpi.kiev.ua>
Hi All!
subj, in russian advisable :)
Can who will send a email?
--
Geka Have a nice day!
------------------------------
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 976
*************************************
