[12907] in Perl-Users-Digest
Perl-Users Digest, Issue: 317 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 30 20:07:17 1999
Date: Fri, 30 Jul 1999 17:05:14 -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 Fri, 30 Jul 1999 Volume: 9 Number: 317
Today's topics:
Re: <<END_OF_TEXT function <cassell@mail.cor.epa.gov>
ANNOUNCE: Perl Conference papers <tchrist@mox.perl.com>
Re: ANNOUNCE: Perl Conference papers (Abigail)
Re: Beginner-friendly group as cultural adaptation? <mike@crusaders.no>
Re: Best way to build a complex data structure (Abigail)
Re: CGI.pm bug? repeating values <makkulka@cisco.REMOVETHIS.com>
Re: CGI.pm bug? repeating values (Abigail)
Re: CGI.pm bug? repeating values <makkulka@cisco.REMOVETHIS.com>
Re: Date incrementing <garethr@cre.canon.co.uk>
Re: Date incrementing (Abigail)
Re: displaying results a screen at a time. <garethr@cre.canon.co.uk>
Re: ebcdic packed numbers :maybe the solution <shogue@securenet.net>
Re: ebcdic packed numbers <tchrist@mox.perl.com>
Re: ebcdic packed numbers <garethr@cre.canon.co.uk>
Re: ebcdic packed numbers (Abigail)
Re: ebcdic packed numbers <tchrist@mox.perl.com>
Re: Getting the Win32::API module to work <sweather@fastenal.com>
Re: Help: IO::Socket not working <cassell@mail.cor.epa.gov>
Re: Hey, that's pretty neat! (Larry Rosler)
Re: Hey, that's pretty neat! <cassell@mail.cor.epa.gov>
Re: How is perl braindamaged? (was Re: Is LISP dying?) <cassell@mail.cor.epa.gov>
How to compare two files and get the differences ? <factory@factory.co.kr>
Re: How to read the submit button as a name or value <tchrist@mox.perl.com>
Re: How to read the submit button as a name or value (Bart Lateur)
Re: How to stop a CGI execution ? <makkulka@cisco.REMOVETHIS.com>
Re: Newbie alert !! (Neko)
Re: Newbie alert !! (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 30 Jul 1999 17:01:09 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: <<END_OF_TEXT function
Message-Id: <37A23CC5.A3734B3A@mail.cor.epa.gov>
Paul Christopher Reid wrote:
>
> I have installed activeperl and now i need to read all the documentation.
It looks daunting, but it's worth the time. You may find
it a lot easier to use the HTML docs which now have a shortcut
sitting on your Start Menu. Click, and they'll open in your
favorite browser in a handy-to-use format.
> This is not so easy I will need to play about searching through the folders etc to
> see what it has installed and trying to find out how to use it. be back in about
> forty three years
Hey, I'm still learning the ins and outs of Perll too.
There's always more to know. Which is A Good Thing (tm).
But in Perl you can start programming long before you learn
half of what there is to know. When you read the 'Introduction'
of the 'Core Perl Docs' [which is the same as what you get
if you type 'perldoc perl' at a command prompt], you'll find
a useful order for perusing the docs. If you have questions,
try some code and experiment.
> Thanks for the help again
> BTW:
> I see great potential in this and my understanding of the web has just become the
> size of a needle in a haystack again.
But you'll be able to do so much more now. And not just in
CGI programming.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 30 Jul 1999 16:18:43 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: ANNOUNCE: Perl Conference papers
Message-Id: <37a224c3@cs.colorado.edu>
The refereed papers for the upcoming Perl Conference are talked about
here:
http://www.perl.com/pub/n/Papers_Selected_for_Perl_Conference_3.0
and listed here:
http://conference.oreilly.com/perl3/conf_desc.html#papers
--tom
--
"Imagine you are a congressman. Now imagine you are an idiot. But I repeat
myself."
- Mark Twain
------------------------------
Date: 30 Jul 1999 18:21:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: ANNOUNCE: Perl Conference papers
Message-Id: <slrn7q4crm.hek.abigail@alexandra.delanet.com>
Tom Christiansen (tchrist@mox.perl.com) wrote on MMCLIX September
MCMXCIII in <URL:news:37a224c3@cs.colorado.edu>:
() The refereed papers for the upcoming Perl Conference are talked about
() here:
()
() http://www.perl.com/pub/n/Papers_Selected_for_Perl_Conference_3.0
()
() and listed here:
()
() http://conference.oreilly.com/perl3/conf_desc.html#papers
Oh goodie. Now I can go off and sulk even more about the fact that I'm
not coming to TPC.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== 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: Sat, 31 Jul 1999 00:26:45 +0200
From: "Trond Michelsen" <mike@crusaders.no>
Subject: Re: Beginner-friendly group as cultural adaptation?
Message-Id: <LGpo3.534$Y87.5998@news1.online.no>
Reini Urban <rurban@xarch.tu-graz.ac.at> wrote in message
news:37a1fef9.123132104@judy.x-ray.local...
> let's discuss a new comp.lang.perl.win32 and a new comp.lang.perl.cgi
> group.
The first problem I see with clp.win32 is that it (IMHO) should only contain
discussions regarding win32 specific Perl-discussions, i.e. discussions
about the usage of the various win32::* modules. I'm just afraid that people
that use Perl on a win32 system will ask general perl-questions in that
group instead of in clp.misc
--
Trond Michelsen
------------------------------
Date: 30 Jul 1999 18:49:03 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Best way to build a complex data structure
Message-Id: <slrn7q4eef.hek.abigail@alexandra.delanet.com>
kirk@kaybee.org (kirk@kaybee.org) wrote on MMCLIX September MCMXCIII in
<URL:news:7nsrgq$bt0$1@news-int.gatech.edu>:
\\
\\ However, this means that in order to search through and prune out
\\ certain entries based on certain regular expressions, I would have to do
\\ something like this:
\\
\\ foreach $ThisFile (keys %FileList) {
\\ if ($ThisFile =~ /regex/) {
\\ delete $FileList{$ThisFile};
\\ }
\\ }
\\
\\ This last statement seems that it could be very CPU intensive. The
\\ other idea I thought of was to store each one like this:
It's not the last statement, it's the 'keys'. Use each(). Of course,
whether you use a hash or an array, if the list is large, that will
be a performance hit. You should consider using something like dbm.
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: Fri, 30 Jul 1999 16:23:58 -0700
From: makkulka <makkulka@cisco.REMOVETHIS.com>
Subject: Re: CGI.pm bug? repeating values
Message-Id: <37A2340E.E4ABBFA5@cisco.REMOVETHIS.com>
--
There can be strange results from CGI.pm's forms
if they use the same parameter(s) for input
and output. I am guessing this is the way
your form is being used.
In this case I would suggest that you make
a call to delete_all () after you have
copied all the input parameter values
into the perl program variables.
something like this ..
my $var1 = $page -> ('param1');
my $var2 = $page -> ('param2');
etc
$page->delete_all(); #clean the form parameter name space..
Now you can safely write code that outputs
parameters that uses the same names as 'param1' and
'param2' which are input to the same form.
Regards
Makarand Kulkarni
Peter Bismuti wrote:
>
> I have had a problem with several of my CGI scripts using CGI.pm.
> This is what some of the values look like after a form is used
> for a while:
>
> app_semester = FallFallFallFallFallFallFallFall
> app_year = 20002000200020002000200020002000
> calendar_grad = semester hours
> calendar_ugrad = quarter hours
> citizenship = USAUSA
> city_perm = OlympiaOlympia
> city_pres = TallahasseeTallahassee
> contents_true = yesyesyesyes
> country_perm = USAUSA
> country_pres = USAUSA
> day = 3030303030303030
>
> This doesn't happen to all the variables, although there doesn't
> seem to be any reason why some will repeat and some won't.
> I've also had a problem with values being erased, perhaps the two
> are related.
>
> Does anyone know how to fix this?!
>
> Thanks!!
------------------------------
Date: 30 Jul 1999 18:51:20 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: CGI.pm bug? repeating values
Message-Id: <slrn7q4eip.hek.abigail@alexandra.delanet.com>
Peter Bismuti (bismuti@cs.fsu.edu) wrote on MMCLIX September MCMXCIII in
<URL:news:7nsrk5$egd$1@news.fsu.edu>:
.. [Symptons of a problem, but no code]
..
.. Does anyone know how to fix this?!
There's a bug in line 17.
Abigail
--
perl -wle '$, = " "; print grep {(1 x $_) !~ /^(11+)\1+$/} 2 .. shift'
-----------== 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: Fri, 30 Jul 1999 16:53:37 -0700
From: Makarand Kulkarni <makkulka@cisco.REMOVETHIS.com>
Subject: Re: CGI.pm bug? repeating values
Message-Id: <37A23B01.A1B6DF8E@cisco.REMOVETHIS.com>
I am reposting this as I made
a mistake in my earlier reply.
--
There can be strange results from CGI.pm's forms
if they use the same parameter(s) for input
and output. I am guessing this is the way
your form is being used.
In this case I would suggest that you make
a call to delete_all () after you have
copied all the input parameter values
into the perl program variables.
something like this ..
my $var1 = $page -> param('param1');
my $var2 = $page -> param ('param2');
etc
$page->delete_all(); #clean the form parameter name space..
Now you can safely write code that outputs
parameters that uses the same names as 'param1' and
'param2' which are input to the same form.
Regards
Makarand Kulkarni
Peter Bismuti wrote:
>
> I have had a problem with several of my CGI scripts using CGI.pm.
> This is what some of the values look like after a form is used
> for a while:
>
> app_semester = FallFallFallFallFallFallFallFall
> app_year = 20002000200020002000200020002000
> calendar_grad = semester hours
> calendar_ugrad = quarter hours
> citizenship = USAUSA
> city_perm = OlympiaOlympia
> city_pres = TallahasseeTallahassee
> contents_true = yesyesyesyes
> country_perm = USAUSA
> country_pres = USAUSA
> day = 3030303030303030
>
> This doesn't happen to all the variables, although there doesn't
> seem to be any reason why some will repeat and some won't.
> I've also had a problem with values being erased, perhaps the two
> are related.
>
> Does anyone know how to fix this?!
>
> Thanks!!
------------------------------
Date: Fri, 30 Jul 1999 22:11:54 GMT
From: Gareth Rees <garethr@cre.canon.co.uk>
Subject: Re: Date incrementing
Message-Id: <si7lnhn5xx.fsf@cre.canon.co.uk>
Stone Cold <paulm@dirigo.com> wrote:
> For example, if the user enters in "may-99" in the user form, the
> output would show like follows:
>
> May-99 Jun-99 Jul-99 Aug-99 Sep-99 Oct-99
You're asking for year 2000 trouble with those 2-digit years.
--
Gareth Rees
------------------------------
Date: 30 Jul 1999 18:53:04 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Date incrementing
Message-Id: <slrn7q4em0.hek.abigail@alexandra.delanet.com>
Gareth Rees (garethr@cre.canon.co.uk) wrote on MMCLIX September MCMXCIII
in <URL:news:si7lnhn5xx.fsf@cre.canon.co.uk>:
\\ Stone Cold <paulm@dirigo.com> wrote:
\\ > For example, if the user enters in "may-99" in the user form, the
\\ > output would show like follows:
\\ >
\\ > May-99 Jun-99 Jul-99 Aug-99 Sep-99 Oct-99
\\
\\ You're asking for year 2000 trouble with those 2-digit years.
Why? Do you think his users where using his form back in 1900?
Not every 2 digit year usage means a Y2K issue.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== 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: Fri, 30 Jul 1999 22:35:09 GMT
From: Gareth Rees <garethr@cre.canon.co.uk>
To: sharda@hotmail.com
Subject: Re: displaying results a screen at a time.
Message-Id: <si4siln4v6.fsf@cre.canon.co.uk>
sharda@hotmail.com wrote:
> Is there a way to display the result as x number of rows at a time?
Pipe the output through a pager, for example
$pager = $ENV{PAGER} || "/bin/more";
open(OUT, "| $pager") or die "Can't fork: $!";
print "hello world!\n" while 1;
(You might want to read perlopentut and perlfaq8.)
--
Gareth Rees
------------------------------
Date: 30 Jul 1999 23:53:35 GMT
From: "Sylvain Hogue" <shogue@securenet.net>
Subject: Re: ebcdic packed numbers :maybe the solution
Message-Id: <01bedae6$0dee3200$7c1071d8@vilaval>
Norman Frech <frech@primary.net> a écrit dans l'article
<cian3.28$Tw1.5756@news1.primary.net>...
> I have a ebcdic to ascii converter that works well on everything but
packed
> numbers (signed and unsigned). Does anyone have a tip or code that
converts
> this field type?
> Norm <frech@primary.net>
>
>
>
This is the first time i answer a question on this new.
Ok
As i remember a number in packed format in EBCDIC look like that
hex value:
00000121
0000002F
This mean that this is the number 10221 The lette F mean that it is
unsigned
But if it finish with the letter D this mean that the amount is negative
like that
00000121
0000002D = - 10221
And finally if it finish with a C the number is positive
Then to convert a field in EBCDIC packed try this function,
The function was conceived with a field of 8 bytes long (the more frequent)
If your field is smaller just adapt the parameter.
First off all, try to isolate your packed field in a string of 8 bytes
long.
And use this function
Ex
$string=packed_field #(ex: binary field with the
# content "x00 x00 x00 x00 x00 x00 x12 x31 x5d"
# the amount = -12315
$number=packed_to_decimal($string);
print $number; # give -12315;
...
And the function
sub packed_to_decimal()
{
my $packed=shift;
$amount=0;
for($r=0,$q=13;$r<7;$r++,$q-=2)
{
$temp=vec($packed,$r,8); # handle the 7 first bytes
$amount+=($temp*(10**$q));
}
# $amount must have = 1231
$last=vec($packed,8,8); #handle the last byte
$amount+=int($last/16); # insert the last digit
# $amount is now 12315
$signe=$last%16; # the signe of the amount =letter D
if($signe==13) # finish by letter D
{
$amount*=-1; # make negative, the amount is -12315
}
return $amount; # return the result
}
I am sure that this not the fastest nor the more elegant way to do that
but it is working
Sylvain Hogue
------------------------------
Date: 30 Jul 1999 16:18:16 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: ebcdic packed numbers
Message-Id: <37a224a8@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, Gareth Rees <garethr@cre.canon.co.uk> writes:
:Decimal fractions can be represented exactly as ratios of bignums.
There are, ahem, rather more numbers that can't be represented that way
than those that can. See Cantor's Diagonalization Theorem. :-)
--tom
--
"Age cannot wither her, nor custom stale her infinite variety."
- William Shakespeare
------------------------------
Date: Fri, 30 Jul 1999 22:38:27 GMT
From: Gareth Rees <garethr@cre.canon.co.uk>
Subject: Re: ebcdic packed numbers
Message-Id: <si1zdpn4po.fsf@cre.canon.co.uk>
Gareth Rees wrote:
> Decimal fractions can be represented exactly as ratios of bignums.
Tom Christiansen wrote:
> There are, ahem, rather more numbers that can't be represented that way
> than those that can.
A decimal fraction is a number of the form n/10^m, where n and m are
integers and m >= 0.
--
Gareth Rees
------------------------------
Date: 30 Jul 1999 18:26:56 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: ebcdic packed numbers
Message-Id: <slrn7q4d50.hek.abigail@alexandra.delanet.com>
Gareth Rees (garethr@cre.canon.co.uk) wrote on MMCLIX September MCMXCIII
in <URL:news:siaesdn8jz.fsf@cre.canon.co.uk>:
?? Uri Guttman wrote:
?? > Perl's bigint modules should satisfy that need without any extra effort.
??
?? Bart Lateur wrote:
?? > Math::Bigint? With decimal points?
??
?? Decimal fractions can be represented exactly as ratios of bignums.
_Finite_ or _repeated_ fractions can be. But I challenge you to find 2 bignums
that form a ratio equal to the square root of 2.
[Not that's it's impossible to do exact arithmetic on algebraic numbers.
C-K Yap had an interesting talk on CCCG'92 explaining how to do
arithmetic on algebraic numbers, using just integers. It's all based on
the fact that an algebraic number is a root of a polynomial of bounded
degree, and integer coefficients. But I disgress... ]
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== 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: 30 Jul 1999 18:03:28 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: ebcdic packed numbers
Message-Id: <37a23d50@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Gareth Rees <garethr@cre.canon.co.uk> writes:
:> Decimal fractions can be represented exactly as ratios of bignums.
:> There are, ahem, rather more numbers that can't be represented that way
:> than those that can.
:A decimal fraction is a number of the form n/10^m, where n and m are
:integers and m >= 0.
Yes, but my point was that there are a lot of other numbers than that,
both rationals and irrationals.
Perhaps I am just on a tangent.
--tom
--
"And I don't like doing silly things (except on purpose)."
--Larry Wall in <1992Jul3.191825.14435@netlabs.com>
------------------------------
Date: Fri, 30 Jul 1999 17:43:09 -0500
From: "Sam Weatherhead" <sweather@fastenal.com>
Subject: Re: Getting the Win32::API module to work
Message-Id: <7nt9pj$1ps6@enews4.newsguy.com>
I was being an idiot. Sorry about the post.
I found the Win32::API module for Build 5xx
at the ActiveState Repository: http://www.activestate.com/packages/zips/
Installed it, and it works.
I was trying to put a square peg into a round hole.
Sam Weatherhead
Fastenal
Sam Weatherhead <sweather@fastenal.com> wrote in message
news:7nt2ol$1m08@enews4.newsguy.com...
> Don't laugh at me, but....:
>
> I downloaded Aldo Calpini's Win32::API module but I can't
> figure out how to install it and get it running.
>
> I took the "API.mak" file and opened it up in Visual C++ 6.0.
> I then tried building the API.pll file. At first it was failing out
> because it was trying to find "..\..\..\Release\perl300.lib", which
> doesn't exist for newer versions of Perl (I have version 517 from
> ActiveState).
>
> To fix the problem, I then created the "Release" directory and then
> copied perlCAPI.lib and renamed it to perl300.lib in the "Release"
> directory.
> I then did a rebuild and it worked. It created the API.pll, API.lib, and
> API.exp.
>
> After that, I then copied the API.pll, API.exp, and API.lib to the
> C:\Perl\Site\lib\auto\win32\API directory and then copied the API.pm
> to the C:\Perl\Site\lib\Win32 directory.
>
> However, when I went to run the test script:
>
> use Win32::API;
> $GetPID = new Win32::API("kernel32", "GetCurrentProcessId", [], N);
> $PID = $GetPID->Call();
> print "1..1\n";
> print ($PID == $$ ? "ok 1\n" : "not ok 1\n");
>
> it failed out saying:
>
> Can't locate loadable object for module Win32::API in @INC (@INC contains:
> C:/Perl/lib C:/Perl/site/lib .) at
> E:\Sams_Files\Perl\Shareware\Win32API-0.011\t\test.pl line 2
> BEGIN failed--compilation aborted at
> E:\Sams_Files\Perl\Shareware\Win32API-0.011\t\test.pl line 2.
>
>
> Any Suggestions are appreciated.
>
> Sam Weatherhead
> Fastenal
>
>
>
>
>
>
>
------------------------------
Date: Fri, 30 Jul 1999 16:39:17 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Help: IO::Socket not working
Message-Id: <37A237A5.5FBC529D@mail.cor.epa.gov>
Greg Guerin wrote:
>
> I'm new to Perl and am trying to figure out how to create client and
> server scripts on NT. IO::Socket Module doesn't seem to in my lib
> directory.
Do you have an IO directory under your lib directory? Socket.pm
should be in there. Remember that Foo::Bar::Bletch is going to
be in whatever/lib/Foo/Bar/ as Bletch.pm .
If you don't have an IO directory under your lib directory,
you're in trouble.
> If I pull a library down how do I make Perl know it's
> there. Just putting it in the lib directory doesn't seem to work. And
Follow the directions on the back of the box. On NT, you usually
only need to use ppm to get the module placed in the correct
location. On Unix [and for those *other* modules when on NT]
you just follow the directions that come with the module. If
you're on NT and you have no make program, go to Microsoft's
website and get a free copy of nmake. [Yes, I did suggest a
Microsoft product and I haven't been smitten. Give it time.]
> is there a difference between an module for NT vs. UX? Thanks in
> advance!
Not really. Many modules run unchanged on both. Some
won't run on NT at all [look for fork() and alarm() among
other telltales]. Some won't run on unix [like everything
that starts with Win32:: oddly enough]. A proper installation
on your part should take care of some of the discrepancies
between Perl's favorite OS and you-know-what. :-)
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 30 Jul 1999 15:40:44 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Hey, that's pretty neat!
Message-Id: <MPG.120bc9c8ab6118e8989d7d@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <37a21a8f@cs.colorado.edu> on 30 Jul 1999 15:35:11 -0700, Tom
Christiansen <tchrist@mox.perl.com> says...
> In comp.lang.perl.misc,
> lr@hpl.hp.com (Larry Rosler) writes:
> : Encyclopædia Britannica
> : Gödel
> : Shrödinger
>
> I wish I could get my locales set up well enough that I could have seen
> these instead of the hex characters that confused me. :-(
Gasp. That's 'Schrödinger' in any case! Far enough away from the o-
umlaut not to have confused either of us. :-(
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 30 Jul 1999 16:52:15 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Hey, that's pretty neat!
Message-Id: <37A23AAF.EF1A6D25@mail.cor.epa.gov>
Larry Rosler wrote:
[snip]
> Shrödinger
I thought there was supposed to be a 'c' before the 'h'.
Oh well, live and learn...
> > tschüß
>
> You have the strangest definition of 'English' for that last one!
Why not? When words like schlep and tschüß get used in the
vernacular [even if they're spelled wrong], then aren't they
part of the English language? American English, at least,
is the Hoover vacuum cleaner of linguistics.
> Maybe a small tutorial on locales would be useful in general. I know it
> would be to me.
>
> Ciao! (Is that English, too?)
Sure. Isn't everything? :-) Look at one of the works of Leo
Rosten to see how much of common English is actually Yiddish.
And how long has it been since you heard or read words like
'anime', 'yo-yo', 'kayak', ...
Is American English the Perl of human languages?
[50 points. You have 30 minutes to write a discussion
of up to 4 pages. You may use the front and back of your
blue-book pages.]
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 30 Jul 1999 17:03:39 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: How is perl braindamaged? (was Re: Is LISP dying?)
Message-Id: <37A23D5B.81FFF7D9@mail.cor.epa.gov>
Eric The Read wrote:
>
> rurban@xarch.tu-graz.ac.at (Reini Urban) writes:
> > if anyone is interested in "language wars" or let's say some arguments
> > from the outside morons, we collected some arguments on comp.lang.lisp
> > "why perl is braindamaged", "why python is better", "why perl is better
> > than python", why lisp is better than everything and such.
>
> Go away, troll.
>
> *plonk*
While I don't vote for bringing language wars here, I don't
think he's a troll. I've seen other posts by him recently, and
he can program in Perl. Just because he finds some aspects
less than appealing doesn't make him evil. Ask Abigail if
she loves the Perl OO interface. :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sat, 31 Jul 1999 08:17:33 +0900
From: "Yeong Mo/Director Hana co." <factory@factory.co.kr>
Subject: How to compare two files and get the differences ?
Message-Id: <7ntb8i$igf$1@news1.kornet.net>
There are lines at aaa.txt and bbb.txt as following;
($f1, $category, $f2, $f3, $f4, $f5, $f6, $f7) = split ('\|', $lines);
If aaa.txt has $category=123, and bbb.txt doesn't have $category=123,
How can I compare two files and get the value of 123 ?
------------------------------
Date: 30 Jul 1999 16:25:16 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How to read the submit button as a name or value
Message-Id: <37a2264c@cs.colorado.edu>
In comp.lang.perl.misc, brian@pm.org (brian d foy) writes:
:> % time perl -MCGI -e 1
:> 0.062u 0.009s 0:00.08 36.8%
:>
:> Don't blink. You'll miss it.
:
:however, if all you want to do is the parse the CGI input, i recommend
:
: use CGI::Request;
:
:it's a CGI module without the cruft.
1) It's also not part of the standard distribution. It's not on my
normal machine above, so I'll have to test this elsewhere.
2) It's slower. You're not defining "without the cruft" as *slower*,
now are you? :-)
% time perl -MCGI::Request -e 1
0.290u 0.040s 0:00.37 89.1%
% time perl -MCGI -e 1
0.140u 0.020s 0:00.20 80.0%
Whether you're on the the faster machine above or the slower one below,
I hardly consider this amount of "overhead" to be worth the numerous
roll-your-own penalties that people incur when they hand-crack their
requests.
--tom
--
"I think I'll side with the pissheads on this one." --Larry Wall
------------------------------
Date: Fri, 30 Jul 1999 22:55:06 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How to read the submit button as a name or value
Message-Id: <37a32d20.2856814@news.skynet.be>
Tom Christiansen wrote:
>I bet they didn't get as much right as Lincoln did. More eyes.
How many eyes does he have then?
Oh, you mean OUR eyes. How many people have actually looked into the
code?
Bart.
------------------------------
Date: Fri, 30 Jul 1999 16:49:09 -0700
From: makkulka <makkulka@cisco.REMOVETHIS.com>
Subject: Re: How to stop a CGI execution ?
Message-Id: <37A239F5.4182C61B@cisco.REMOVETHIS.com>
Hi,
Let us say that your CGI program is taking
too long to complete and that is why
the user wants to "stop" the CGI
program by hitting the STOP on the browser
window or closing the browser itself.
Here is a germinal idea that I have.
I have tested this idea with a test
program that I wrote and this works well.
Your output from the CGI program which
is taking time shall be in two parts.
The first part will be a simple form
something like this which will provide
its own STOP button.
<form name=formname action=killerapp?pid=xxx>
<input type=image src=stopimage.gif>
</form>
Please note that we are not using any
submit button here. The image will
become clickable and will call killerapp to
kill the program that is generating this
very page. The xxx param should have the appropriate
value when this page is generated. This simple
form will not take much screen space at all and
can go on top of the page being generated.
You may want to set $|=1 to make sure
that STDOUT is getting flushed.
After the form is presented the program will
go into its time consuming operation and
the user can choose to stop the cgi program
using the button he has been presented with.
On unix you may have used KILL -9 PID to
stop the time consuming CGI program.
You will need to find out a similar
mechanism on NT.
Regards,
Makarand Kulkarni,
makarand_kulkarni@NOSPAM.usa.NET
------------------------------
Date: 30 Jul 1999 22:20:40 GMT
From: tgy@chocobo.org (Neko)
Subject: Re: Newbie alert !!
Message-Id: <7nt8fo$2di$0@216.39.141.200>
On Fri, 30 Jul 1999 20:06:21 GMT, John.Borwick@sas.com (John Borwick) wrote:
>/$_/ is always true, because it's the same as $_ =~ /$_/ .
> A "tautology," you might say.
perl -e "$_='\\d';print /$_/ ? 'TRUE' : 'FALSE'"
FALSE
--
Neko | tgy@chocobo.org | Will hack Perl for a moogle stuffy! =^.^=
------------------------------
Date: 30 Jul 1999 18:35:37 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Newbie alert !!
Message-Id: <slrn7q4dla.hek.abigail@alexandra.delanet.com>
John Borwick (John.Borwick@sas.com) wrote on MMCLIX September MCMXCIII in
<URL:news:37a60505.373788178@newshost.unx.sas.com>:
``
`` /$_/ is always true, because it's the same as $_ =~ /$_/ .
`` A "tautology," you might say.
Try:
$_ = '^$';
print "John is wrong\n" unless /$_/;
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: 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 317
*************************************
