[7882] in Perl-Users-Digest
Perl-Users Digest, Issue: 1507 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 19 09:17:10 1997
Date: Fri, 19 Dec 97 06:01:01 -0800
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, 19 Dec 1997 Volume: 8 Number: 1507
Today's topics:
Re: <SELECT MULTIPLE > Script only gives one value. Ca (brian d foy)
ftp-daemon written in perl ? (Oliver Hohl)
Re: getting correct web server headers (brian d foy)
Happy Birthday Perl ? <uzs7ci@ibm.rhrz.uni-bonn.de>
Happy birthday Perl! <xah@best.com>
Help needed <nadassy@ebi.ac.uk>
help with anonymous array in tied hash forster@na-cp.rnp.br
Re: JOKE (was Teaching programing) (Bart Lateur)
Listening to STDIN while listening for a socket? (Paul Ryder)
Re: Listening to STDIN while listening for a socket? (brian d foy)
Re: mysterious "Missing $ on loop variable" error (Bart Lateur)
Re: Newbie can't add the -w flag to perl to get useful (brian d foy)
Re: Newbie can't add the -w flag to perl to get useful (Bart Lateur)
perl 5.004 on SCO Unix (A. Warnier)
perl and grabbing HTML files using a URL via the web (Frank Driver)
Re: perl for Win32 question <Harald.Joerg@mch.sni.de>
Problem with socket upon HTTP <mdgoutte@asi.fr>
Re: Problem with socket upon HTTP <mdgoutte@asi.fr>
Re : access to file other than in cgi dir. (A. Warnier)
Referencing/Dereferencing Probs.... <Paul.J.King@nmp.nokia.com>
Re: Sending a signal to a process owned by someone else lee.gammell@feedME
Re: Sorting Hashes By Value <bugaj@bell-labs.com>
Re: terminate input on CGI.pm in Win95 Gurusamy Sarathy <barnett@houston.Geco-Prakla.slb.com>
Re: unshift, @INC, require??? (Mark)
Web Database Survey (Steph Thornton)
Re: What kind of machine wouldn't support FLOCK? <merlyn@stonehenge.com>
Re: Which language pays most 17457 -- C++ vs. Java? (Kenny A. Chaffin)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 19 Dec 1997 05:05:21 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: <SELECT MULTIPLE > Script only gives one value. Can you help?
Message-Id: <comdog-ya02408000R1912970505210001@news.panix.com>
Keywords: just another new york perl hacker
In article <349a9723.26239008@news.kc.net>, stephenc@granddesign.com wrote:
>foreach $pair (split(/&/,$cgiin)) {
> $pair =~ s/\+/" "/ge;
you might be to use tr/+/ /; instead.
> $pair =~ s/%(..)/pack("c",hex($1))/ge;
hmmm... let's say my widget name is 'd=silent' which is encoded as
'd%3Dsilent'. and let's say it has the value 'yes'. all of that put
together is passed as 'd%3Dsilent=yes'
after this line it's 'd=silent=5'
> ($key,$val) = split(/=/,$pair,2);
now i have a spurious name of 'd' with a value of 'silent=yes', and
the correct data is missing! hmmmm...
> $cgi{$key} .= "\000" if $cgi{$key};
kinda like anonymous arrays myself. i tend to think someday i might
want to have a null byte in my data ;)
if you are set on writing your own routine, you might want to take a
look at the way this is done in CGI.pm (which doesn't have this
problem). if you aren't, you might want to use CGI.pm.
--
brian d foy <comdog@computerdog.com>
Meta Meta FAQ <URL:http://computerdog.com/Meta_MetaFAQ.html>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 19 Dec 1997 11:10:45 GMT
From: hohlor@trick.informatik.uni-stuttgart.de (Oliver Hohl)
Subject: ftp-daemon written in perl ?
Message-Id: <67dknl$qmr@zdi.informatik.uni-stuttgart.de>
Hi,
im looking for a ftp-daemon written in perl which i can use by
giving it the portnr on which it should listen to instead of using the inetd
to call the server process...
Does anyone know of such a perl daemon or where to find it...
I'd appreciate any help on that.
So short
Olli
/-----------------------------------------------------------------------------\
| hohlor@trick.informatik.uni-stuttgart.de Pictures Service at Server |
| picinfo@ftp.uni-stuttgart.de ftp.uni-stuttgart.de |
| Oliver Hohl , Thingstr. 77 , 70565 Stuttgart , Germany |
| http://www.informatik.uni-stuttgart.de/fachschaft/adressen/oliver.hohl.html |
\-----------------------------------------------------------------------------/
------------------------------
Date: Fri, 19 Dec 1997 05:22:13 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: getting correct web server headers
Message-Id: <comdog-ya02408000R1912970522130001@news.panix.com>
Keywords: from just another new york perl hacker
In article <67c1md$2io@rac3.wam.umd.edu>, jobe@wam.umd.edu (Joe Benik) wrote:
>Hey. I like to see someone else going the hard way, just like me. Don't
>listen to anyone who tells you to use LWP or any other modules.
let's remember that other people have valid opinions too. perhaps they
should tell others not to listen to you? since there is more than one
way to do it in Perl, let others hear whatever opinions are expressed
and choose the one that suits them. after all, not everyone has the
time or desire to implement a compliant HTTP/1.1 agent.
but while you are at it, perhaps you should do you own IP packets as
well. telnet is just a crutch. :)
--
brian d foy <comdog@computerdog.com>
Meta Meta FAQ <URL:http://computerdog.com/Meta_MetaFAQ.html>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
"Can't we all just get along?"
------------------------------
Date: 18 Dec 1997 20:07:20 +0100
From: Oliver Much <uzs7ci@ibm.rhrz.uni-bonn.de>
Subject: Happy Birthday Perl ?
Message-Id: <67bs98$1nh@walras.econ.de>
Is it true that Perl celebrated its 10th anniversary on 12/18/97 ?
--
---
Oliver Much|@home: UZS7CI@ibm.rhrz.uni-bonn.de | Sei P ein Punkt Q wir
|@work: oliverm@addi.finasto.uni-bonn.de| wollen ihn Z nennen.
------------------------------
Date: Fri, 19 Dec 1997 05:42:41 -0800
From: "Xah" <xah@best.com>
Subject: Happy birthday Perl!
Message-Id: <67dtc5$db9$1@nntp1.ba.best.com>
If you have a computer science degree branded on your forehead, the
following poetry isn't for you. It is intended for the poor citizens of the
Perl Republic in celebration of Perl's 10th anniversary.
Perl is the most beautifully designed computer language. (never mind what
Larry said) In fact, I think Perl's intricate beauty vaults computer science
beyond the stage of comprehension.
Let me a-praise Perl beginning with its syntax -- a gift dropped from heaven
right on top of every programer's head. Mystical, labyrinth, concise and
consistent it is. Smells good too in the right context. Since syntax is the
most showy part of a language, programing in Perl is forthright fun. The
fun part is mere one spark of a million side effects. The true merit of
obfuscation is in practicality. Orthogonal theorists may have difficulty
understanding that term. Loosely, it means myopic convenience in the
tradition of New Jersey school's philosophy of "Worse is Better". Expect
viruses and cockroachs to be extinct hand-in-hand with Perl.
After beauty, I might as well speak the truth. I don't know much about
semantics, but Perl's semantics are better than grand daddy C for sure. With
Perl5, it bloat asses. At least I know it can handle 100 dimensional arrays
transparently through references and nesting "for" loops, putting the lisp
community in humiliation. (How about a donkey and ass book from O'Reilly?)
Historically speaking, the mud fudge pie of sed, awk, sh and c must be a
love-first-sight for the unix folks in their sorry OS state. Adding to that,
Perl is easy to learn and immediately useful. The situation is parallel to a
blackhole. First it gets you curious, then you are sucked in. Once you're
in, you become addicted in hacking its complexity. The hole mass increases
until its hegemony blackens any light in computer science. The priests of
Perl Republic -- being gurus -- can't help but to increase their power by
preaching wizardry of their brand. (Human behaviors are always beautiful and
admirable too, speaking for myself.) We bless Perl and Java collide head to
head saving the universe.
Ooops. I forgot about my poetry. Happy birthday, Perl. (^_~)
Xah, xah@best.com
http://www.best.com/~xah/
Mountain View, CA, USA
"Perl my ass" (There are more than one way to express love)
Somebody said:
>Perl is the greatest thing since
>sliced bread and if it weren't for MacPerl, I'd still be making $9 and
hour.
------------------------------
Date: Fri, 19 Dec 1997 11:05:36 +0000
From: Katalin Nadassy <nadassy@ebi.ac.uk>
Subject: Help needed
Message-Id: <349A5500.7FF19BA8@ebi.ac.uk>
Hello,
I'm new here in this newsgroup and also new in using Perl. I would like
to ask you for your help in the following problem: I would like to open
a file search for a certain string and then from that point where the
string is found extract the content of the file until another string
found and write it to a file.
I know that is probably a very easy problem, but I would appreciate any
suggestions and help.
Thank you very much !
Best regards,
Kati
------------------------------
Date: Fri, 19 Dec 1997 06:01:17 -0600
From: forster@na-cp.rnp.br
To: forster@na-cp.rnp.br
Subject: help with anonymous array in tied hash
Message-Id: <882532714.1799880710@dejanews.com>
Hello all!
I'd appreciate some help on this. I'm writing a script to parse large log
files, and since I can't afford to have all the information I need on
memory, I'm using tied hashes and arrays.
The problem arrives when I try to create an anonymous array as a element
of a tied hash. Is it possible, or I cant do that?
any comments would be appreciated!
(please send mail directly to me)
Regards,
Antonio Paulo Salgado Forster
Operacoes em Redes - RNP
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Fri, 19 Dec 1997 10:53:23 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: JOKE (was Teaching programing)
Message-Id: <34a9487f.7347756@news.tornado.be>
tadmc@metronet.com (Tad McClellan) wrote:
>10 PRINT "HELLO WORLD"
>20 END
in various flavours (I've picked out the simple one).
Or: how to put on your socks over your shoes.
Bart.
------------------------------
Date: Fri, 19 Dec 1997 09:52:45 GMT
From: paul@f1world.com (Paul Ryder)
Subject: Listening to STDIN while listening for a socket?
Message-Id: <349a43d6.495431092@news.u-net.com>
Hi.
Im attempting to make a client program.
At the moment is listens to a socket connection for incoming data, and
acts upon it.
However I also want to listen for STDIN from the keyboard to listen to
client commands from the user.
First bit :) how can i get perl to listen for STDIN and act upon
certain 'commands' ?
And 2nd, how can I have them both listening at the same time?
Thanks :-)
Mail replys to : paul@f1world.com pleases.
Thanks in advance.
_________________________________________________
Paul Ryder http://www.f1world.com
paul@pry.u-net.com ICQ : 262573
paul@f1world.com
paul@quake2.com
------------------------------
Date: Fri, 19 Dec 1997 05:39:38 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Listening to STDIN while listening for a socket?
Message-Id: <comdog-ya02408000R1912970539380001@news.panix.com>
Keywords: from just another new york perl hacker
In article <349a43d6.495431092@news.u-net.com>, paul@f1world.com wrote:
>Im attempting to make a client program.
>At the moment is listens to a socket connection for incoming data, and
>acts upon it.
>However I also want to listen for STDIN from the keyboard to listen to
>client commands from the user.
>First bit :) how can i get perl to listen for STDIN and act upon
>certain 'commands' ?
>
>And 2nd, how can I have them both listening at the same time?
have you seen the four argument version of select? the perlfunc man
page has examples of its use.
good luck :)
--
brian d foy <comdog@computerdog.com>
Meta Meta FAQ <URL:http://computerdog.com/Meta_MetaFAQ.html>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Fri, 19 Dec 1997 10:53:27 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: mysterious "Missing $ on loop variable" error
Message-Id: <34aa48c9.7420971@news.tornado.be>
fl_aggie@thepentagon.com (I R A Aggie) wrote:
>In article <882480075.86704138@dejanews.com>, web@calarts.edu wrote:
>
>+ foreach my $key ( keys %{$hashref} ) {
>
>+ Can anyone tell me what I'm doing wrong?
>
>Earlier versions of perl 5 (pre-v5.004, I think) seem to object to the
>'my $variable' syntax in a foreach loop.
I'm confused. Why would you need "my"? If you don't use it, the variable
is still local to the loop body. (That's right, as in local($key), not
as in my($key)). As there is no sub call in the body, I don't see the
need for "my".
Bart.
------------------------------
Date: Fri, 19 Dec 1997 05:27:35 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Newbie can't add the -w flag to perl to get useful warnings
Message-Id: <comdog-ya02408000R1912970527350001@news.panix.com>
Keywords: from just another new york perl hacker
In article <47faa07af0rhodri@wildebst.demon.co.uk>, Rhodri James <rhodri@wildebst.demon.co.uk> wrote:
>In article <daveSTOP*SPAMreed-1812971048260001@d200.b70.cmb.ma.ultra.net>,
> Dave Reed <daveSTOP*SPAMreed@webshowplace.com> wrote:
>> I've been told to "add the -w flag to perl to get useful warnings."
>> How? Type "perl -w" before the filename, like when using "perl -c"?
>
>Yes.
well, one might also incant perl thusly:
#!/usr/bin/perl -w
--
brian d foy <comdog@computerdog.com>
Meta Meta FAQ <URL:http://computerdog.com/Meta_MetaFAQ.html>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Fri, 19 Dec 1997 10:53:19 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Newbie can't add the -w flag to perl to get useful warnings
Message-Id: <34a74608.6716503@news.tornado.be>
tadmc@metronet.com (Tad McClellan) wrote:
>: How? Type "perl -w" before the filename, like when using "perl -c"?
>That will do it.
>
>Most people just put it on the "shebang" line though (if their system
>supports shebang lines):
>
>#!/usr/bin/perl -w
I've tested it on Mac and on DOS with the OS/2 port. These don't support
the shebang lines (since it's not Unix), but both DO recognize it, and
use any flags on that line. Just make this the first line of your
script:
#!perl -w
As the original question mentioned using a Mac:
In MacPerl, there's a menu item for enabling warnings. And for enabling
the debugger. I don't know if Matthias has fixed this already, but in
previous versions this was the only safe way to turn on the debugger.
The debugger acted strangely when activated from the shebang line.
HTH,
Bart.
------------------------------
Date: Fri, 19 Dec 1997 06:48:38 -0500
From: 100606.1753@compuserve.com (A. Warnier)
Subject: perl 5.004 on SCO Unix
Message-Id: <uVUaMQHD9GA.337@nih2naab.prod2.compuserve.com>
While on a visit to Poland, I tried to install the latest Perl distribution on
a friends SCO Unix Entreprise 5.x server, and it failed because apparently, to
get even a C compiler, one needs to buy the Developer version of SCO.
I tried to get around this by downloading GNU C, but it also needs a working C
compiler, a make, etc...
Does anyone know a way around this, without forcing my Polish friend to buy a
SCO Developer's license (which is beaucoup zloty).
Thanks in advance.
------------------------------
Date: Fri, 19 Dec 1997 11:28:45 GMT
From: fdriver@rnib.org.uk (Frank Driver)
Subject: perl and grabbing HTML files using a URL via the web
Message-Id: <67dlrl$igi$1@soap.uunet.pipex.com>
How do you get PERL to grab a HTML file from a URL to then place it in
a text format. I don't want to display the HTML as is, I want to read
the HTML file so I can use PERL to check the HTML tags.
Jesse
PS. Please can you send a reply by email to JDobson@rnib.org.uk.
------------------------------
Date: Fri, 19 Dec 1997 09:57:37 +0100
From: Harald Joerg <Harald.Joerg@mch.sni.de>
Subject: Re: perl for Win32 question
Message-Id: <349A3701.158F@mch.sni.de>
Tim Dudek wrote:
>
> You will often need to re-write scripts when porting from win32 to
> UNIX. There are
> so many differences between the two versions of perl that cause a great
> many problems.
I can't agree.
I did not find any other programming language that was that easily
portable from Win3.11 (Ilya's OS2 port) to Win95 (Activeware and GSAR)
to different flavours of UNIX and back. So far I never had to change
anything in my perl scripts (besides library paths for my own modules).
I still use some of my scripts which I wrote under MS-DOS/Perl 4.036.
There are, of course, some rules to write portable code:
1) Avoid system calls: Because the systems are different, they have
different interfaces. You often can replace system calls with Perl
module calls (e.g. use Net::SMTP instead of sendmail) or perl native
functions (chdir, unlink, ...).
2) Make sure that the modules you use are available on all platforms.
You won't find e.g. Win32::ODBC on most UNIX systems, and there are
some modules which are not (yet) available on Win32 (POSIX, for an
example - hence no "use locale").
3) Inform yourself about the Perl version(s) on the various platforms:
You should read the docs of the oldest version for your implementation,
this will give you more than enough for the beginning (assuming that
it's at least Perl 5.002, which still runs on one of my UNIX hosts).
> > I have decided that I would like to expand my knowledge of perl and
> > CGI. [...] My
> > question is: If I use the perl for win32 offline to compile and
> > debug scripts, will they work on the Unix system also? [...]
--
Oook,
--haj--
------------------------------
Date: Fri, 19 Dec 1997 12:25:43 +0100
From: Marc de GOUTTES <mdgoutte@asi.fr>
Subject: Problem with socket upon HTTP
Message-Id: <349A59B6.2EDF@asi.fr>
I've written a PERL script to test TCP sockets upon HTTP protocol. This
script builds a socket with a HTTP daemon, sends a request and display
the answer. It works with every host I've tested except one :
www.yslaire.be.
Here is my script, can anyone help me ? (nota : I run it under WIN95).
--------------------------------------------------------------------------
# browser.pl : small browser
use Socket;
if ($#ARGV != 0) {
print "Usage : $0 HOST[:PORT]/[URL]\n" ;
exit 1 ;
}
# extract HOST,PORT and FILE from received args : HOST:PORT/FILE
($host,$file) = split (/\//,$ARGV[0]) ;
$file = "/$file" ;
($host,$port) = split (/:/,$host) ;
if ( $port eq "" ) { $port = 80 ; }
# create socket and connect it
$sockaddr = 'S n a4 x8';
($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $type, $len, $thataddr) = gethostbyname($host);
$that = pack($sockaddr, AF_INET, $port, $thataddr);
socket(S, AF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(S, $that) || die "connect: $!";
select(S); $| = 1; select(stdout);
# send http request
send (S,"GET $url HTTP/1.0 \n",0) ;
send (S,"Connection: Keep-Alive\n",0) ;
send (S,"User-Agent: Mozilla/3.0Gold (Win95; I)\n",0) ;
send (S,"Host: $host\n",0) ;
send (S,"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,
*/*\n",0) ;
send (S,"\n",0) ;
# receive answer
while (TRUE) {
recv(S,$ligne,1024,0) ;
print "$ligne" ;
if ( length($ligne) == 0 ) { last ; }
}
# it's over
close (S) ;
--------------------------------------------------------------------------
I'm fighting with this for several weeks, I've taken a look to
libwww-perl for examples, I've searched informations on all PERL
resources I found, I've read "UNIX Network Programming" by Stevens.
I'm driving CRAZY !
------------------------------
Date: Fri, 19 Dec 1997 14:40:56 +0100
From: Marc de GOUTTES <mdgoutte@asi.fr>
Subject: Re: Problem with socket upon HTTP
Message-Id: <349A7968.4DED@asi.fr>
Oops ! I've made a mistake in my script reporting.
Instead of
> send (S,"GET $url HTTP/1.0 \n",0) ;
you should read
send (S,"GET $file HTTP/1.0 \n",0) ;
Sorry.
------------------------------
Date: Fri, 19 Dec 1997 07:12:04 -0500
From: 100606.1753@compuserve.com (A. Warnier)
Subject: Re : access to file other than in cgi dir.
Message-Id: <#5YcSdHD9GA.234@nih2naab.prod2.compuserve.com>
Hi.
I'm newbie to newsgroups (also), so maybe this posting will not "thread"
correctly.
The problem of accessing a file outside of the cgi-bin directory may be due to
the following : most httpd daemons, when executing a cgi-bin script, do this
by means of a "restricted" shell (rsh, rksh,..). This limits what the script
can do (such as changing the path or executing commands starting with a "/",
see man pages of sh or rksh). Maybe this problem is of the same origin ?
You can get around the limitation by calling a "real" script with an
unrestricted shell from within a "placeholder" cgi-bin script.
Hope this helps.
------------------------------
Date: Fri, 19 Dec 1997 11:48:19 +0000
From: Paul King <Paul.J.King@nmp.nokia.com>
Subject: Referencing/Dereferencing Probs....
Message-Id: <349A5F03.7F05@nmp.nokia.com>
Hi there,
I'm trying to use references to tidy up some long hash array accessing
but either get error messages or when I try and access the array
elements with the full name there are none!
>From what I've managed to read in the Programming Perl book I own the
following should be o.k. but results in a 'Not a hash reference at line
... <data_file> chunk 72 error.
$A = \$DB{$Lib}{Decs};
$A->{$Array[4]} = [@MY_ARRAY];
Could anyone please explain what is wrong with this code and tell me
how to set up an 'alias' for my hash array to be used while loading
data into it.
Thanks,
Paul
------------------------------
Date: 19 Dec 97 10:58:36 GMT
From: lee.gammell@feedME
Subject: Re: Sending a signal to a process owned by someone else
Message-Id: <349a535c.0@lightning.ica.net>
> I have a perl script which, in certain cases, needs to send a signal to a
> daemon process. The daemon process is spawned by the inittab and therefore
> runs as root but the original script must run as someone other than root.
>
> Thanks in advance,
> Thane (thaneles@nospam.cyberus.ca)
You can only do this if you make your script suid (setuid) to root
chmod ug+xs script-name # sets suid and sgid
chown root script-name
chgrp mygrp script-name
suid scripts will run in taint mode, thus you may need to untaint some variables
eg.
$ENV{'PATH'} = '/bin:/usr/bin';
$ENV{'SHELL'} = '/bin/sh' if $ENV{'SHELL'} ne '';
delete @ENV{'IFS','CDPATH'};
#To untaint and arg, eg. PID try
if ($opt_pid =~ /(\d[1,5]$)/) {
$opt_pid = $1; # process id is now untainted.
}
# if you need the uid to be root as well as the euid (effective uid) include
$< = $>; # that's doller followed by less-than (some software display is as $lt )
kill 16, $opt_pid
If you set the group premissions, you can do it so that only members of the group
can run it.
Hope this helps,
Lee Gammell,
DBA/UNIX Systems Administrator
Charles Taylor & Co. Ltd.
Email: lee.gammell@ctaylor.co.uk
------------------------------------------------------------------
Hungry for NEWSGROUPS??? USE feedME.ORG
Read and Post to 30,000 groups through feedME.ORG
FREE FREE FREE http://www.feedME.ORG FREE FREE FREE
------------------------------------------------------------------
------------------------------
Date: Fri, 19 Dec 1997 06:18:18 -0500
From: Stephan Vladimir Bugaj <bugaj@bell-labs.com>
Subject: Re: Sorting Hashes By Value
Message-Id: <349A57FA.41C6@bell-labs.com>
Thanks to Tom, Eli, and Gabor for pointing out just how
unnecessarily complex my sorting routines were for PERL ;>
LL+P,
Stephan
"Do computers think?"
---------------------------------------------------------------
Stephan Vladimir Bugaj bugaj@bell-labs.com
Member of Technical Staff (908) 949-3875
Multimedia Communication Research Dept. Rm. 4F-601, Holmdel
Bell Labs of Lucent Technologies www.multimedia.bell-labs.com
PGPkey from http://www.pgp.net/wwwkeys.html or other keyservers
Non-Lucent website: http://www.cthulhu-dynamics.com/stephan
---------------------------------------------------------------
STANDARD DISCLAIMER:My opinions are NOT those of LUCENT
---------------------------------------------------------------
"Do submarines swim?" - E.W. Dijkstra
------------------------------
Date: Fri, 19 Dec 1997 07:22:59 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: terminate input on CGI.pm in Win95 Gurusamy Sarathy port
Message-Id: <349A7533.A048339A@houston.Geco-Prakla.slb.com>
Brian Lavender wrote:
>
> When testing the cgi module on win 95 using the Gurusamy Sarathy port
> how do you terminate data input in offline mode. In UNIX I use Ctrl-D
On Win'95/Dos based machines, on a blank line, CTRL-Z usually ends input
from screen. Sometimes it has to be CTRL-Z,CTRL-Z to get it to work,
and other CTRL-Z<RETURN>, however.
HTH
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: 19 Dec 1997 13:41:20 GMT
From: gt2863a@acmez.gatech.edu (Mark)
Subject: Re: unshift, @INC, require???
Message-Id: <67dti0$rog@catapult.gatech.edu>
: > unshift (@INC, "L:\scripts\mec", "L:\scripts\mec\subs",
: > "L:\scripts\mec\calendar\");
: >
: >
: > Now it does not work,
: Try this code after (you've fixed :-) the line above, and see whether it
: shows you what's going on. :-)
: print "\@INC contains:\n", map " $_\n", @INC;
Okay, I fexed the double qoutes. "->' but it still is not accessing
the files in the other directories, so what else could be wrong.
I am really at a loss here.
mark
--
mec --gt2863a
------------------------------
Date: 19 Dec 1997 12:02:45 GMT
From: in1036@wlv.ac.uk (Steph Thornton)
Subject: Web Database Survey
Message-Id: <67dnp5$k91@ccuh.wlv.ac.uk>
Hi,
I am studying for my M.Sc. in Advanced Software Technology and have chosen
the topic of web databases for my project.
I have created a short survey of 11 questions at this URL:
http://www.wlv.ac.uk/~in1036/java/websurv.htm
and I would be so grateful if you could fill in a valid response for me before the end
of January 1998.
The results will be posted at the same site once compiled.
Thanks in advance,
Steph :-)
======
Stephanie Thornton
Support Analyst, University of Wolverhampton, England
in1036@wlv.ac.uk http://www.wlv.ac.uk/~in1036
======
"Education is a wonderful thing. If you couldn't sign your name
you'd have to pay cash." Rita Mae Brown
======
------------------------------
Date: 19 Dec 1997 06:11:17 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: "Mark S. Reibert" <reibert@mystech.com>
Subject: Re: What kind of machine wouldn't support FLOCK?
Message-Id: <8cu3c5scju.fsf@gadget.cscaper.com>
>>>>> "Mark" == Mark S Reibert <reibert@mystech.com> writes:
Mark> Is it unnecessary to unlock the file via flock( OUTFILE, LOCK_UN
Mark> ) if you are going to close it anyway?
Yes, in fact, if you unlock the file, and you're using an older
version of Perl, you can almost guarantee eventual corruption.
Newer Perls automatically flush before the unlock, but once again,
the safest approach is a simple one:
NEVER USE flock(HANDLE, LOCK_UN)
unless you know *exactly* how STDIO buffers the data.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 256 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Fri, 19 Dec 1997 04:12:07 -0700
From: kenny@kacweb.com (Kenny A. Chaffin)
Subject: Re: Which language pays most 17457 -- C++ vs. Java?
Message-Id: <MPG.f040476176dac16989a01@news.dimensional.com>
In article <34996E84.4A96@hotlava.com>, ghowland@hotlava.com says...
> Craig A. Johnston wrote:
> >
> > COBOL. COBOL pays the most. Get to it, son.
>
> This is not strictly true - MUMPS pays even more than COBOL.
> However, there are more COBOL positions available (but it makes
> no difference, since you'll never find an unemployed MUMPS or COBOL
> programmer).
>
> Gary
> --
> "I kicked the perl habit, and so can you. Ask and I'll show you how."
>
> pub 1024/C001D00D 1996/01/22 Gary Howland <gary@hotlava.com>
<G>
Happy Holidays,
--
KAC
Website Design, Programming, Graphics --> http://www.kacweb.com
Multi-Channel Server-Push Ticker at ----------^^^^^^^^
kenny@kacweb.com
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 1507
**************************************
