[27088] in Perl-Users-Digest
Perl-Users Digest, Issue: 8976 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Feb 21 00:06:16 2006
Date: Mon, 20 Feb 2006 21:05:04 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 20 Feb 2006 Volume: 10 Number: 8976
Today's topics:
Alternate for buzzers in a competition (Raghuramaiah Gompa)
Re: Inline::C and multiple platforms <sisyphus1@nomail.afraid.org>
Re: Looking for a trick with strings <rwxr-xr-x@gmx.de>
Re: Re: www.perlservices.net <jeremy@websNOSPAMwonder.co.uk>
Re: Why can't JavaScript work when embeded in Perl CGI <nospam@comcast.net>
Re: www.perlservices.net <matthew.garrish@sympatico.ca>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 20 Feb 2006 22:06:16 +0000 (UTC)
From: rgompa@steel.ucs.indiana.edu (Raghuramaiah Gompa)
Subject: Alternate for buzzers in a competition
Message-Id: <dtdego$f4u$1@rainier.uits.indiana.edu>
We are hosting a math fair. We have teams competing.
I am just wondering whether there is anyway we could use
laptops to serve as buzzers. Laptops can be connected to
a central computer through wireless. Team can press a
button when they are ready. Can we write a perl code to
do this on the computers? Please help. .. Raghu
rgompa@iuk.edu
------------------------------
Date: Tue, 21 Feb 2006 10:28:07 +1100
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Inline::C and multiple platforms
Message-Id: <43fa5102$0$13411$afc38c87@news.optusnet.com.au>
"Andrei Alexandrescu (See Website For Email)"
<SeeWebsiteForEmail@moderncppdesign.com> wrote in message
news:IuzzzL.zzu@beaver.cs.washington.edu...
> I'd like to put a Perl script using Inline::C on a shared filesystem.
> Users might invoke the script from Linux or Solaris systems.
>
> Now the problem is, the Inline module will use an MD5 digest and caching
> to ensure that the C part is recompiled if changed. However, that also
> means that the the mechanism won't detect that the script is being
> invoked under different operating systems, so it will erroneously
> attempt to use the Linux shared lib on Solaris or vice versa.
>
> How can I avoid that in an elegant manner?
>
I can't think of a very elegant solution. I would create 2 versions of the
Inline::C script - one named 'linux_version.pl', the other named
'solaris_version.pl'. The user would not invoke either of those 2 scripts
directly - instead the user would run a script that looks something lke
this:
use warnings;
if($^O =~ /linux/i) { do 'linux_version.pl'}
else {do 'solaris_version.pl'}
Cheers,
Rob
------------------------------
Date: Tue, 21 Feb 2006 03:50:41 +0100
From: "Lukas Mai" <rwxr-xr-x@gmx.de>
Subject: Re: Looking for a trick with strings
Message-Id: <dtdv60$3fk$00$1@news.t-online.com>
January Weiner <january.weiner@gmail.com> schrob:
> Lukas Mai <rwxr-xr-x@gmx.de> wrote:
>> return ($str =~ /(?:[A-Z]-*){$from}((?:[A-Z]-*){$len})/)[0];
>
> Could you explain why you use the (?: ) construct? It says in the perlre
> that
>
> This is for clustering, not capturing; it groups subexpressions like
> "()", but doesn't make backreferences as "()" does. So
>
> @fields = split(/\b(?:a|b|c)\b/)
>
> is like
>
> @fields = split(/\b(a|b|c)\b/)
>
> but doesn't spit out extra fields. It's also cheaper not to capture
> characters if you don't need to.
>
> I assume that with (?: ) you dont get $1 and $2 in our example, but why
> should it matter?
I use (?: ) by default because I need grouping more often than
capturing. I could change the pattern to
/([A-Z]-*){$from}(([A-Z]-*){$len})/ but then I'd have to use
($str =~ /.../)[1] to extract the correct match variable. Not using
plain () except where needed makes my life easier because I don't have
to count all groups to find the one I'm interested in, plus it's also
faster.
HTH, Lukas
------------------------------
Date: Mon, 20 Feb 2006 21:19:21 +0000
From: Jeremy Clulow <jeremy@websNOSPAMwonder.co.uk>
Subject: Re: Re: www.perlservices.net
Message-Id: <tgckv19nag52qpi2pucqoqf8qikq6ph4vk@4ax.com>
Hi Sinane,
Thanks for you help. You have changed my life with your wisdom
JC
On Mon, 20 Feb 2006 18:55:30 GMT, "A. Sinan Unur"
<1usa@llenroc.ude.invalid> wrote:
|| Jeremy Clulow <jeremy@websNOSPAMwonder.co.uk> wrote in
|| news:ausjv1d09j2sicidfqkd5ipc9thiv6eck7@4ax.com:
||
|| > Does anyone know whether www.perlservices.net is still trading?
||
|| I am not sure what you are asking.
||
|| > I paid 30 dollars for a script from them 50 hours ago by credit card.
|| > I received no acknowledgement or script. I have an order number
|| > received after paying. I've e-mailed them twice since ordering but
|| > still no reply.
||
|| I would recommend getting in touch with the fraud division at your
|| credit card company.
||
|| > They only have a form on their site, but no e-mail or physical
|| > address.
||
|| You are very trusting indeed.
||
|| In any case, I do not see anything in your post that is topical for
|| comp.lang.perl.misc.
||
|| > --
||
|| Your sig separator is incorrectly specified. It should be
|| dash-dash-space-newline.
||
|| Sinan
--
~~~~~~~~~~~~~~~~~~~~~~~~~~
Jeremy Clulow,
Webs Wonder Design
www.webswonder.co.uk
jeremy@websNOSPAMwonder.co.uk
~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Mon, 20 Feb 2006 20:56:47 -0500
From: "thrill5" <nospam@comcast.net>
Subject: Re: Why can't JavaScript work when embeded in Perl CGI code?
Message-Id: <a8WdnQVhmpIW7mfeRVn-iw@comcast.com>
The problem is that you </SCRIPT> tag is at the end of the output, not at
the end of the actual JavaScript function
See below
Scott
"Dave" <david@nospam.com> wrote in message
news:dsrfbu$ru0$2@zcars129.ca.nortel.com...
> Greetings
>
> I had a working Perl CGI code which generates HTML page based on the
> paramaeters.
>
> I want to add a little JavaScript function like
> =========================================
> <SCRIPT language="JavaScript">
> <!--
>
> //Function go_download to pop up confirm window
> function go_download()
> {
> var is_sure = window.confirm("Are you sure you want to download?");
>
> if (is_sure == true)
> {
> print "<input type=submit value=\"Get Patches\">";
> print end_html();
> }
> }
********* Your //--> and </SCRIPT> tag should be here **********
> <FORM>
> <INPUT type ="button" value = "Click to Get Patches"
> onClick = "go_download();">
> </FORM>
>
******** Not HERE *************
> //-->
> </SCRIPT>
> =========================================================
>
> But it comes error like this
> "500 Server Error
> The server encountered an internal error or misconfiguration and was
> unable
> to complete your request."
>
>
>
------------------------------
Date: Mon, 20 Feb 2006 18:13:51 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: www.perlservices.net
Message-Id: <N2sKf.950$XZ3.97591@news20.bellglobal.com>
"Jeremy Clulow" <jeremy@websNOSPAMwonder.co.uk> wrote in message
news:ausjv1d09j2sicidfqkd5ipc9thiv6eck7@4ax.com...
> Hi,
>
> Does anyone know whether www.perlservices.net is still trading?
>
> I paid 30 dollars for a script from them 50 hours ago by credit card. I
> received no acknowledgement or script. I have an order number received
> after paying. I've e-mailed them twice since ordering but still no reply.
>
> They only have a form on their site, but no e-mail or physical address.
> Any
> information would be gratefully received.
>
"Adding function to websites since 1999"
I'm sure I would have stopped right there.
Anyway, I don't know what you hope to gain by posting here. If you're
looking for an address to go beat someone up you might consider a domain
lookup, otherwise just call your credit card company and have them cancel
the payment. A little fear of losing their credit card billing service might
get someone to respond.
Matt
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 8976
***************************************
