[31050] in Perl-Users-Digest
Perl-Users Digest, Issue: 2295 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 25 03:09:46 2009
Date: Wed, 25 Mar 2009 00:09:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 25 Mar 2009 Volume: 11 Number: 2295
Today's topics:
Re: Debian MySQL Perl DBI - connection terminates unex <john1949@yahoo.com>
Re: Debian MySQL Perl DBI - connection terminates unex <john1949@yahoo.com>
monitoring oracle rac services <alfonso.baldaserra@gmail.com>
Re: net telnet mount sydneypuente@yahoo.com
new CPAN modules on Wed Mar 25 2009 (Randal Schwartz)
Re: Read File and Output to new format <tadmc@seesig.invalid>
Re: Read File and Output to new format <Ansher.M@gmail.com>
Re: Read File and Output to new format <Ansher.M@gmail.com>
Re: regex question: extended [^...] concept? sln@netherlands.com
Re: rolling frame (3) sln@netherlands.com
Re: rolling frame (3) <mstep@podiuminternational.org>
Re: what is the return value type of !1 ? <nospam-abuse@ilyaz.org>
Re: what is the return value type of !1 ? <nospam-abuse@ilyaz.org>
Re: what is the return value type of !1 ? <glennj@ncf.ca>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 25 Mar 2009 07:01:38 -0000
From: "John" <john1949@yahoo.com>
Subject: Re: Debian MySQL Perl DBI - connection terminates unexpectedly after 100 secs.
Message-Id: <gqcksf$6q1$1@news.albasani.net>
"Jens Thoms Toerring" <jt@toerring.de> wrote in message
news:727ga0Fo7qv3U1@mid.uni-berlin.de...
> John <john1949@yahoo.com> wrote:
>
>> "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid> wrote in message
>> news:49be71fd$0$89873$815e3792@news.qwest.net...
>> > John wrote:
>> >> I'm updating a MySQL table with about 2 million records. After about
>> >> 100
>> >> seconds the program ends with no error message. If I use LIMIT
>> >> 800000,50000 the part where it stopped is OK so the UPDATE part is OK.
>> >>
>> >> Is there a time out parameter? Or am I running out of memory. Can
>> >> the
>> >> memory be increased?
>> >
>> > Check line 24.
>
>> Line 24 says:-
>
>> our $old_fh=select(STDOUT); $|=1; select($old_fh); # Make standard output
>> socket hot
>
>> Can't see how that can affect it.
>
> I rather guess it was a gentle hint that your problem description
> is too vague to allow to deduce what's going wrong. But your sub-
> ject line may contain a hint: it looks as if the update is done
> from within a CGI script or something similar, running on a web
> server. And normally there's a CPU time limit set for such scripts
> to catch e.g. script that run in an endless loop. That's what I
> would check for first (note: if it's not set then an OS default
> limit may be used!). If you are using Apache it might be a RLimitCPU
> directive. But there could also be a limit on the memory consumption
> of such scripts (RLimitMEM with Apache2)... Perhaps a look at the log
> files of the web server will give you some more hints.
>
> Regards, Jens
> --
> \ Jens Thoms Toerring ___ jt@toerring.de
> \__________________________ http://toerring.de
Many thanks. That was very helpful. I have maxed both RLimitCPU and
RLimitMEM in Apache2 and that has had led to better performance. There are
severe problems in using MySQL when you start hitting more than 2 million
rows irrespective how well you tweak your settings.
Regards
John
------------------------------
Date: Wed, 25 Mar 2009 07:07:03 -0000
From: "John" <john1949@yahoo.com>
Subject: Re: Debian MySQL Perl DBI - connection terminates unexpectedly after 100 secs.
Message-Id: <gqcl6k$757$1@news.albasani.net>
"Xho Jingleheimerschmidt" <xhoster@gmail.com> wrote in message
news:49bf08ca$0$9725$ed362ca5@nr5-q3a.newsreader.com...
> John wrote:
>> Hi
>>
>> I'm updating a MySQL table with about 2 million records. After about 100
>> seconds the program ends with no error message.
>
> Are you sure? If there were an error message, do you know where it would
> go and do you know you could find it?
>
>> If I use LIMIT 800000,50000 the part where it stopped is OK so the UPDATE
>> part is OK.
>>
>> Is there a time out parameter?
>
> I don't think there is one in DBD::mysql. The program that calls your
> perl script could have a time out, or your MySQL server might have a time
> out, but neither of those are Perl issues
>
>
>> Or am I running out of memory. Can the memory be increased?
>
> Unlike a select, there is no reason that large update should consume much
> memory in the Perl client. And I don't use Debian specifically, but on
> other linux systems running out of memory does produce an error somewhere,
> but not always in the first place one might think to look.
>
> Xho
Yes I have now found that error log. There is a special log for slow
queries. So evidently MySQL are aware that some constructs do take a long
time.
I am not certain whether it is a Perl problem. My feeling now it is a MySQL
problem and that they are aware of similar problems.
Regards
John
------------------------------
Date: Wed, 25 Mar 2009 00:00:19 -0700 (PDT)
From: alfonsobaldaserra <alfonso.baldaserra@gmail.com>
Subject: monitoring oracle rac services
Message-Id: <2ce39306-ea0b-41cc-9e5c-932de0ed871a@e1g2000pra.googlegroups.com>
hello,
i'm trying to develop a nagios plugin to monitor oracle rac services.
the command i'm using is crs_stat and i get the output as follows
NAME=ora.footest.footest1.inst
TYPE=application
TARGET=ONLINE
STATE=ONLINE on srv03
[snip]
NAME=ora.srv04.ASM2.asm
TYPE=application
TARGET=ONLINE
STATE=ONLINE on srv04
i need to monitor only specific services so we can pass the service
name as argument and check it's output.
the problem is i cannot relate NAME with STATE to check it's current
state, for example, if i do
$ crs_stat | grep -Ev '^TYPE|^TARGET' | sed -e 's/^NAME=//g' -e 's/
^STATE=//g' | sed -e 's/^ONLINE on //g'
ora.footest.footest1.inst
srv03
[snip]
ora.srv04.ASM2.asm
srv04
so if i want to monitor ora.srv04.ASM2.asm i could do
$ crs_stat | grep -Ev '^TYPE|^TARGET' | sed -e 's/^NAME=//g' -e 's/
^STATE=//g' | sed -e 's/^ONLINE on //g' | grep ora.srv04.ASM2.asm
and get only
ora.srv04.ASM2.asm
but could not figure out the state.
is that possible?
is there a better way to do that?
thanks
------------------------------
Date: Tue, 24 Mar 2009 23:18:26 -0700 (PDT)
From: sydneypuente@yahoo.com
Subject: Re: net telnet mount
Message-Id: <3a346194-e539-4036-94d1-bdd98371f5c8@c11g2000yqj.googlegroups.com>
On 23 Mar, 11:22, "Peter Wyzl" <plac...@dontbesilly.com> wrote:
> <sydneypue...@yahoo.com> wrote in message
>
> news:144997ed-12ed-479c-9fb7-169bed3083da@c9g2000yqm.googlegroups.com...
>
> > Hello Guys,
> > Not sure if this is the correct group tpo post on.
> > Am using net telnet inside cygwin on my windows laptop to invoke an
> > NFS mount on a remote solaris box.
> > =A0 =A0 =A0 =A0print "accessing $host\n";
>
> > =A0 =A0 =A0 =A0my $t =3D new Net::Telnet;
> > =A0 =A0 =A0 =A0$t->open($host);
> > =A0 =A0 =A0 =A0$t->login("root", "password");
> > =A0 =A0 =A0 =A0print "mounting software \n";
> > =A0 =A0 =A0$t->cmd(String =3D> " mount -F nfs 192.168.1.18:/expo /mnt",
> > Timeout =3D 60);
> > Works just fine.
> > Except when the target box is switched off!
> > How can I check that the mount has succeeded please?
>
> From the Net::Telnet docs re: open
>
> open - connect to port on remote host
>
> =A0 =A0 $ok =3D $obj->open($host); =A0 =A0$ok =3D $obj->open([Host =A0 =
=A0=3D> $host,]
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0[Port =A0 =A0=3D> $port,]
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0[Errmode =3D> $mode,]
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0[Timeout =3D> $secs,]);This me=
thod opens a TCP connection
> to $port on $host. If either argument is missing then the current value o=
f
> host() or port() is used. Optional named parameters are provided to overr=
ide
> the current setting of errmode and timeout.
>
> On success 1 is returned. On time-out or other connection failures, the
> error mode action is performed. See errmode().
>
> HTH, HAND
>
> P
Ah. My question was not clear. I want too pick up on the situation
when 192.168.1.18 is not reachable. Currently if the nfs mount fails
no error message is generated.
------------------------------
Date: Wed, 25 Mar 2009 04:42:27 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Mar 25 2009
Message-Id: <KH1p2r.IwE@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-CPANAuthors-Russian-0.9
http://search.cpan.org/~sharifuln/Acme-CPANAuthors-Russian-0.9/
We are Russian CPAN authors
----
Attribute-Util-1.04
http://search.cpan.org/~dankogai/Attribute-Util-1.04/
Assorted general utility attributes
----
CGI-IDS-1.0114
http://search.cpan.org/~hinnerk/CGI-IDS-1.0114/
PerlIDS - Perl Website Intrusion Detection System (XSS, CSRF, SQLI, LFI etc.)
----
CPAN-CachingProxy-1.4
http://search.cpan.org/~jettero/CPAN-CachingProxy-1.4/
A very simple lightweight CGI based Caching Proxy
----
CPAN-Testers-WWW-Statistics-0.61
http://search.cpan.org/~barbie/CPAN-Testers-WWW-Statistics-0.61/
CPAN Testers Statistics website.
----
CPANPLUS-Dist-Arch-0.05
http://search.cpan.org/~juster/CPANPLUS-Dist-Arch-0.05/
CPANPLUS backend for building Archlinux pacman packages
----
Chart-Clicker-2.19
http://search.cpan.org/~gphat/Chart-Clicker-2.19/
Powerful, extensible charting.
----
Chart-OFC2-0.03
http://search.cpan.org/~jkutej/Chart-OFC2-0.03/
Generate html and data files for use with Open Flash Chart version 2
----
Class-C3-0.21
http://search.cpan.org/~flora/Class-C3-0.21/
A pragma to use the C3 method resolution order algortihm
----
Class-C3-XS-0.09
http://search.cpan.org/~flora/Class-C3-XS-0.09/
XS speedups for Class::C3
----
Class-Private-0.01
http://search.cpan.org/~leont/Class-Private-0.01/
Private hashes for your objects
----
Config-Savelogs-0.11
http://search.cpan.org/~scottw/Config-Savelogs-0.11/
Read and write savelogs configuration files
----
DBD-Pg-2.11.8_1
http://search.cpan.org/~turnstep/DBD-Pg-2.11.8_1/
PostgreSQL database driver for the DBI module
----
DBIx-Log4perl-0.14
http://search.cpan.org/~mjevans/DBIx-Log4perl-0.14/
Perl extension for DBI to selectively log DBI methods, SQL, parameters, result-sets, transactions etc to a Log::Log4perl handle.
----
Devel-NYTProf-2.08_91
http://search.cpan.org/~timb/Devel-NYTProf-2.08_91/
Powerful feature-rich perl source code profiler
----
Email-Sender-0.004
http://search.cpan.org/~rjbs/Email-Sender-0.004/
a library for sending email
----
Email-Sender-Transport-SQLite-0.002
http://search.cpan.org/~rjbs/Email-Sender-Transport-SQLite-0.002/
deliver mail to an sqlite db for testing
----
Env-Export-0.10
http://search.cpan.org/~rjray/Env-Export-0.10/
----
Env-Export-0.11
http://search.cpan.org/~rjray/Env-Export-0.11/
Export %ENV values as constant subroutines
----
File-Touch-0.06
http://search.cpan.org/~nwetters/File-Touch-0.06/
update access and modification timestamps, creating nonexistent files where necessary.
----
Geo-GeoPo-0.0.1
http://search.cpan.org/~kokogiko/Geo-GeoPo-0.0.1/
Simple encoder/decoder of GeoPo format
----
Geo-LocaPoint-0.0.4
http://search.cpan.org/~kokogiko/Geo-LocaPoint-0.0.4/
Simple encoder/decoder of LocaPoint
----
Geo-SweGrid-1.0
http://search.cpan.org/~jobero/Geo-SweGrid-1.0/
Convert coordinates between geodetic WGS84 and Swedish grid RT90 and SWEREF99 systems
----
HTML-TreeBuilder-LibXML-0.01_01
http://search.cpan.org/~tokuhirom/HTML-TreeBuilder-LibXML-0.01_01/
HTML::TreeBuilder::XPath compatible interface with libxml
----
HTML-TreeBuilder-LibXML-0.01_02
http://search.cpan.org/~tokuhirom/HTML-TreeBuilder-LibXML-0.01_02/
HTML::TreeBuilder::XPath compatible interface with libxml
----
HTML-TreeBuilder-LibXML-0.01_03
http://search.cpan.org/~tokuhirom/HTML-TreeBuilder-LibXML-0.01_03/
HTML::TreeBuilder::XPath compatible interface with libxml
----
HTTP-DAV-0.37
http://search.cpan.org/~opera/HTTP-DAV-0.37/
A WebDAV client library for Perl5
----
JavaScript-Dumper-0.011
http://search.cpan.org/~perler/JavaScript-Dumper-0.011/
Dump JavaScript data structures from Perl objects. Allows unquoted strings and numbers.
----
LWP-UserAgent-WithCache-0.11
http://search.cpan.org/~sekimura/LWP-UserAgent-WithCache-0.11/
LWP::UserAgent extension with local cache
----
Linux-USBKeyboard-0.03
http://search.cpan.org/~ewilhelm/Linux-USBKeyboard-0.03/
access devices pretending to be qwerty keyboards
----
MRO-Compat-0.10
http://search.cpan.org/~flora/MRO-Compat-0.10/
mro::* interface compatibility for Perls < 5.9.5
----
Math-GSL-0.18
http://search.cpan.org/~leto/Math-GSL-0.18/
Perl interface to the GNU Scientific Library (GSL)
----
Module-Release-2.04
http://search.cpan.org/~bdfoy/Module-Release-2.04/
Automate software releases
----
Module-Release-2.04_01
http://search.cpan.org/~bdfoy/Module-Release-2.04_01/
Automate software releases
----
MooseX-InstanceTracking-0.01
http://search.cpan.org/~sartak/MooseX-InstanceTracking-0.01/
Trait for tracking all instances of a class
----
MooseX-InstanceTracking-undef
http://search.cpan.org/~sartak/MooseX-InstanceTracking-undef/
----
Moxy-0.52
http://search.cpan.org/~tokuhirom/Moxy-0.52/
Mobile web development proxy
----
NEXT-0.61
http://search.cpan.org/~flora/NEXT-0.61/
Provide a pseudo-class NEXT (et al) that allows method redispatch
----
Net-OpenSSH-0.33
http://search.cpan.org/~salva/Net-OpenSSH-0.33/
Perl SSH client package implemented on top of OpenSSH
----
Padre-Plugin-Nopaste-0.1.0
http://search.cpan.org/~jquelin/Padre-Plugin-Nopaste-0.1.0/
send code on a nopaste website from padre
----
SOAP-Transport-HTTP-Nginx-0.01
http://search.cpan.org/~cyga/SOAP-Transport-HTTP-Nginx-0.01/
transport for nginx (<http://nginx.net/>) http server for SOAP::Lite module.
----
SOAPjr-1.1.4
http://search.cpan.org/~robman/SOAPjr-1.1.4/
SOAP without the bloat and JR (JSON-RPC) with proper error handling and file uploads
----
SSH-RPC-1.2
http://search.cpan.org/~rizen/SSH-RPC-1.2/
----
Schedule-Cron-0.97_01
http://search.cpan.org/~roland/Schedule-Cron-0.97_01/
cron-like scheduler for Perl subroutines
----
Set-Relation-0.8.0
http://search.cpan.org/~duncand/Set-Relation-0.8.0/
Relation data type for Perl
----
Statistics-SDT-0.031
http://search.cpan.org/~rgarton/Statistics-SDT-0.031/
Signal detection theory (SDT) measures of sensitivity and response-bias
----
Storable-AMF-0.58
http://search.cpan.org/~grian/Storable-AMF-0.58/
Perl extension for serialize/deserialize AMF0/AMF3 data
----
TaskForest-1.23
http://search.cpan.org/~enoor/TaskForest-1.23/
A simple but expressive job scheduler that allows you to chain jobs/tasks and create time dependencies. Uses text config files to specify task dependencies.
----
Time-UTC-Now-0.007
http://search.cpan.org/~zefram/Time-UTC-Now-0.007/
determine current time in UTC correctly
----
URI-Escape-XS-0.05
http://search.cpan.org/~dankogai/URI-Escape-XS-0.05/
Drop-In replacement for URI::Escape
----
Unix-Uptime-0.33_01
http://search.cpan.org/~pioto/Unix-Uptime-0.33_01/
Determine the current uptime, in seconds, and load averages, across different *NIX architectures
----
Unix-Uptime-0.33_02
http://search.cpan.org/~pioto/Unix-Uptime-0.33_02/
Determine the current uptime, in seconds, and load averages, across different *NIX architectures
----
WWW-Mixi-Scraper-0.24
http://search.cpan.org/~ishigaki/WWW-Mixi-Scraper-0.24/
yet another mixi scraper
----
Web-Scraper-0.27
http://search.cpan.org/~miyagawa/Web-Scraper-0.27/
Web Scraping Toolkit inspired by Scrapi
----
XML-Rules-1.06
http://search.cpan.org/~jenda/XML-Rules-1.06/
parse XML and specify what and how to keep/process for individual tags
----
XML-Tiny-2.02
http://search.cpan.org/~dcantrell/XML-Tiny-2.02/
simple lightweight parser for a subset of XML
----
perl-GPS-0.17
http://search.cpan.org/~srezic/perl-GPS-0.17/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Tue, 24 Mar 2009 18:36:13 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Read File and Output to new format
Message-Id: <slrngsirjd.rq4.tadmc@tadmc30.sbcglobal.net>
ansher <Ansher.M@gmail.com> wrote:
> On Mar 25, 1:22 am, Tad J McClellan <ta...@seesig.invalid> wrote:
>> ansher <Anshe...@gmail.com> wrote:
>> > 3. Refer line 9-12, line 10 ends with ; but lines 11 & 12 do not.
>> > After formatting line should be separated by single ;
>>
>> > *include q10.qin;txt=UNIQUENESS; bb=Top line; tx=Mid Value;tb=Low
>> > Value
>>
>> > 4.Refer line 13-14,
>>
>> > Line13: n01contacts/friends do you
>> > Line14: +have in each of the services ;c=contacts(433)?1?
>>
>> > After formatting line should not be separated by single ; instead it
>> > should read as
>>
>> > n01contacts/friends do you have in each of the services ;c=contacts
>> > (433)?1?
>>
>> I'll leave that so that you have the opportunity to write some code
>> yourself, unless you plan to send me your paycheck. :-)
> This code works but there are few formatting conditions not taken care
> of, like it do not add single ; after joining lines.
Right.
Did you read what I wrote?
You must either learn to program in Perl, hire someone to do it
for you, or abandon getting it done.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 24 Mar 2009 19:36:07 -0700 (PDT)
From: ansher <Ansher.M@gmail.com>
Subject: Re: Read File and Output to new format
Message-Id: <fadedbbb-12b9-4189-942e-497acbdc9c6b@f41g2000pra.googlegroups.com>
> Right.
>
> Did you read what I wrote?
>
> You must either learn to program in Perl, hire someone to do it
> for you, or abandon getting it done.
>
> --
> Tad McClellan
> email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"- Hide quoted text -
>
> - Show quoted text -
Didnt mean any offence, I was just sharing informing with you after
using the code.
Thanks again for your help
------------------------------
Date: Tue, 24 Mar 2009 19:49:13 -0700 (PDT)
From: ansher <Ansher.M@gmail.com>
Subject: Re: Read File and Output to new format
Message-Id: <588d790b-9ed8-48ce-a4c6-07fee38f875b@d2g2000pra.googlegroups.com>
On Mar 25, 4:36=A0am, Tad J McClellan <ta...@seesig.invalid> wrote:
> >> I'll leave that so that you have the opportunity to write some code
> >> yourself, unless you plan to send me your paycheck. =A0:-)
> > This code works but there are few formatting conditions not taken care
> > of, like it do not add single ; after joining lines.
>
> Right.
>
> Did you read what I wrote?
>
> You must either learn to program in Perl, hire someone to do it
> for you, or abandon getting it done.
>
> --
> Tad McClellan
> email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"- Hid=
e quoted text -
>
> - Show quoted text -
Didnt mean any offence, I was just sharing information with you after
using the code.
Thanks again for your help
------------------------------
Date: Wed, 25 Mar 2009 05:56:52 GMT
From: sln@netherlands.com
Subject: Re: regex question: extended [^...] concept?
Message-Id: <1nhjs4dejomrunnfeq89raq1qcv6ljc189@4ax.com>
On Tue, 24 Mar 2009 21:41:10 +0000 (UTC), Werner Lemberg <wl@gnu.org> wrote:
>Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
>
>> Hope this helps,
>
>Thanks a lot to all the posters who presented further ideas and comments.
>
>> P.S. Of course, with "onion rings" implemented (google for it) there
>> would be no problem whatsoever...
>
>Yeah. I've looked at
>
> http://dev.perl.org/perl6/rfc/198.html
>
>and this is exactly what I would like to have. In the same document there
>is also
>
> (?*{code})
>
>which I would like to see too.
>
>
> Werner
Note that (?{ code }) always passes, it has no real effect on the regex except you
can tweek special variables, pos(), etc..
Hopefully, it won't come down to all that.
-sln
------------------------------
Date: Wed, 25 Mar 2009 05:29:10 GMT
From: sln@netherlands.com
Subject: Re: rolling frame (3)
Message-Id: <1nfjs45bca43m2ra60v1ep6ra8fmpg9iqb@4ax.com>
On Tue, 24 Mar 2009 11:10:39 -0700 (PDT), Marek <mstep@podiuminternational.org> wrote:
>
>Hello all!
>
>
>I don't want to abuse this group. I know, that you expect everybody to
>give a solution first, when asking for help. I am afraid, that A.
>Sinan Unur will pop up and will shout on me ... So forgive me, I try
>nevertheless ...
>
>I have a friend who is claiming to have the hundred percent working
>roulette system. I said, that there is no such kind of system, but I
>promised him to program it in Perl, just to learn this language with
>an interesting project. So please don't laugh at me. I don't believe
>in such childish ideas ...
>
>I promised to keep his "system" secret. So don't tell it to
>anybody :-) But his "system" is so silly, that I unveil it to you
>nevertheless :-)
>
>If there is a double number in a frame up to $five, play this number
>$five times, just after the double number appeared. (The frame and the
>number of bets are variables). If there comes this double number in
>the coming five numbers:
>
> $bet*35
>
> if not
>
> $stake-$bet
>
> and see whether the double number comes the next game ...
>
>Already the "rolling frame" was over my head. sln in this group
>suggested the following code for it. I fired up the debugger, just to
>study how this fantastic code is working. But I am unable to implement
>the roulette system in this rolling frame. Would somebody be so kind
>and help me with this? Perhaps even offlist, if I am bothering this
>group?
>
>
>Thank you in advance
>
Unfortunately, you don't realize, you have all you need to perpetuate
the loss of your money.
Nobody can understand what you say, thats why nobody responds.
I've given you the ammunition, powder and gun, but you don't know how to
use it. I've even commented the variables at the top you need to tweek.
Thats as far as I go. I will not be involved any more, that's why I didn't
respond (and closed tthe temp email I created) to your email.
You have it all there. Just take it to any friends who know code and you
have it.
I will not be involved in any kind of mechanism (device) for cheating and
I don't care about money, period! I derived a classic rolling frame without
knowing the usage intended. Had I known, I never would have spent time on it!
-sln
------------------------------
Date: Tue, 24 Mar 2009 23:36:27 -0700 (PDT)
From: Marek <mstep@podiuminternational.org>
Subject: Re: rolling frame (3)
Message-Id: <53feed2b-3c01-4a08-ad8d-5d841bbf13b4@37g2000yqp.googlegroups.com>
On Mar 25, 6:29=A0am, s...@netherlands.com wrote:
>
> Unfortunately, you don't realize, you have all you need to perpetuate
> the loss of your money.
>
> Nobody can understand what you say, thats why nobody responds.
> I've given you the ammunition, powder and gun, but you don't know how to
> use it. I've even commented the variables at the top you need to tweek.
>
> Thats as far as I go. I will not be involved any more, that's why I didn'=
t
> respond (and closed tthe temp email I created) to your email.
>
> You have it all there. Just take it to any friends who know code and you
> have it.
>
> I will not be involved in any kind of mechanism (device) for cheating and
> I don't care about money, period! I derived a classic rolling frame witho=
ut
> knowing the usage intended. Had I known, I never would have spent time on=
it!
>
> -sln
I only wanted to ask politely once again some help of this group, not
of you sln. This should not be an device of cheating, and I don't care
about money either (I spent half my professional life in non-profit,
charity work for suffering children!). I thought, that this tricky
problem would be interesting for you Perl coders; it is very difficult
for me as a beginner.
In any case your rolling frame is genius and I am very grateful for
your code, also if you feel abused now. Sorry! I will try to finish
this project on myself. Much better learning effect ;-)
And sorry for my English! Hope at least this was clear enough to
enlighten my intentions.
Greetings from Munich
marek
------------------------------
Date: Wed, 25 Mar 2009 03:53:20 GMT
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: what is the return value type of !1 ?
Message-Id: <slrngsjalg.a7i.nospam-abuse@chorin.math.berkeley.edu>
On 2009-03-25, shul <meshulum@gmail.com> wrote:
> Negation of a true value by "!" or "not" returns a special
> false value. When evaluated as a string it is treated as '', but
> as a number, it is treated as 0.
>
> That is what I needed! A special false value!
BS.
Hope this helps,
Ilya
------------------------------
Date: Wed, 25 Mar 2009 03:55:51 GMT
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: what is the return value type of !1 ?
Message-Id: <slrngsjaq7.a7i.nospam-abuse@chorin.math.berkeley.edu>
On 2009-03-24, Tim McDaniel <tmcd@panix.com> wrote:
> That can be stated more precisely. Luckily, "man perlsyn" does.
... wrongly (as goes with the most of current Perl docs)...
> There are actually 5 things that are treated as false in a boolean
> context, and !(something true) has a special value:
>
> Truth and Falsehood
>
> The number 0, the strings '0' and '', the empty list "()", and
> "undef" are all false in a boolean context. All other values are
> true.
Wrong.
> Negation of a true value by "!" or "not" returns a special
> false value. When evaluated as a string it is treated as '', but
> as a number, it is treated as 0.
There is nothing especially "special" about the returned value (unless
one noticed that it is the same value for all statements returning FALSE).
Hope this helps,
Ilya
------------------------------
Date: 25 Mar 2009 06:16:12 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: what is the return value type of !1 ?
Message-Id: <slrngsjj1e.ijf.glennj@smeagol.ncf.ca>
At 2009-03-24 11:55PM, "Ilya Zakharevich" wrote:
> On 2009-03-24, Tim McDaniel <tmcd@panix.com> wrote:
> > That can be stated more precisely. Luckily, "man perlsyn" does.
>
> ... wrongly (as goes with the most of current Perl docs)...
>
> > There are actually 5 things that are treated as false in a boolean
> > context, and !(something true) has a special value:
> >
> > Truth and Falsehood
> >
> > The number 0, the strings '0' and '', the empty list "()", and
> > "undef" are all false in a boolean context. All other values are
> > true.
>
> Wrong.
>
> > Negation of a true value by "!" or "not" returns a special
> > false value. When evaluated as a string it is treated as '', but
> > as a number, it is treated as 0.
>
> There is nothing especially "special" about the returned value (unless
> one noticed that it is the same value for all statements returning FALSE).
>
> Hope this helps,
How could that possibly help?
--
Glenn Jackman
Write a wise saying and your name will live forever. -- Anonymous
------------------------------
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 V11 Issue 2295
***************************************
