[7807] in Perl-Users-Digest
Perl-Users Digest, Issue: 1432 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 7 10:09:24 1997
Date: Sun, 7 Dec 97 07:00:38 -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 Sun, 7 Dec 1997 Volume: 8 Number: 1432
Today's topics:
<select multiple> data using CGI module in PERL <jeh2z@virginia.edu>
Re: Communication through pipes with su (Jeff Yoak)
Dates and forms <a@b.c>
Re: Embarrassing Perl Code (was PERL Hourly Rates) (Bart Lateur)
Re: formmail - IE works, netscape doesn't (Abigail)
How to signal end of output in CGI script? (Bart Lateur)
Re: html generator question (Jonathan Stowe)
Re: Inserting only the unique elements into an array .. <$_=qq!fearless\@NOSPAMio.com!;y/A-Z//d;print>
Installing DBI on Windows 95 (Greg Teets)
Re: MS IE 3.03 File Uploading <perlguy@inlink.com>
Re: Perl4 is not Y2K (was Re: Forced to use brain-dead <ebohlman@netcom.com>
POP3 Module <kellysm@ix.netcom.com>
Re: random seeding (George Lewis)
Recursive rename lowercase <dbrignon@ac-nice.fr>
Re: replacement for fork() on NT? (Gurusamy Sarathy)
Re: replacement for fork() on NT? (Ilya Zakharevich)
Re: Search single page (stephen benson)
Sending mail out 1 hour later? (Burt Lewis)
smarter way of doing this? snailgem@aol.com
suid from a html <russ@eastland.net>
Re: suid from a html (Abigail)
Re: where is info-mode Perl documentation? <gordon.leslie.mcdorman@sap-ag.de>
Re: where is info-mode Perl documentation? aarizpe@jatotech.com
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 07 Dec 1997 01:01:57 -0500
From: Joel Haspel <jeh2z@virginia.edu>
Subject: <select multiple> data using CGI module in PERL
Message-Id: <348A3BD5.48F6@virginia.edu>
Hi guys! I'm using the "use CGI;" command in my script, and I've got a
<select multiple name=parts> box that I want to get ALL of the data out
of. Basically, I'm using Javascript to put lines of text in the box
according to user clicks of <-- and --> buttons, and when they submit, I
need to get all of the lines in the box. Does anyone know how to do
that?
Something about $www->param('parts') (if $www = new CGI) would be my
guess, but I'm having trouble getting it to work. Any help would be
most appreciated.
Please email me back at jeh2z@virginia.edu
THANKS!!!!!
Joel
------------------------------
Date: Sun, 07 Dec 1997 03:24:44 GMT
From: jeff@yoak.com (Jeff Yoak)
Subject: Re: Communication through pipes with su
Message-Id: <66d4p1$d88@dfw-ixnews10.ix.netcom.com>
nvp@shore.net (Nathan V. Patwardhan) wrote:
>Jeff Yoak (jeff@yoak.com) wrote:
>Someone will correct me if I'm wrong, but doesn't su read from a tty,
>not STDIN? Unless su is being run by root, aren't you going to get a
>password prompt? Is this script going to be run as root? If this is
>the case, what's wrong with a setuid script?
I'm not familiar with reading from a "tty". I've heard of it, but
have no idea what it is. I *do* get a password prompt, but quoting
the original post:
>if($username) {
> open(COMMAND, "|su $username -c '$command 2>&1' |");
> print COMMAND "$password\n";
> $output = <COMMAND>;
>} else {
> $output = `$command 2>&1`;
>}
The print command in line three seems to send through the password OK.
This code snippet does cause the command to be executed as the
username provided. That much works. If I touch a file in a directory
that can only be written to by the owner, the file exists. Likewise
with removing files, etc. The problem occurs with a command like 'ls'
or a command fails and gives an error output. The construct 2>&1 in
the else clause returns what I need when the script runs as nobody. I
get nothing in the main clause. I suspect this has something to do
with the way I'm trying to read the output with
> $output = <COMMAND>;
but I'm don't know the correct way to do it. It seems very suspect to
not read in the "password" prompt, but when I tried that I couldn't
get the command to execute at all.
>Have I been listening to too much Black Sabbath?
Maybe I haven't been listening to enough. :)
Cheers,
Jeff
Jeff Yoak jeff@yoak.com http://yoak.com/
------------------------------
Date: Mon, 8 Dec 1997 00:03:04 +1200
From: "NEWS" <a@b.c>
Subject: Dates and forms
Message-Id: <66eam3$eqa$1@loomi.telstra.net>
Hi,
I've been trying to write a perl script which take an input from a html
form. Problem is the format is incompatibale with my postgres backend.
What i need to do is to do something with sprintf but the syntax has got be
stuffed. Any ideas??
Sean.
smullen@fastinternet.net.au
------------------------------
Date: Sun, 07 Dec 1997 14:21:52 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Embarrassing Perl Code (was PERL Hourly Rates)
Message-Id: <348ca5bb.3497569@news.tornado.be>
see@my.sig (Don Groves) wrote:
>>> Hey, a half-dozen threads up from here, they're having an argument that
>>> would appear to be "what's the most insanely inefficient way of finding
>>> if a number is odd or even?". Or they were before they started a flame
>>
>>....How about a lookup table? :)
>
>Or how about a function that returns a value with the low-order bit set
>if the input value is odd? :>)
What is insane about that?
$number & 1
is the most efficient way I know of to test if a number is odd.
Bart Lateur
bart.mediamind@tornado.be
------------------------------
Date: 7 Dec 1997 06:07:53 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: formmail - IE works, netscape doesn't
Message-Id: <slrn68kfd6.175.abigail@betelgeuse.wayne.fnx.com>
Greg Vinson (vinsong@olympus.not.spam) wrote on 1558 September 1993 in
<URL: news:vinsong-0612970606520001@ptpm028.olympus.net>:
++ Hi,
++
++ I am a newbie to CGI's. I wrote a page following my ISP's instructions to
But also a newbie to Usenet? There are groups specially for cgi
problems. Nothing, absolutely nothing in your posting indicates you are
aware what perl is, or that your problem has any relationship with perl.
++ utilize their FormMail script.
Yeah, we all now that script. You ISP send it to all readers of
this group.
++ It works in Internet Explorer but not Netscape.
Then would does it do in Netscape? Does the server send something
to Netscape? If so, what? Does what the server sends to Netscape
validate?
++ Am I doing something
++ really dumb or what?
Yes. You post in the wrong group, don't explain the problem but in the
vaguest terms, don't tell us at all what you did or what you want to
do nor what that magical script looks like, ask for a personal reply
without a reason - but don't include a valid email address.
I seldom encounter someone that dumb.
++ Any ideas will be appreciated. My ISP charges $90 an
++ hour for support. Big mistake signing up with them but I am stuck for the
++ time-being.
Huh? Did the contract include that you are not allowed to go to
another ISP?
++ Please reply via e-mail (fixing typos). Thanks in advance.
Right. You don't give a reason why. Your From address is clearly wrong,
and so is the different address you give in your sig. If you want a
personal tutor, the very least you can do is make sure you put the right
address in the headers. If you can't be bothered to read the group for
a few days after asking for help, you haven't assigned any priority to
getting it fixed.
++ --Greg
Go away.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: Sun, 07 Dec 1997 14:21:57 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: How to signal end of output in CGI script?
Message-Id: <348da5fa.3560897@news.tornado.be>
I'm trying to figure out how to let a CGI script continue to do some
work, after all data to the browser has been sent (file cleanup, adding
to a possibly locked log file, etc.)
There is absolutely no need for the user to wait for this to finish, and
the server buffers the data, maybe (I guess) in order to calculate the
Content-Length header.
Normally, the server knows all data has been sent, as the script ends.
How can I signal the server that "that was it, there ain't no more"?
I would assume that closing STDOUT might do the trick, but as the web
server is the only Unix machine I have access to, my knowledge is fairly
limited, and I don't want to disturb the server too much with possibly
fatal experimentation (who knows? I don't).
I found in Randal's Webtechniques, Column 20:
>First, and very important, lines 70 and 71 close STDIN and
>STDOUT. When these handles are closed, the web server can
>accurately determine that no further communication with the browser is
>desired.
That confirms my suspicions, but the actual code I find very puzzling:
> =70= open STDIN, "</dev/null";
> =71= open STDOUT, ">/dev/null";
Say what?
This must be some Unix idiosyncrasy, but why can't we just use
close(STDOUT);
and: why do we need to close STDIN, too?
Second, as the CGI script does a fork, from which of the two instances,
the parent or the child, does the server expect the data from? My guess
would be: the parent. Or is it from both, as Randal's code in Column 20
would suggest?
BTW, I've tried to locate Tom Christiansen's "Idiot Guide to CGI" page,
but it appears to have been removed from the server (www.perl.com). Does
anybody know why? Is the info obsolete, has it been replaced by a
chapter in a book, troubles with people ignoring copyrights, have the
aliens taken over, or what?
Bart Lateur
bart.mediamind@tornado.be
------------------------------
Date: 7 Dec 1997 13:57:07 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: html generator question
Message-Id: <66e9vj$2kt@neon.btinternet.com>
In article <348A0819.529B@wxs.nl>, c.degroot@wxs.nl says...
...
>I am looking for a script that creates simple html
>documents off-line. One must be able to add ones own
>images, and links to other pages.
...
You could try txt2html:
http://www.cs.wustl.edu/~seth/txt2html/
but this doesnt do images.
The HTML::Base module by Greg Anderson is a relatively clean method
of creating pages programmatically. This is available in all the usual
places ( I think but my Browser justed GPF'd ;-{ )
Have fun.
------------------------------
Date: Sat, 6 Dec 1997 22:12:52 -0800
From: "Creede Lambard" <$_=qq!fearless\@NOSPAMio.com!;y/A-Z//d;print>
Subject: Re: Inserting only the unique elements into an array ...
Message-Id: <66denn$42r@bgtnsc01.worldnet.att.net>
>> @_ = ("$candidate");
>
>It's generally considered to be a bad idea to modify @_ like this. And
>those quote marks don't do anything useful.
OK, perhaps, and in fact I was going to use @temp instead of @_ in the first
draft of this. But the question is, why is modifying @_ a bad idea? It
doesn't seem to be any big deal to modify $_ so long as you're careful where
you do it; I would think you could modify @_ in a similar way.
>
>> push(@array,@_) unless ( join(";",@array) =~ /$candidate/ );
>
>Have you considered what that does when @array has, say, 200_000 elements?
>Or when $candidate contains shell metacharacters such as '.' or '('? Or
>when it may contain semicolons? This is not a good solution to the
>problem, which is really a FAQ.
>
>Cheers!
Hm, looks like I should have gone with my first inclination, which was to
just use the associative array solution in the first place. :D
--- Creede Lambard
Minister of Irregular Expressions
Programming Republic of Perl
------------------------------
Date: Sun, 07 Dec 1997 14:17:50 GMT
From: teetshd@email.uc.edu (Greg Teets)
Subject: Installing DBI on Windows 95
Message-Id: <348aae98.805095@news.ececs.uc.edu>
I have Perl5 working well on my Windows 95 machine. I have downloaded
DBI but have several questions about installing it?
1. It must be compiled? Is there not an executable available?
2. Can you compile it with Borland instead of Microsoft?
3. Can I access Personal Oracle7 on the same machine with it?
Thank you.
Greg Teets
Cincinnati, OH
------------------------------
Date: Sat, 06 Dec 1997 23:09:11 -0600
From: Brent Michalski <perlguy@inlink.com>
To: "Jeremy D. Zawodny" <jzawodn@wcnet.org>
Subject: Re: MS IE 3.03 File Uploading
Message-Id: <348A2F77.FBD12AA2@inlink.com>
> >This question actually involves a Perl program, that is why I am posting
> >it here.
> >
> >I wrote a Perl script on Windoze NT that is supposed to upload a file to
> >the web server. Everything works fine in Netscape (of course), MS IE
> >3.02 {with the file upload patch}, MS IE 4.x BUT it does not work with
> >MS IE 3.03 which touts file uploading as a "new feature"!
>
> Uhm, you mean that a web browser is uploading a file to your Perl
> script, which happens to run on the web server in question?
>
> You've made it sound as if the Perl script is doing the upload. That
> would imply that Perl is on the client, not the server...
I KNOW that the transfer is initiated by the browser BUT without the
perl script nothing much would happen now would it?
> >The browser chokes when it gets to these lines:
> The browser doesn't get to any of those lines. They're run on the
> server.
I know that, and you know that, but the browser doesn't, this is where
it DIES!
>
> >## Open the file and then write to it. This creates the file we are
> >uploading on the server.
> >open(TMP,">$target")||die "Error creating file: $!";
>
> Does that succeed every time?
No, it FAILS every time.
>
> >binmode(TMP);
> >print TMP $CGI{'UploadedFile'}->{'Contents'};
> >close(TMP);
> >
> >When I say chokes, I mean it goes to a gray screen and the browser
> >stops. I can't even view the source.
>
> What errors are showing up in your error log? If none, then how do you
> know where it's dying?
I know exactly which lines the program is dying at because I have
DEBUGGED it and know which lines of my program have executed and which
lines have not. If I hadn't debugged the crap out of it, I'd have never
asked this question in the newsgroup.
>
> Have I missed something in your description?
Apparently.
>
> >I called Microsoft on their EXPENSIVE product support line. They didn't
> >have a clue but are sending me IE 3.02 so that we can continue working!
>
> Bad move.
Well, that is what Microsoft suggested. If it were up to me, I'd use
Netscape across the board, I have NEVER experienced any of the problems
in Netscape that I have had to overcome with Internet Explorer.
Microsoft was also stumped by this ie3.03 bug and they are actively
looking into the problem. ie 3.03 was supposed to have file uploading
capabilities as one of it's features.
>
> >Has ANYONE found a way to fix this problem?
> >
> >The HTML form is ok.
> >The rights to the area I am uploading to are ok.
> >The script works fine under all other browsers.
>
> Based on your description, the only solution is to not use that one
> version of the browser.
Anyway, the BROWSER is the problem. Not using that version may be an
option on a small intranet but I don't have that luxury, I work for a
large corporation. It is loaded on many machines in my company, we are
stuck with it.
>
> >Any suggestions, besides switching to Netscape?
>
> Jeremy
If you happen to actually have a real solution to this problem, I'd love
to hear it.
Brent
------------------------------
Date: Sun, 7 Dec 1997 02:09:00 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Perl4 is not Y2K (was Re: Forced to use brain-dead perl 4 -- how do I accomplish task that is simple in perl 5 ?)
Message-Id: <ebohlmanEKsrB0.H0o@netcom.com>
Abigail <abigail@fnx.com> wrote:
: Tom Phoenix (rootbeer@teleport.com) wrote on 1557 September 1993 in
: <URL: news:Pine.GSO.3.96.971205131905.29415Q-100000@usertest.teleport.com>:
: ++
: ++ Perl98!
: ++
: ++ Hmmm... On the other hand...
: On the other hand is Visual Perl ++ with Javabeans!
You mean "Visual P++"
------------------------------
Date: Sun, 07 Dec 1997 01:22:54 -0500
From: "Shawn M. Kelly" <kellysm@ix.netcom.com>
Subject: POP3 Module
Message-Id: <348A40BD.3E994A21@ix.netcom.com>
This is a cryptographically signed message in MIME format.
--------------msBB2658A70A2E63FD8C2E4187
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Could someone direct me to a Win32 POP3 module?
Thanks,
Shawn M. Kelly
--------------msBB2658A70A2E63FD8C2E4187
Content-Type: application/x-pkcs7-signature; name="smime.p7s"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="smime.p7s"
Content-Description: S/MIME Cryptographic Signature
MIIKaQYJKoZIhvcNAQcCoIIKWjCCClYCAQExCzAJBgUrDgMCGgUAMAsGCSqGSIb3DQEHAaCC
CNcwggQhMIIDiqADAgECAhAvYRVhHXZSMo3766jKjMaRMA0GCSqGSIb3DQEBBAUAMGIxETAP
BgNVBAcTCEludGVybmV0MRcwFQYDVQQKEw5WZXJpU2lnbiwgSW5jLjE0MDIGA1UECxMrVmVy
aVNpZ24gQ2xhc3MgMSBDQSAtIEluZGl2aWR1YWwgU3Vic2NyaWJlcjAeFw05NzEyMDIwMDAw
MDBaFw05ODEyMDIyMzU5NTlaMIIBHTERMA8GA1UEBxMISW50ZXJuZXQxFzAVBgNVBAoTDlZl
cmlTaWduLCBJbmMuMTQwMgYDVQQLEytWZXJpU2lnbiBDbGFzcyAxIENBIC0gSW5kaXZpZHVh
bCBTdWJzY3JpYmVyMUYwRAYDVQQLEz13d3cudmVyaXNpZ24uY29tL3JlcG9zaXRvcnkvQ1BT
IEluY29ycC4gYnkgUmVmLixMSUFCLkxURChjKTk2MTMwMQYDVQQLEypEaWdpdGFsIElEIENs
YXNzIDEgLSBOZXRzY2FwZSBGdWxsIFNlcnZpY2UxFjAUBgNVBAMTDVNoYXduIE0gS2VsbHkx
JDAiBgkqhkiG9w0BCQEWFWtlbGx5c21AaXgubmV0Y29tLmNvbTBcMA0GCSqGSIb3DQEBAQUA
A0sAMEgCQQC8+LCrT9Y4AEDlQZUzlgqx60GCldhNXpUeduHZQ/2A2bDr6fmsI+2r0VCfkxWP
+ET8A6I+DBcmhIdRUgnobGxXAgMBAAGjggFdMIIBWTAJBgNVHRMEAjAAMIGvBgNVHSAEgacw
gDCABgtghkgBhvhFAQcBATCAMCgGCCsGAQUFBwIBFhxodHRwczovL3d3dy52ZXJpc2lnbi5j
b20vQ1BTMGIGCCsGAQUFBwICMFYwFRYOVmVyaVNpZ24sIEluYy4wAwIBARo9VmVyaVNpZ24n
cyBDUFMgaW5jb3JwLiBieSByZWZlcmVuY2UgbGlhYi4gbHRkLiAoYyk5NyBWZXJpU2lnbgAA
AAAAADARBglghkgBhvhCAQEEBAMCB4AwgYYGCmCGSAGG+EUBBgMEeBZ2ZDQ2NTJiZDYzZjIw
NDcwMjkyOTg3NjNjOWQyZjI3NTA2OWM3MzU5YmVkMWIwNTlkYTc1YmM0YmM5NzAxNzQ3ZGE1
ZDNmMjE0MWJlYWRiMmJkMmU4OTIxNmE1NmJmN2Q3MTE0ODljYTFiZTQ1ZmRmM2VhNDUxNzAN
BgkqhkiG9w0BAQQFAAOBgQANiB57VO3HRMNML7EhkEyQyKLithwo7HVZ1b71pj7Lpkp/Sqpe
XSTcvocxdGlkReQxnrqLmU46VAKVmJMZzWHrdGF0FwJMa9L/sB7GSjVVpqeTa8aE4tUmU6G+
Vqpt9XGbuwMsEOdNSd53AZX4qvxl72CbdPdchORwAY5ke4dueDCCAnkwggHioAMCAQICEFIf
NR3ycH4AK77KWYcE1TkwDQYJKoZIhvcNAQECBQAwXzELMAkGA1UEBhMCVVMxFzAVBgNVBAoT
DlZlcmlTaWduLCBJbmMuMTcwNQYDVQQLEy5DbGFzcyAxIFB1YmxpYyBQcmltYXJ5IENlcnRp
ZmljYXRpb24gQXV0aG9yaXR5MB4XDTk2MDYyNzAwMDAwMFoXDTk5MDYyNzIzNTk1OVowYjER
MA8GA1UEBxMISW50ZXJuZXQxFzAVBgNVBAoTDlZlcmlTaWduLCBJbmMuMTQwMgYDVQQLEytW
ZXJpU2lnbiBDbGFzcyAxIENBIC0gSW5kaXZpZHVhbCBTdWJzY3JpYmVyMIGfMA0GCSqGSIb3
DQEBAQUAA4GNADCBiQKBgQC2FKbPTdAFDdjKI9BvqrQpkmOOLPhvltcunXZLEbE2jVfJw/0c
xrr+Hgi6M8qV6r7jW80GqLd5HUQq7XPysVKDaBBwZJHXPmv5912dFEObbpdFmIFH0S3L3bty
10w/cariQPJUObwW7s987LrbP2wqsxaxhhKdrpM01bjV0Pc+qQIDAQABozMwMTAPBgNVHRME
CDAGAQH/AgEBMAsGA1UdDwQEAwIBBjARBglghkgBhvhCAQEEBAMCAQYwDQYJKoZIhvcNAQEC
BQADgYEAwfr3AudXyhF1xpwM+it3T4dFFzvj0sHaD1g5jq6VmQOhqKE4/nmakxcLl4Y5x8po
NGa7x4hF9sgMBe6+lyXv4NRu5H+ddlzOfboUoq4Ln/tnW0ilZyWvGWSI9nLYKSeqNxJqsSiv
J4MYZWyN7UCeTcR4qIbs6SxQv6b5DduwpkowggIxMIIBmgIFAqQAAAEwDQYJKoZIhvcNAQEC
BQAwXzELMAkGA1UEBhMCVVMxFzAVBgNVBAoTDlZlcmlTaWduLCBJbmMuMTcwNQYDVQQLEy5D
bGFzcyAxIFB1YmxpYyBQcmltYXJ5IENlcnRpZmljYXRpb24gQXV0aG9yaXR5MB4XDTk2MDEy
OTAwMDAwMFoXDTk5MTIzMTIzNTk1OVowXzELMAkGA1UEBhMCVVMxFzAVBgNVBAoTDlZlcmlT
aWduLCBJbmMuMTcwNQYDVQQLEy5DbGFzcyAxIFB1YmxpYyBQcmltYXJ5IENlcnRpZmljYXRp
b24gQXV0aG9yaXR5MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDlGb9to1ZhLZlIcfZn
3rmN67eehoAKkQ76OCWvRoiC5XOooJskXQ0fzGVuDLDQVoQYh5oGmxChc9+0WDlrbsH2FdWo
qD+qEgaNMax/sDTXjzRniAnNFBHiTkVWaR94AoDa3EeRKbs2yWNcxeDXLYd7obcysHswuiov
Maruo2fa2wIDAQABMA0GCSqGSIb3DQEBAgUAA4GBAFJzuppV3Nw/gn2wkJhiKoJMdgBuJT3V
wglwVwEMD3cfGKH7HGAOoHU7SSFB/qdcLUxCSdP/KNiM6p3+yQfid4JTI95V885Ek/r6TL3K
NvNbZrKeyPIMXl7UobQhCTPKO1n8ksI4/K3ZliTgLfqjKfUzaHhOtLyfaTXiqJiUczvEMYIB
WjCCAVYCAQEwdjBiMREwDwYDVQQHEwhJbnRlcm5ldDEXMBUGA1UEChMOVmVyaVNpZ24sIElu
Yy4xNDAyBgNVBAsTK1ZlcmlTaWduIENsYXNzIDEgQ0EgLSBJbmRpdmlkdWFsIFN1YnNjcmli
ZXICEC9hFWEddlIyjfvrqMqMxpEwCQYFKw4DAhoFAKB9MBgGCSqGSIb3DQEJAzELBgkqhkiG
9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTk3MTIwNzA2MjI1NFowHgYJKoZIhvcNAQkPMREwDzAN
BggqhkiG9w0DAgIBKDAjBgkqhkiG9w0BCQQxFgQUnsqiV2UXdlIABwxCMMa1IpuD798wDQYJ
KoZIhvcNAQEBBQAEQGfGKZcTXVWpNjPza09BUshadvvETy6CqJryTqJMjFuhaRP966zC54V8
nffbpzspMZxuyUfvIG8Xse7vLQ+F6nU=
--------------msBB2658A70A2E63FD8C2E4187--
------------------------------
Date: 7 Dec 97 13:36:41 GMT
From: ragica@no-mail.org (George Lewis)
Subject: Re: random seeding
Message-Id: <348aa669.0@news.cpol.com>
On 6 Dec 1997 18:35:40 GMT, Mike Stok <mike@stok.co.uk> wrote:
>things." If your installation is complete you can check the srand section
>of the perlfunc man page.
>
>Hope this helps,
Yes, very helpful, thanks! I did not realise that the function had
changed, or that the man page had more information now.
In fact, although i have the latest version of perl installed believe it or
not most of the time I refer to my old Perl 4 man page I have a copy of
locally from acient times and never bothered to update <-: I always
figure ... well if i just comply with my perl4 man for most things
then i'm universally compatable for sure.
I guess i should update my documentation one of these days!
------------------------------
Date: Sun, 07 Dec 1997 10:56:36 +0100
From: daniel <dbrignon@ac-nice.fr>
Subject: Recursive rename lowercase
Message-Id: <348A72D4.2FA8@ac-nice.fr>
does anybody know how to make a recursive rename for directories or
files (convert to lowercase files names) thanks
Daniel
dbrignon@ac-nice.fr
south school french academy
------------------------------
Date: 7 Dec 1997 06:48:48 GMT
From: gsar@engin.umich.edu (Gurusamy Sarathy)
Subject: Re: replacement for fork() on NT?
Message-Id: <66dgsg$2h7@srvr1.engin.umich.edu>
[ mailed and posted ]
In article <66d8gb$gbe$1@agate.berkeley.edu>,
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
>In article <669hde$7vo@fcnews.fc.hp.com>, Jeff Kehoe <kehoe@fc.hp.com> wrote:
>> Has anybody found a good 0 for fork() on NT? I realize that
>> it isn't supported on NT, but wondered what people are doing in its
>> place on NT.
>
>Any decent C compiler on NT can fork().
On the contrary, I don't know of any decent C compiler on NT
that can fork(). Come to think of it, I don't know of any
decent C compilers on NT at all, period. :) But that could
be just my ignorance, or snobbishness, or both.
If you're talking about the gnuwin32 stuff, I wouldn't consider
it decent (yet), and fork() performance is very poor.
- Sarathy.
gsar@umich.edu
P.S: Anybody here can vouch for Watcom? It's the only major compiler
I haven't tried, and some sing its praises.
------------------------------
Date: 7 Dec 1997 09:11:21 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: replacement for fork() on NT?
Message-Id: <66dp7p$o66$1@agate.berkeley.edu>
In article <66dgsg$2h7@srvr1.engin.umich.edu>,
Gurusamy Sarathy <gsar@engin.umich.edu> wrote:
> >Any decent C compiler on NT can fork().
>
> On the contrary, I don't know of any decent C compiler on NT
> that can fork(). Come to think of it, I don't know of any
> decent C compilers on NT at all, period. :) But that could
> be just my ignorance, or snobbishness, or both.
>
> If you're talking about the gnuwin32 stuff, I wouldn't consider
> it decent (yet), and fork() performance is very poor.
Sure. I do not think it ever will, taking into account 4M DLL.
I meant RSXNT which is highly regarded on EMX mailing list. I got a
failure report of Perl compile on RSXNT, but I do not think the poster
knows about Configure.
I would just change values in hints/os.sh to add -Zrsxnt (sp?), and do
sh Configure -des
make test
The result may be not that good, but maybe...
Ilya
------------------------------
Date: Sun, 07 Dec 1997 09:50:50 GMT
From: stephenb@scribendum.win-uk.net (stephen benson)
Subject: Re: Search single page
Message-Id: <348a7127.5077661@nntp.ibmpcug.co.uk>
I don't know if the original poster followed this up, but I'd sure
like to know. I've got to implement a paragraph number and keyword
search/navigation tool.
On Mon, 17 Nov 1997 14:32:44 -0500, Mark Galbreath
<mgalbreath@troweprice.com> wrote:
>Kenny A. Chaffin wrote:
>
>> > My question - is there a javascript to take out the Control-F step?
>> > Is it possible to create a text box at the top of the page so they can
>> > just enter in the number they want and hit a "search" type button that
>> > will take the cursor down the page to the link? And, if I can't use
>> > javascript for this, does anyone know what I can use?
>
>> Unfortunately no. At least not without creating some kind of indexing
>> and putting it into a hidden form/frame and doing a search then
>> reloading.
>>
>
>Actually, you can do this very thing in PERL (and it's quite simple, too). I
>have it implemented on my personal website. Repost your question in the
>comp.lang.perl newsgroup and check out http://www.perl.com and
>http://www.stonehenge.com/merlyn for good intros into the language. For
>string manipulation, PERL is several orders of magnitude better than any
>other language.
-- stephen benson
stephenb@scribendum.win-uk.net || stephen_benson@watsonwyatt.co.uk
http://www.ibmpcug.co.uk/~2i/ || http://www.scribendum.win-uk.net/
__________________________________________________________________
...remember to edit out ANTI-SPAM in the autoreply address...
------------------------------
Date: 7 Dec 1997 11:00:37 GMT
From: burt@ici.net (Burt Lewis)
Subject: Sending mail out 1 hour later?
Message-Id: <66dvkl$bp0$2@bashir.ici.net>
Hello,
I have a Perl Script that (among other things) takes in an e-mail adress from
a form and sends out an e-mail. (that works fine!)
My problem is that I need this e-mail to be sent out 1 hour in the future.
I'm told that I need to use the "AT" command but can't seem to get it right.
Do I need to put this part of my script into another seperate script or can I
do it here?
Appreciate any help with this.
---other part of script---
$mailprog = '/bin/mail';
$youmail = 'pop@mom.net';
open (MAIL, "|$mailprog $youmail");
print MAIL ("From: $FORM{'USER_USERNAME'}\n");
print MAIL ("Subject: Hello there!\n\n");
print MAIL ("Thank you for contacting ...\n");
close (MAIL);
---rest of script---
Burt Lewis
www.eastonmas.com
------------------------------
Date: Sun, 07 Dec 1997 02:23:47 -0500
From: snailgem@aol.com
Subject: smarter way of doing this?
Message-Id: <348A4F02.7A85@aol.com>
I'm using this 'exitflag' kludge to make the program exit if at least
one of the files in the loop doesn't exist (I can't put the 'die' inside
the loop because I want to print a complete list of not found files
before I exit).
This works OK, but again, I wonder if there is a more elegant way of
doing it in PERL.
Thanks.
-------------
foreach $online (@myonlines) {
$file_path="/$online/new_prodfile.html";
unless (-e $file_path) {
print "$file_path cannot be found\n";
$exitflag = 1;
}
}
die ("\nFile has not been modified\n") if $exitflag == 1 ;
--- ---------
Will
"Take any demand, however slight, which any creature, however weak, may
make. Ought it not, for its own sole sake, to be satisfied? If not,
prove why not."
William James
------------------------------
Date: Sun, 7 Dec 1997 00:17:08 -0600
From: "Russ" <russ@eastland.net>
Subject: suid from a html
Message-Id: <66desp$fu9$1@news1.iamerica.net>
I have a form that calls this file. I have the permissions set to suid on
the file. The following will not work. Any ideas would be greatly
appreciated.
Russ
#!/usr/bin/perl
exec("touch /web/cgi-bin/russ");
------------------------------
Date: 7 Dec 1997 11:37:14 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: suid from a html
Message-Id: <slrn68l2mm.175.abigail@betelgeuse.wayne.fnx.com>
Russ (russ@eastland.net) wrote on 1559 September 1993 in
<URL: news:66desp$fu9$1@news1.iamerica.net>:
++ I have a form that calls this file. I have the permissions set to suid on
++ the file. The following will not work. Any ideas would be greatly
++ appreciated.
Define "does not work". What do you expect it to do? What does
it do? Why do you assume it is a perl problem? What did the
folks in the cgi group say? Why don't you run with -w? What
*are* the permissions on the files? What is the output of your
servers error log? Why are you using perl that only does an
exec anyway?
++ #!/usr/bin/perl
++ exec("touch /web/cgi-bin/russ");
#!/usr/bin/sh
toch /web/cgi-bin/russ
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: Sun, 7 Dec 1997 13:07:15 GMT
From: Gordon McDorman <gordon.leslie.mcdorman@sap-ag.de>
To: lnewton@berio.phx.mcd.mot.com (Lynn D. Newton)
Subject: Re: where is info-mode Perl documentation?
Message-Id: <ura7pfgjg.fsf@sap-ag.de>
>>>>> "LDN" == Lynn D Newton <lnewton@berio.phx.mcd.mot.com> writes:
LDN> I have seen references in various places to Perl documentation in
LDN> texinfo format for reading in info-mode with Emacs or XEmacs.
http://www.perl.com/CPAN/doc/manual/info/
--
--------------------------------------------------------------
The opinions expressed above are mine, not my employer's.
gordon.leslie.mcdorman@sap-ag.de
------------------------------
Date: Sun, 07 Dec 1997 08:21:13 -0600
From: aarizpe@jatotech.com
Subject: Re: where is info-mode Perl documentation?
Message-Id: <881504063.30224@dejanews.com>
In article ,
jzawodn@wcnet.org (Jeremy D. Zawodny) wrote:
>
> [original author automagically cc'd via e-mail]
>
> On 01 Dec 1997 11:34:50 -0700, lnewton@berio.phx.mcd.mot.com (Lynn D.
> Newton) wrote:
>
> >I have seen references in various places to Perl
> >documentation in texinfo format for reading in
> >info-mode with Emacs or XEmacs. But I have been unable
> >to locate it in this format. Can someone give me a
> >pointer? Thanks.
I got it from the doc/manual/info directory from CPAN. It's called
perl-info.tar.gz
Regards,
Art
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
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 1432
**************************************
