[13988] in Perl-Users-Digest
Perl-Users Digest, Issue: 1398 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 16 18:06:25 1999
Date: Tue, 16 Nov 1999 15:05:25 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <942793525-v9-i1398@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 16 Nov 1999 Volume: 9 Number: 1398
Today's topics:
Re: ###### GET YOUR PentiumII-366 FOR ONLY $9.99 ###### <gellyfish@gellyfish.com>
Re: '0 % (2**32)' fails on AS builds, works fine on oth <cassell@mail.cor.epa.gov>
Re: /o in regexp with mod_perl (Kragen Sitaker)
Re: Adding to @INC during perl install <gellyfish@gellyfish.com>
Re: Can open file with Telnet but not browser (Kragen Sitaker)
Re: chmod Problem <gellyfish@gellyfish.com>
Re: connect failed with Sender.pm <gellyfish@gellyfish.com>
database processes yugiman@my-deja.com
Re: database processes (Kragen Sitaker)
Re: Fetch Dilbert. <sariq@texas.net>
Re: Fetch Dilbert. (Dan Lyke)
Re: Fetch Dilbert. <uri@sysarch.com>
Re: Fetch Dilbert. (Abigail)
Re: Fetch Dilbert. <uri@sysarch.com>
Re: Fetch Dilbert. (Martien Verbruggen)
Re: Fetch Dilbert. <gellyfish@gellyfish.com>
File Locking with a Pre-Forking Server nkaiser@my-deja.com
Re: File read-write (Sitaram Chamarty)
Function keys for current value <samay1NOsaSPAM@hotmail.com.invalid>
Re: Function keys for current value <gellyfish@gellyfish.com>
Re: Function keys for current value (Sitaram Chamarty)
Re: HELP --> Save output in a variable (David H. Adler)
Re: Help With CyberCash.... <craigsimpson@mindspring.com>
Re: HELP: Perl & CRL Lists <hattons@cpkwebser5.ncr.disa.mil>
Re: HELP: Perl & CRL Lists <gellyfish@gellyfish.com>
Re: How do I produce a random number? <igorv@styx.or.fedex.com>
Re: How do I produce a random number? (Clinton Pierce)
Re: how to step through list <kev@tnw.org>
Re: how to step through list <flavell@mail.cern.ch>
Re: how to step through list (Abigail)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 15 Nov 1999 22:02:16 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: ###### GET YOUR PentiumII-366 FOR ONLY $9.99 #######;dlkh 0596'; gp[5ifkl'l
Message-Id: <80pvt8$2bl$1@gellyfish.btinternet.com>
In comp.lang.perl.misc Krystian Bates <kgbates@i2k.net> wrote:
> This is a multi-part message in MIME format.
> --------------8D5C7EC28BE3561AB8318AC8
> Content-Type: text/html; charset=us-ascii
> Content-Transfer-Encoding: 7bit
>
> <!doctype html public "-//w3c//dtd html 4.0 transitional//en">
> <html>
> body onload="window.open('<A HREF="http://www.chat.ru/~pers_comp/index.htm">
> dkjh wrote:
> <blockquote TYPE=CITE>
> <br>###### GET YOUR PentiumII-366 FOR ONLY $9.99 #######;dlkh 0596';
> Don't you just hate this junk? Frickin' javascripted mailbombs. Now I know
> why half of everyone uses the old school readers.
Yes I do hate *this* junk - unfortunately your dumb browser doesnt include
any alternative part for those of us who believe the content of usenet
posts should only be text ...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 16 Nov 1999 14:40:10 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: '0 % (2**32)' fails on AS builds, works fine on other platforms
Message-Id: <3831DD4A.F803158@mail.cor.epa.gov>
Ron Grabowski wrote:
[snip]
> C:\>perl -le "print 0 % (2**32)"
> Illegal modulus zero at -e line 1.
>
> [errors occured on all my NT boxes running ActiveState builds 515, 517,
> and 522]
>
> Now on a Solaris box (5.6):
[snip]
> % perl -le 'print 0 % (2**32)'
> 0
>
> Why is this? Is this a bug?
Just at a guess, I'd say it's the way you have them compiled.
Type 'perl -V' on both boxes. My PSI::ESP module is telling
me that your ActiveState Perl has
stdchar = 'char'
while your Solaris box has
stdchar = 'unsigned char' .
So guess what happens when you give Perl a number too big for
a char but still small enough for an unsigned char... :-)
If you really need to work with integers this big and bigger,
you should probably look at the Math::BigInt module.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Tue, 16 Nov 1999 22:56:16 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: /o in regexp with mod_perl
Message-Id: <kilY3.19580$YI2.846097@typ11.nn.bcandid.com>
In article <MPG.129b18d3e568570b98987f@nntp1.ba.best.com>,
Bill Moseley <moseley@best.com> wrote:
>I see that placing /o there is wrong. But placing it where I should
>place it doesn't work under mod_perl -- so back to my original problem.
Maybe if you're using qr// to explicitly control when the pattern gets
compiled, you shouldn't be using /o anywhere. Just a guess.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 16 Nov 1999 22:28:09 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Adding to @INC during perl install
Message-Id: <80slpp$3b7$1@gellyfish.btinternet.com>
On Tue, 16 Nov 1999 13:04:03 -0500 Tony Demark wrote:
> I believe that to... I am just asking what I need to modify (source code
> or config file) to have that happen. Hopefully, this is not a strage
> request and someone out there has been in a similar situation.
>
It might be possible to edit config.sh (after running Configure etc) and
alter the variable installsitelib and then run Configure -S to propagate
the change ... Does any *know* whether this would work for multiple
values in installsitelib - its a bit late to start messing with this
right now . Actually I'm certain this has come up before but I cant
remember what the answer was.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 16 Nov 1999 23:02:02 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Can open file with Telnet but not browser
Message-Id: <KnlY3.19586$YI2.846759@typ11.nn.bcandid.com>
In article <80rvso$52u$1@nnrp1.deja.com>,
amonotod <amonotod@netscape.net> wrote:
>In article <38309E1A.7564EE23@mail.cor.epa.gov>,
> David Cassell <cassell@mail.cor.epa.gov> wrote:
>> > print "Content-type: text/html\n\n";
>> > print "The current dir is $dir\n";
>> > exit;
>>
>> This is HTML?
>
>No David, it is a _simple_ test, to see if the server works.
I think the point is that you should say it's text/plain if it's
text/plain. *Especially* when you're giving advice to someone else,
you should make do things correctly.
>If it doesn't work as advertised, I will make sure that from now on, when I
>post, I notify you at your personal email so that you may critique what
>I say. Even better, I will send my reply to you first, and if you
>approve, you can post it for me! Work for you?
Just post correct answers, or we will have to critique your every
post. I don't know about David, but I'm not willing to serve as
comp.lang.perl.misc moderator -- the majority of things most people
post are correct. I don't have time.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 15 Nov 1999 22:56:27 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: chmod Problem
Message-Id: <80q32r$2d6$1@gellyfish.btinternet.com>
On Mon, 15 Nov 1999 14:24:46 -0600 Anthony Carlsen wrote:
> I wrote a basic perl script to change file permissions in Unix.
> The program works fine when I call it from my Unix command
> line however when I call it from a web page it doesn't work.
>
In what way doesnt it work ? What error message is reported if chmod
is not succesful - you *are* checking the success of chmod arent you ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 16 Nov 1999 21:53:02 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: connect failed with Sender.pm
Message-Id: <80sjnu$35d$1@gellyfish.btinternet.com>
On Tue, 16 Nov 1999 17:39:30 GMT lchaves@iname.com wrote:
>
> I've been using Mail::Sender package with no problems till now. But
> since our ISP has changed the OS (now it's a BSDI 4.0.1) we're getting
> "connect failed()" error. We've tried to connect (via telnet 25 from
> the same machine where our program is running, to the specified smtp
> server) and it was ok (we sent a test e-mail, talking smtp by hand).
>
<snip code>
>
> does not work.
>
In what way does it not work ? do you get any messages at all ?
/j\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 16 Nov 1999 22:07:42 GMT
From: yugiman@my-deja.com
Subject: database processes
Message-Id: <80skjb$md5$1@nnrp1.deja.com>
Hello,
I am dealing with cgi that do a backend database tasks. I would like to
be able to send the user a feedback that the process may take a few
seconds and that he should wait before he clicks anything... when the
process is done I would like to be able to update the page. So far, I
could only show the updated page after the process was done. How can
I give the user feedback and then the final results?
Thanks...
Guy.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 16 Nov 1999 22:50:16 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: database processes
Message-Id: <IclY3.19569$YI2.845068@typ11.nn.bcandid.com>
In article <80skjb$md5$1@nnrp1.deja.com>, <yugiman@my-deja.com> wrote:
>I am dealing with cgi that do a backend database tasks. I would like to
>be able to send the user a feedback that the process may take a few
>seconds and that he should wait before he clicks anything... when the
>process is done I would like to be able to update the page. So far, I
>could only show the updated page after the process was done. How can
>I give the user feedback and then the final results?
Make sure you don't have any images that might not yet have loaded.
Make sure you're not inside any tables at the point where you're
sitting for awhile without generating further output, so the user can
see what you've output so far. Autoflush your output. And hope your
user is using a sufficiently-advanced browser. And ask on a
Web-related newsgroup next time.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Tue, 16 Nov 1999 12:55:05 -0600
From: Tom Briles <sariq@texas.net>
Subject: Re: Fetch Dilbert.
Message-Id: <3831A889.2EA90E7B@texas.net>
perldoc@my-deja.com wrote:
>
> In article <slrn832jjg.cvu.abigail@alexandra.delanet.com>,
> abigail@delanet.com wrote:
>
> > open DISPLAY, "| $viewer" or die "Failed to open viewer.\n";
> > print DISPLAY $image;
> > close DISPLAY or die "Failed to close viewer.\n";
>
> OK, I'll take the troll.
No, you *are* the troll.
> How many Windoze image display programs do you know of that
> can ingest input from STDIN?
Only the good ones.
- Tom
------------------------------
Date: 16 Nov 1999 20:55:06 GMT
From: danlyke@news.pixar.com (Dan Lyke)
Subject: Re: Fetch Dilbert.
Message-Id: <80sgba$l02$1@sherman.pixar.com>
perldoc@my-deja.com wrote:
: How many Windoze image display programs do you know of that
: can ingest input from STDIN?
Try ImageMagick, which I assume (from that /usr/local/bin/display reference)
is what Abigail was using on her Un*x box.
Just because some Windows applications are deliberately crippled doesn't
mean that they all are.
Dan
------------------------------
Date: 16 Nov 1999 16:52:05 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Fetch Dilbert.
Message-Id: <x7so26t88p.fsf@home.sysarch.com>
>>>>> "a" == arvind <arvind@mail.ece.umn.edu> writes:
a> In <x7vh72tsuq.fsf@home.sysarch.com>, Uri Guttman <uri@sysarch.com> wrote:
>> another strip or too). i got sick of the ads and the pain of fetching
>> one at a time. i may post the raw code sometime.
>> uri
a> since nobody's posted this yet try out www.junkbusters.com . They have a
a> client that sits between your favourite browser and your net connection,
a> and removes all ads (the definition of which is up to you).
my tiny bit of code just shows a month of comix and their dates. nothing
else. junkbusters can't do that.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 16 Nov 1999 15:55:24 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Fetch Dilbert.
Message-Id: <slrn833ksr.cvu.abigail@alexandra.delanet.com>
perldoc@my-deja.com (perldoc@my-deja.com) wrote on MMCCLXVIII September
MCMXCIII in <URL:news:80s6u1$b23$1@nnrp1.deja.com>:
[] In article <slrn832jjg.cvu.abigail@alexandra.delanet.com>,
[] abigail@delanet.com wrote:
[]
[] > #!/opt/perl/bin/perl -w
[]
[] The "opt" smells of Sun. I could be wrong.
You are wrong.
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: 16 Nov 1999 17:02:26 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Fetch Dilbert.
Message-Id: <x7puxat7rh.fsf@home.sysarch.com>
>>>>> "SL" == Steve Linberg <linberg@literacy.upenn.edu> writes:
SL> Uri Guttman <uri@sysarch.com> writes:
>> i wrote something recently to get a month of calvin & hobbes (and
>> another strip or too). i got sick of the ads and the pain of fetching
>> one at a time. i may post the raw code sometime.
SL> Please do!
you asked for it.
caveats: it was more proof of concept and it has NO useful interface as
the date is hardwired. when i feel like it i may add some web front end
stuff. if you want to hack it be my guest, just repost your code. is it
short, it works fine and once a month i may change the constants.
and no flames about -w and strict etc. this is total throwaway code and
is posted as is for the edification on how to read a month of calvin and
hobbes.
note: the one trick is that the site doesn't name the actual comic
gif images by date (who do they think they are fooling?). you have to
fetch the whole page and parse out the gif part.
uri
#!/usr/local/bin/perl
use LWP::Simple qw( get ) ;
use CGI qw( :standard ) ;
print header(), start_html() ;
@mon_days = ( 0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ) ;
$mon = '08' ;
$year = 88 ;
$days = $mon_days[ $mon ] ;
for ( $day = 1 ; $day <= $days ; $day++ ) {
$date = sprintf "%02d%02d%02d", $year, $mon, $day ;
$page = get( <<URL ) ;
http://www.calvinandhobbes.com/strips/$year/$mon/ch$date.html
URL
$page =~ m{(strips/$year/$mon/ch${date}\d+\.gif)} ;
print <<HTML ;
<P>$year/$mon/$day<P>
<IMG SRC="http://www.calvinandhobbes.com/$1">
HTML
}
print end_html() ;
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Tue, 16 Nov 1999 22:40:30 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Fetch Dilbert.
Message-Id: <y3lY3.51$dp.3519@nsw.nnrp.telstra.net>
On Tue, 16 Nov 1999 18:14:40 GMT,
perldoc@my-deja.com <perldoc@my-deja.com> wrote:
> In article <slrn832jjg.cvu.abigail@alexandra.delanet.com>,
> abigail@delanet.com wrote:
>
> > #!/opt/perl/bin/perl -w
>
> The "opt" smells of Sun. I could be wrong.
>
>
> > open DISPLAY, "| $viewer" or die "Failed to open viewer.\n";
> > print DISPLAY $image;
> > close DISPLAY or die "Failed to close viewer.\n";
>
> OK, I'll take the troll.
Who is the troll? You're not even brave enough to use your real name.
And you don't even post any code which would be better.
Pathetic.
Martien
--
Martien Verbruggen |
Interactive Media Division | We are born naked, wet and hungry.
Commercial Dynamics Pty. Ltd. | Then things get worse.
NSW, Australia |
------------------------------
Date: 16 Nov 1999 21:01:31 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Fetch Dilbert.
Message-Id: <80sgnb$33t$1@gellyfish.btinternet.com>
On Tue, 16 Nov 1999 18:14:40 GMT perldoc@my-deja.com wrote:
> In article <slrn832jjg.cvu.abigail@alexandra.delanet.com>,
> abigail@delanet.com wrote:
>
>> #!/opt/perl/bin/perl -w
>
> The "opt" smells of Sun. I could be wrong.
>
>
>> open DISPLAY, "| $viewer" or die "Failed to open viewer.\n";
>> print DISPLAY $image;
>> close DISPLAY or die "Failed to close viewer.\n";
>
> OK, I'll take the troll.
>
Sorry who were you saying was doing the trolling ?
> Newbies beware - curmudgeonly old Unix cranky-pants like
> Abigail won't even begin to consider that someone might
> try to run their beloved Perl on something other than a
> Unix box. Hey, Abby, God forbid you might have to write
> some *portable* code for once in your miserable life.
>
Why would Abigail want to write portable code ? Oh yeah so yon skript
kiddies and PoBs can cut and paste the code without understanding how
it works right ?
> How many Windoze image display programs do you know of that
> can ingest input from STDIN?
>
At least two but finding out which ones is left as an exercise to the
reader.
Of course causing this to save the image to a file and starting some
viewer with it as a parameter is just too hard for the aforementioned
individuals.
>
>> This program is copyright 1999 by Abigail.
>
> Awww, eat my shorts.
>
I think we'll pass on that.
> I promise I will omit your little "license" on every
> copy of your program I redistribute.
>
I'm sure Abigail is gutted by that.
> I guess if you tried to sue me then your real name would
> have to appear on the summons, then, wouldn't it?
>
> Yours,
>
> perldoc
>
And I guess so would yours.
Bye Bye troll.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 16 Nov 1999 21:50:59 GMT
From: nkaiser@my-deja.com
Subject: File Locking with a Pre-Forking Server
Message-Id: <80sjk2$lko$1@nnrp1.deja.com>
In the Perl Cookbook example 17.12, Tom mentions that you need to use
file locking ot ensure only one child can call accept at any particular
moment (I'm using Solaris).
What is the syntax for this? What do I want to flock? The socket?
Here's my child accept code:
while (accept(CLIENT,SERVER)) {
# do I put a flock CLIENT,2 here?
}
Thanks....
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 16 Nov 1999 22:51:20 GMT
From: sitaram@dimensional.com (Sitaram Chamarty)
Subject: Re: File read-write
Message-Id: <slrn833m4v.ihm.sitaram@dimensional.com>
On Mon, 15 Nov 1999 18:26:06 GMT, krishnasanjay@my-deja.com
<krishnasanjay@my-deja.com> wrote:
>I have the following text file :
>----------------
>This is a test
>..
>..
>pattern delete this
>and also this.
>-----------------
>Now I want to delete everything in the file after
>the pattern is encountered. I know for sure that
>the pattern occurs only once in the entire file.
>In the example shown above, I want to delete
>"delete this" and "and also this". I do not want
>to open another file and copy all the contents
>over until I reach the pattern. Any help is
It is not clear to me whether you mean you don't want to write
code that does that, or you don't want the end result to do that
due to efficiency concerns.
If the former, here's one way (untested):
perl -p -0777 -i -e 's/pattern.*//s' yourfile
of course this is not too nice if you have a huge file.
------------------------------
Date: Tue, 16 Nov 1999 11:00:36 -0800
From: Samay <samay1NOsaSPAM@hotmail.com.invalid>
Subject: Function keys for current value
Message-Id: <000b8d9b.54263bcc@usw-ex0102-016.remarq.com>
Hi,
I would like to get the keyboard input, to my perl program, regardless
which of my window is focused in NT.
ie..
My program is running a while loop to get the data from external window
and I want to pass function key (let's say F2) and the variable should
hold the current value of the data from external window and process it.
Thus whenever I press F2 above should repeat.
Any suggestion will be helpful.
Thanks
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: 16 Nov 1999 21:36:27 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Function keys for current value
Message-Id: <80sior$347$1@gellyfish.btinternet.com>
On Tue, 16 Nov 1999 11:00:36 -0800 Samay wrote:
> Hi,
> I would like to get the keyboard input, to my perl program, regardless
> which of my window is focused in NT.
> ie..
> My program is running a while loop to get the data from external window
> and I want to pass function key (let's say F2) and the variable should
> hold the current value of the data from external window and process it.
> Thus whenever I press F2 above should repeat.
>
perhaps the modules Win32::GUI or Win32::API will allow you to do that
but it certainly isnt something that Perl can do natively.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 16 Nov 1999 22:51:21 GMT
From: sitaram@dimensional.com (Sitaram Chamarty)
Subject: Re: Function keys for current value
Message-Id: <slrn833nns.6gi.sitaram@dimensional.com>
On Tue, 16 Nov 1999 11:00:36 -0800, Samay <samay1NOsaSPAM@hotmail.com.invalid> wrote:
>Hi,
>I would like to get the keyboard input, to my perl program, regardless
>which of my window is focused in NT.
That is not possible, if I take your words at face value. When a
window has the "focus" all keystrokes (except a few like Ctrl-Esc,
Alt-Tab, etc). go directly to it.
>My program is running a while loop to get the data from external window
>and I want to pass function key (let's say F2) and the variable should
>hold the current value of the data from external window and process it.
>Thus whenever I press F2 above should repeat.
I guess you were expecting a Perl solution to your problem, so you
posted here. AFAIK there is nothing that Perl can do in this
regard.
That said, run regedit and search for "activewindowtracking" or
some such. It essentially makes NT emulate the "focus follows
mouse" which I prefer over Windows default "click to focus"
policy. (It is also a great gag to play on Windows-folks when
they are away from their computers :-)
For more info please post in a more appropriate newsgroup.
------------------------------
Date: 16 Nov 1999 15:47:45 -0500
From: dha@panix.com (David H. Adler)
Subject: Re: HELP --> Save output in a variable
Message-Id: <slrn833gng.odm.dha@panix.com>
On Tue, 16 Nov 1999 10:56:53 -0600, Chris Durbin <durbin@cig.mot.com>
wrote:
>to Marco:
> You really should do more research before you go to the
>newsgroup, otherwise you'll have harpies like Abagail hounding
>you, without giving you any help...
Hm... Funny, I thought the real problem was that he was dispensing
uninformed and quite possibly incorrect information. Silly me, I
should have known that the *real* issue is being called on doing
something that one shouldn't do. :-/
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
People don't buy our products because they want a 1/2 inch drill, they
buy our products because they want a 1/2 inch hole.
- reportedly, some exec at Black and Decker
------------------------------
Date: Tue, 16 Nov 1999 15:59:56 -0500
From: Craig Simpson <craigsimpson@mindspring.com>
Subject: Re: Help With CyberCash....
Message-Id: <3831C5CC.862F6110@mindspring.com>
It is a piece. Do not use CyberCash. It darn near made my hair fall out.
"Mr. X" wrote:
> Brian,
> Yes I have read ALL the documentation and was on the line with
> CyberCash for days. Heck, they could not do it...I'm wondering if it
> can be done, and if so, how. I have tried everything that CyberCash
> has asked me to with no luck....
>
> Brandon.
>
> On Fri, 12 Nov 1999 19:40:18 -0500, brian@smithrenaud.com (brian d
> foy) wrote:
>
> >In article <382c5a6f.102501068@news.cois.on.ca>, xavier10@die.spammers.hotmail.com (Mr. X) posted:
> >
> >> This has been dumped in my lap this morning....not happy....
> >> The company I work for just recently setup CyberCash on their secure
> >> servers. It works just great, it verify the credit cards and all. BUT
> >> it does not mail the merchant a verification or indication that there
> >> has been a CC sale. The company wants the script to email the merchant
> >> the information that CyberCash gets back from the bank. I have talked
> >> extensively with CyberCash about this and they indicate it is not
> >> their policy to help with stuff like this. I have modified the script
> >> to mail the merchant, but I cannot find out how to include the
> >> information in the email.
> >> I hope someone has had experience with this, as we are going nuts here
> >> trying to figure it out!
> >
> >have you read the various documentation sets (including the developer
> >set) supplied with Cybercash? it's all in there.
--
------------------------------
Date: Tue, 16 Nov 1999 16:29:47 -0500
From: "Steven T. Hatton" <hattons@cpkwebser5.ncr.disa.mil>
Subject: Re: HELP: Perl & CRL Lists
Message-Id: <3831CCCB.59A05DE0@cpkwebser5.ncr.disa.mil>
Doug,
Funny you should ask that. I have been trying to kill myself with that
same question. I downloaded openssl and found that it will convert CRLs
between these formats: DER, PEM, or TXT. I even got it to work with
perl. The problem is, I can't find a way to run a double ended pipe to
openssl. I have had to resort to temp files which is UGLY! I am
condemned to work on NT for this project, so I believe the piping issues
are more difficult. I hope we get an answer to your question.
Steve
doug a blaisdell wrote:
> Hi all--
> Is there a perl module to parse CRL (Certificate
> Revocation Lists)?
>
> thanks
------------------------------
Date: 16 Nov 1999 21:05:52 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: HELP: Perl & CRL Lists
Message-Id: <80sgvg$340$1@gellyfish.btinternet.com>
On Tue, 16 Nov 1999 17:48:04 GMT doug a blaisdell wrote:
> Hi all--
> Is there a perl module to parse CRL (Certificate
> Revocation Lists)?
>
If such a thing exists it might well by found at CPAN <http://www.cpan.org>
if it doesnt exist perhaps you might consider writing one and submitting
so others might benefit.
/j\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 16 Nov 1999 14:16:12 -0600
From: Igor Vulfson <igorv@styx.or.fedex.com>
To: "Lab. - konto &" <nproj-2@mdstud.chalmers.se>
Subject: Re: How do I produce a random number?
Message-Id: <3831BB8C.ADDC0E4E@styx.or.fedex.com>
"Lab. - konto &" wrote:
>
> Hi,
> I have a problem with generating random numbers.
> I'm using srand and rand but it doesn't work.
> Any code-examples how to solver this are welcome!
>
> /Joakim
srand(time^($$ + $$<<15));
print rand() . "\n";
iv
--
Senior Scientific Programmer Analyst | Email: mailto:ivulfson@fedex.com
Operations Research and Spatial Apps | URL: http://codeflux.com/
Federal Express Corporation |
------------------------------
Date: Tue, 16 Nov 1999 21:02:46 GMT
From: cpierce1@ford.com (Clinton Pierce)
Subject: Re: How do I produce a random number?
Message-Id: <3831c640.315452977@news.ford.com>
On Tue, 16 Nov 1999 14:16:12 -0600, Igor Vulfson <igorv@styx.or.fedex.com>
wrote:
>
>srand(time^($$ + $$<<15));
>print rand() . "\n";
Minor nit: srand() really isn't necessary on Perl version 5.004 or better.
--
Clinton A. Pierce "If you rush a Miracle Man, you
clintp@geeksalad.org get rotten Miracles." -- Miracle Max,
http://www.geeksalad.org The Princess Bride
------------------------------
Date: Tue, 16 Nov 1999 14:26:56 -0600
From: "Kevin J. Davis" <kev@tnw.org>
Subject: Re: how to step through list
Message-Id: <B4571A30.7C8%kev@tnw.org>
> \\ print qq!
> \\ The following orders are now marked "in process":\n
> \\ <BR><BR>
> \\ <FONT SIZE="-1">
> \\ <OL>\n!;
>
> That's illegal HTML.
How do you figure? Because it doesn't use StyleSheets or because the quoute
is not spelled "? The ending tag for OL comes after the list.
>
> In your $temp_link program:
>
> my $me = $cgi -> param ("view_order");
> open PROCESSING, $orders_processing_path or die "...";
> my @processingorders = sort grep /\.order/ => readdir PROCESSING;
>
> my ($next, $prev);
> foreach (my $i = 0; $i < @processingorders; $i ++) {
> if ($processingorders [$i] eq $me) {
> ($prev, $next) = @processingorders [$i - 1, $i + 1];
> last;
> }
> }
>
> print "<a href = '$temp_link?view_order=$next'>Next</a>" if defined $next;
> print "<a href = '$temp_link?view_order=$prev'>Prev</a>" if defined $prev;
Thanks for the suggestion.
Kev
------------------------------
Date: Tue, 16 Nov 1999 22:41:38 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: how to step through list
Message-Id: <Pine.HPP.3.95a.991116223851.15541E-100000@hpplus01.cern.ch>
On Tue, 16 Nov 1999, Kevin J. Davis wrote:
> > \\ print qq!
> > \\ The following orders are now marked "in process":\n
> > \\ <BR><BR>
> > \\ <FONT SIZE="-1">
> > \\ <OL>\n!;
> >
> > That's illegal HTML.
>
> How do you figure?
You don't need to do any figuring: that fragment alone is enough
to show it can't pass syntax validation on account of failing to
close an open inline tag before opening a new block structure.
> Because it doesn't use StyleSheets or because the quoute
> is not spelled "?
Not any of those
------------------------------
Date: 16 Nov 1999 15:59:37 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: how to step through list
Message-Id: <slrn833l4o.cvu.abigail@alexandra.delanet.com>
Kevin J. Davis (kev@tnw.org) wrote on MMCCLXVIII September MCMXCIII in
<URL:news:B4571A30.7C8%kev@tnw.org>:
&&
&& > \\ print qq!
&& > \\ The following orders are now marked "in process":\n
&& > \\ <BR><BR>
&& > \\ <FONT SIZE="-1">
&& > \\ <OL>\n!;
&& >
&& > That's illegal HTML.
&&
&& How do you figure? Because it doesn't use StyleSheets or because the quoute
&& is not spelled "? The ending tag for OL comes after the list.
Irrelevant. The end tag for the FONT element is missing. And you cannot
have an OL element inside a FONT one.
Followups set.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
-----------== 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: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 1398
**************************************
