[29580] in Perl-Users-Digest
Perl-Users Digest, Issue: 824 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 6 00:09:39 2007
Date: Wed, 5 Sep 2007 21:09:05 -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, 5 Sep 2007 Volume: 11 Number: 824
Today's topics:
Re: FAQ 1.13 Is it a Perl program or a Perl script? <anno4000@radom.zrz.tu-berlin.de>
Re: FTP ing under unix <tadmc@seesig.invalid>
How to convert from a filehandle to a string? <bcc@nospam.net>
Re: How to convert from a filehandle to a string? <bik.mido@tiscalinet.it>
Re: How to convert from a filehandle to a string? charley@pulsenet.com
Re: Perl - Gnuplot Interface <smallpond@juno.com>
Re: Problem with reg expression <ldolan@thinkinghatbigpond.net.au>
Re: Problem with reg expression <ldolan@thinkinghatbigpond.net.au>
Re: UPDATE DB <tlviewer@VISTAyahoo.com>
Re: UPDATE DB <kkeller-usenet@wombat.san-francisco.ca.us>
Re: UPDATE DB <mritty@gmail.com>
Re: UPDATE DB <webmaster@valleywebnet.com>
Re: UPDATE DB <stoupa@practisoft.cz>
Re: UPDATE DB <webmaster@valleywebnet.com>
Usenet Abuse: Someone at IP address 114.244.34.6 is imp <glucegen1@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 6 Sep 2007 02:53:30 +0200
From: Anno Siegel <anno4000@radom.zrz.tu-berlin.de>
Subject: Re: FAQ 1.13 Is it a Perl program or a Perl script?
Message-Id: <5k91caF2lpqaU1@mid.dfncis.de>
On 2007-09-05 21:55:04 +0200, Aaron Sherman <AaronJSherman@gmail.com> said:
> On Sep 5, 1:35 pm, brian d foy <brian.d....@gmail.com> wrote:
>
>> Larry said in his State of the Onion at this year's OSCON that he still
>> likes to think of some of his Perl as "scripts",and specificly reacted
>> against Andy's agenda to strike that word from our vocabulary.
>
> I'm all for removing the word "script" from the lingo once P6 rolls
Why would you want to do that?
The term "script" makes a useful distinction, though its opposite
wouldn't be "program" (a script is a program too), but "binary executable"
or some such. Some programs are scripts, meaning that the source text
*is* the executable file. In others the source is distinct from the
executable. In practical terms this means that you can modify a script
when you can read it, but not a binary, which is an important distinction.
In this terminology, a Perl program would clearly be a script, never mind
Perl 5 or 6. That the term is occasionally used with disparaging intent
shouldn't stop us from using it in useful ways.
Anno
------------------------------
Date: Thu, 06 Sep 2007 00:57:29 GMT
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: FTP ing under unix
Message-Id: <slrnfduk12.1ba.tadmc@tadmc30.sbcglobal.net>
lerameur <lerameur@yahoo.com> wrote:
> Trying to use automated FTP in unix.
> I get the following error:
> Can't locate Net/FTP.pm in @INC (@INC contains: /usr/perl5/5.6.1/lib/
> sun4-solaris-64int /usr/perl5/5.6.1/lib /usr/perl5/site_perl/5.6.1/
> sun4-solaris-64int /usr/perl5/site_perl/5.6.1 /usr/perl5/site_perl /
> usr/perl5/vendor_perl/5.6.1/sun4-solaris-64int /usr/perl5/vendor_perl/
> 5.6.1 /usr/perl5/vendor_perl .)
>
> Where do I find and how do I install this package.
perldoc -q module
What modules and extensions are available for Perl? What is CPAN? What
does CPAN/src/... mean?
How do I find which modules are installed on my system?
How do I install a module from CPAN?
How do I keep my own module/library directory?
> Tried google but
You should try Perl's Frequently Asked Questions before
asking a question for the bazillionth time.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 05 Sep 2007 15:12:37 -0700
From: Bryan <bcc@nospam.net>
Subject: How to convert from a filehandle to a string?
Message-Id: <qRFDi.1593$ZA5.792@nlpi068.nbdc.sbc.com>
Hi,
I have a filehandle, $file.
I can do something like this:
while (<$file>) {
print $_;
# or
$string .= $_;
}
But is there a way to stuff the whole file to a string in one shot? I
tried:
$string = <$file>;
But no dice.
Thanks,
B
------------------------------
Date: Thu, 06 Sep 2007 00:17:06 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How to convert from a filehandle to a string?
Message-Id: <4laud3pmc8pqlevighbek61j04ejlr38c0@4ax.com>
On Wed, 05 Sep 2007 15:12:37 -0700, Bryan <bcc@nospam.net> wrote:
>Subject: How to convert from a filehandle to a string?
This doesn't make sense.
>I have a filehandle, $file.
>
>I can do something like this:
>while (<$file>) {
> print $_;
> # or
> $string .= $_;
>}
>
>But is there a way to stuff the whole file to a string in one shot? I
>tried:
>$string = <$file>;
Read about $/ in
perldoc perlvar
or resort to Uri's File::Slurp.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 05 Sep 2007 16:11:56 -0700
From: charley@pulsenet.com
Subject: Re: How to convert from a filehandle to a string?
Message-Id: <1189033916.584456.156270@r34g2000hsd.googlegroups.com>
On Sep 5, 6:12 pm, Bryan <b...@nospam.net> wrote:
> Hi,
>
> I have a filehandle, $file.
>
> I can do something like this:
> while (<$file>) {
> print $_;
> # or
> $string .= $_;
>
> }
>
> But is there a way to stuff the whole file to a string in one shot? I
> tried:
> $string = <$file>;
>
> But no dice.
>
> Thanks,
> B
In addition to the info you'll find in perlvar, you can also read
about what you want to do in:
http://perldoc.perl.org/perlfaq5.html#How-can-I-read-in-an-entire-file-all-at-once%3f-slurp-file%2c-slurping
Chris
------------------------------
Date: Wed, 05 Sep 2007 15:20:18 -0700
From: smallpond <smallpond@juno.com>
Subject: Re: Perl - Gnuplot Interface
Message-Id: <1189030818.232670.306350@r29g2000hsg.googlegroups.com>
On Sep 5, 3:52 pm, "E.D.G." <edgrs...@ix.netcom.com> wrote:
> PERL - GNUPLOT INTERFACE
>
> Posted by E.D.G. September 5, 2007
>
> This report contains two questions for Perl and Gnuplot experts. The
> questions are listed first and then repeated with details.
>
> 1. Are Perl and Gnuplot the two best programs to use for the following
> application?
>
> 2. What are the best ways to get Perl and Gnuplot to exchange control
> statements and data for plotting?
>
> 1. Are Perl and Gnuplot the two best programs to use for the following
> application?
>
> The goal is to develop a good combination of a programming language such as
> Perl and a chart generation program such as Gnuplot. The Perl program could
> generate data and then direct Gnuplot to plot them.
>
> The chart that was generated would remain in the foreground window. When a
> RIGHT ARROW key was pressed for example, the chart might scroll to the
> right. The UP ARROW might cause the chart to zoom in etc.
>
> With separate data generation and plotting routines people could use
> programs written in other languages such as Basic and Fortran to generate
> their own data and then use shared Gnuplot plotting routines such as world
> map files in order to plot the data.
>
> Are there other programs which are better suited for such an application?
>
> 2. What are the best ways to get Perl and Gnuplot to exchange control
> statements and data for plotting?
>
> The interface would have to be sufficiently flexible that it would work with
> programs written in other languages besides Perl.
>
> The following routine will likely be used. I tested it and it works.
>
> A Gnuplot chart would be displayed in the computer monitor window. Running
> in the background and controlled by certain keyboard keys, a Perl program
> would tell Gnuplot what data to plot and when to plot them.
>
> Specifically,
>
> A Perl program would be started. And data that it generated would be stored
> in a file such as Plot.dat. Perl would also store some startup instructions
> in a Gnuplot control file such as Control.gnu and direct it to start
> running.
>
> The Gnuplot program would then go into a loop that would repeatedly run
> Control.gnu using a "Reread" statement along with a routine that would
> enable it to exit the loop if necessary. A "Pause 0.1" statement in the
> loop would keep Gnuplot from using large amounts of CPU time.
>
> When Perl's IsKeyPressed("RIGHT") command determined that the RIGHT ARROW
> key had been pressed for example, Perl would store a new set of commands in
> Control.gnu. And Gnuplot would execute them and generate a new plot the
> next time it read that file.
>
> After the new data were plotted the looping commands would be stored once
> again in Control.gnu. And Gnuplot would wait for the next commands from the
> Perl program.
>
> As I stated earlier, this routine has been tested. And it work. Are there
> other, better ways to have Perl and Gnuplot exchange control statements and
> data?
>
> Final note - Perl also has the ability to send and receive data from the
> clipboard. And through the use of the SendKeys() command it can have
> Windows print text etc. to programs such as Gnuplot as if the text were
> being typed on the keyboard.
What is wrong with an all-perl solution like GD, GD::Graph, etc? I've
had pretty
good results with these for charting.
Your program structure is wrong. Use perl/Tk to draw the user
interface and process
events instead of having a wait loop. In your example, the right
arrow keypress
would be bound to a subroutine that would modify the arguments to the
chart
generation function. Make the user interface the master program.
Generate the
data to be plotted by passing the arguments to the Basic or FORTRAN
subprogram and
getting the data back through a file, named pipe, or socket interface
as desired.
Plot the result and display it in a Tk::Canvas. Have a button to save
it as a file.
-- S
------------------------------
Date: Thu, 06 Sep 2007 03:11:23 GMT
From: "Peter Jamieson" <ldolan@thinkinghatbigpond.net.au>
Subject: Re: Problem with reg expression
Message-Id: <vdKDi.31787$4A1.25096@news-server.bigpond.net.au>
"Gunnar Hjalmarsson" <noreply@gunnar.cc> wrote in message
news:5k6kqpF283tnU1@mid.individual.net...
> Peter Jamieson wrote:
>> #I want my script to parse HTML tables such as the one included below:
>>
>> #!/usr/bin/perl -w
>> use strict;
>> use warnings;
>>
>> my $moggy = '<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
>> <TR>
>> <TD WIDTH=12% ALIGN=LEFT class=Tipster> RADIO TAB</TD>
>> <TD WIDTH=14% class=Tips> 3-2 </TD>
>> <TD WIDTH=16% ALIGN=LEFT class=Tipster></TD> <TD WIDTH=14%
>> class=Tips></TD>
>> <TD WIDTH=14% ALIGN=CENTER></TD> <TD WIDTH=10% class=TrackCond> 520M</TD>
>> <TD WIDTH=10%
>>
>> class="TrackCond">FINE</TD> <TD WIDTH=10% class="TrackCondR">GOOD</TD>
>> </TR>
>>
>> </TABLE>';
>>
>> # I tried this
>>
>> $_ = $moggy;
>> my ($d,$e,$f);
>> $d=''; $e=''; $f='';
>>
>> ($d,$e,$f) = /TrackCond(.*)<\/TD>/g;
>>
>> print "d ",$d," e ",$e," f ",$f,"\n";
>>
>>
>> This produces for $d
>> > 520M</TD> <TD WIDTH=10% class="TrackCond">FINE</TD> <TD WIDTH=10%
>> class="TrackCondR">GOOD
>> and no value for $e or $f
>>
>> I would have expected
>> $d to be: > 520M, $e to be: ">FINE and $f: to be R">GOOD
>>
>> Can anyone suggest why I don't get this
>
> Because regexes are greedy by default.
>
> ($d,$e,$f) = /TrackCond(.*?)<\/TD>/g;
> ------------------------------^
Thanks Gunnar! Fixed the errant table immediately....brilliant!....
case of cyber-beer on it's way!....I should have seen this .....alas
too much Merlot last nite.
Cheers and thanks again.
------------------------------
Date: Thu, 06 Sep 2007 03:30:37 GMT
From: "Peter Jamieson" <ldolan@thinkinghatbigpond.net.au>
Subject: Re: Problem with reg expression
Message-Id: <xvKDi.31790$4A1.13102@news-server.bigpond.net.au>
"Mirco Wahab" <wahab@chemie.uni-halle.de> wrote in message
news:fbllc1$19p$1@nserver.hrz.tu-freiberg.de...
> Peter Jamieson wrote:
>> ($d,$e,$f) = /TrackCond(.*)<\/TD>/g;
>>
>> print "d ",$d," e ",$e," f ",$f,"\n";
>> I would have expected
>> $d to be: > 520M, $e to be: ">FINE and $f: to be R">GOOD
>> Can anyone suggest why I don't get this and where I am going wrong here?
>
> All has been said so far (all mysteries solved),
> but I'd straighten up the whole thing a little bit:
>
> ...
> my $moggy = '
> <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
> <TR>
> ...
> ...
> </TR>
> </TABLE>';
>
> my ($d, $e, $f) = ('','',''); # why is this necessary at all?
>
> ($d, $e, $f) = $moggy =~ /TrackCon[^>]+>\s*(.+?)<\/TD>/g;
>
> print "d=>'$d', e=>'$e', f=>'$f'\n"; # expand scalars in quotes
> ...
>
> You don't need to put things into $_ in order
> to get regular expressions applied, a $var =~ /regex/
> will do fine. Furthermor, you can use [^>]+> if
> you want to jump to the end of the <Tag name> of
> any "TrackCond" variation.
>
>
> Regards
>
> M.
Thanks Mirco!
Your comments and code suggestions have been most helpful
and I will incorporate your ideas.
Despite what has been said by others my script has collected
approx 50K pages of data with only one or two failures
and no warnings.
I'm only a Perl newby. Your suggestions are instructive.
Thanks again!
------------------------------
Date: 05 Sep 2007 22:39:54 GMT
From: Mark Pryor <tlviewer@VISTAyahoo.com>
Subject: Re: UPDATE DB
Message-Id: <46df303a$0$11071$4c368faf@roadrunner.com>
On Wed, 05 Sep 2007 15:01:08 -0700, JimJx wrote:
> On Sep 5, 5:55 pm, Mark Pryor <tlvie...@VISTAyahoo.com> wrote:
>> On Wed, 05 Sep 2007 13:26:02 -0700, JimJx wrote:
>> > Hi again all,
>>
>> > I am still working on the DB and ran intpo anpther problem that I hope
>> > you all can assist with...
>>
>> > I have a table that consists of 13 columns, the last column being an
>> > autoincrement field 'ID'
>>
>> > Now I have a form on my site that passes data to the script. The
>> > script is supposed to insert the new data into "ID" but that doesn't
>> > happen for some reason. I know that the data being passed is accurate
>> > because I put a print statement in and it worked fine. It just isn't
>> > making it into the DB.
>>
> Thanks for replying Mark.
>
> At the top of my script I have
>
> use strict;
> use DBI;
> use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
>
> Still, no errors anywhere. None show in the browser or the logs. As
> I said, nada.....
>
> $ID does come from a SELECT. And I hate to show my ignorance here,
> but how do I force $ID to integer?
>
before you run the prepare/SELECT do
$ID = 1; #init to some integer value
--
Mark
------------------------------
Date: Wed, 5 Sep 2007 16:47:07 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: UPDATE DB
Message-Id: <sor3r4xt06.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-09-05, JimJx <webmaster@valleywebnet.com> wrote:
>
> sub Update() {
> my $dbh = DBI->connect('DBI:mysql:mydb',$DBuser, $DBpass)
> or die "Couldn't connect to database: " . DBI->errstr;
>
> my $sth = $dbh->prepare( 'UPDATE valley SET Category="$Category",
> Name="$Name", Description="$Description", Contact="$Contact",
> Phone="$Phone", Fax="$Fax", Address="$Address", City="$City",
> State="$State", ZipCode="$ZipCode", Email="$Email", URL="$URL",
> Keywords="$Keywords" where ID = "$ID"' )or die "Couldn't prepare: " .
> DBI->errstr;
If $ID is an integer (which you've mentioned in other posts), it should
not be quoted. Really, you should be using placeholders, so that DBI
can determine the correct datatypes e.g.
my $sth=$dbh->prepare('UPDATE valley SET Category=? WHERE ID=?');
$sth->execute($Category,$ID);
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Wed, 05 Sep 2007 18:28:57 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: UPDATE DB
Message-Id: <1189042137.834070.130100@22g2000hsm.googlegroups.com>
On Sep 5, 4:26 pm, JimJx <webmas...@valleywebnet.com> wrote:
> Now I have a form on my site that passes data to the script. The
> script is supposed to insert the new data into "ID" but that doesn't
> happen for some reason. I know that the data being passed is accurate
> because I put a print statement in and it worked fine.
Your print statement has an important difference from your prepare
statement.
> It just isn't making it into the DB.
Yeah it is. It just isn't inserting what you think it is.
> my $sth = $dbh->prepare( 'UPDATE valley SET Category="$Category",
You're using a single quoted string. Single quotes do not
interpolate. This statement says that you want to set Category to the
literal string '$Category', not whatever value the variable $Category
has. It also says to update where ID is equal to the literal string
'$ID'. I'm betting you have no such row where that's true.
Either change your single quotes to double quotes and backslash all
the internal double quotes, or preferably, use placeholders and let
Perl/DBI take care of this mess for you.
> Name="$Name", Description="$Description", Contact="$Contact",
> Phone="$Phone", Fax="$Fax", Address="$Address", City="$City",
> State="$State", ZipCode="$ZipCode", Email="$Email", URL="$URL",
> Keywords="$Keywords" where ID = "$ID"' )or die "Couldn't prepare: " .
> DBI->errstr;
my $sth = $dbh->prepare('UPDATE valley SET Category = ?, Name = ?,
Description = ?, Contact = ?, Phone = ?, Fax = ?, Address = ?, City
= ?, State = ?, ZipCode = ?, Email = ?, URL = ?, Keywords = ? WHERE ID
= ?') or die "Couldn't prepare: " . DBI->errstr;
> $sth->execute()or die "Couldn't execute: " . DBI->errstr;;
$sth->execute($Category, $Name, $Description, $Contact, $Phone, $Fax,
$Address, $City, $State, $ZipCode, $Email, $URL, $Keywords, $ID) or
die "Couldn't execute: " . DBI->errstr;
>
> $sth->finish ( );
> $dbh->disconnect;
>
> print "Category=$Category, Name=$Name, Description=$Description,
> Contact=$Contact, Phone=$Phone, Fax=$Fax, Address=$Address, City=
> $City, State=$State, ZipCode=$ZipCode, Email=$Email, URL=$URL,
> Keywords=$Keywords, ID=$ID";
In your print statement, you used Double quotes, where you used Single
quotes in your prepare statement. Change the double quotes here to
single quotes to see what you were actually trying to execute.
Paul Lalli
------------------------------
Date: Wed, 05 Sep 2007 19:20:20 -0700
From: JimJx <webmaster@valleywebnet.com>
Subject: Re: UPDATE DB
Message-Id: <1189045220.789563.135740@r29g2000hsg.googlegroups.com>
On Sep 5, 9:28 pm, Paul Lalli <mri...@gmail.com> wrote:
> On Sep 5, 4:26 pm, JimJx <webmas...@valleywebnet.com> wrote:
>
> > Now I have a form on my site that passes data to the script. The
> > script is supposed to insert the new data into "ID" but that doesn't
> > happen for some reason. I know that the data being passed is accurate
> > because I put a print statement in and it worked fine.
>
> Your print statement has an important difference from your prepare
> statement.
>
> > It just isn't making it into the DB.
>
> Yeah it is. It just isn't inserting what you think it is.
>
> > my $sth = $dbh->prepare( 'UPDATE valley SET Category="$Category",
>
> You're using a single quoted string. Single quotes do not
> interpolate. This statement says that you want to set Category to the
> literal string '$Category', not whatever value the variable $Category
> has. It also says to update where ID is equal to the literal string
> '$ID'. I'm betting you have no such row where that's true.
>
> Either change your single quotes to double quotes and backslash all
> the internal double quotes, or preferably, use placeholders and let
> Perl/DBI take care of this mess for you.
>
> > Name="$Name", Description="$Description", Contact="$Contact",
> > Phone="$Phone", Fax="$Fax", Address="$Address", City="$City",
> > State="$State", ZipCode="$ZipCode", Email="$Email", URL="$URL",
> > Keywords="$Keywords" where ID = "$ID"' )or die "Couldn't prepare: " .
> > DBI->errstr;
>
> my $sth = $dbh->prepare('UPDATE valley SET Category = ?, Name = ?,
> Description = ?, Contact = ?, Phone = ?, Fax = ?, Address = ?, City
> = ?, State = ?, ZipCode = ?, Email = ?, URL = ?, Keywords = ? WHERE ID
> = ?') or die "Couldn't prepare: " . DBI->errstr;
>
> > $sth->execute()or die "Couldn't execute: " . DBI->errstr;;
>
> $sth->execute($Category, $Name, $Description, $Contact, $Phone, $Fax,
> $Address, $City, $State, $ZipCode, $Email, $URL, $Keywords, $ID) or
> die "Couldn't execute: " . DBI->errstr;
>
>
>
> > $sth->finish ( );
> > $dbh->disconnect;
>
> > print "Category=$Category, Name=$Name, Description=$Description,
> > Contact=$Contact, Phone=$Phone, Fax=$Fax, Address=$Address, City=
> > $City, State=$State, ZipCode=$ZipCode, Email=$Email, URL=$URL,
> > Keywords=$Keywords, ID=$ID";
>
> In your print statement, you used Double quotes, where you used Single
> quotes in your prepare statement. Change the double quotes here to
> single quotes to see what you were actually trying to execute.
>
> Paul Lalli
Excellent everyone!!! Thanks a million, I was starting to bang my
head on the wall and giving myself Excedrin headache #42....
I just never thought about the placeholders, I guess I need to brush
up a little more.
Once again,
Thanks everyone!
Jim
------------------------------
Date: Thu, 6 Sep 2007 04:23:55 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: UPDATE DB
Message-Id: <fbnoq4$2ag3$1@ns.felk.cvut.cz>
JimJx wrote:
> $ID does come from a SELECT. And I hate to show my ignorance here,
> but how do I force $ID to integer?
>
To convert "numeric string" to number I'm used to use
$ID = "123"; # this is a string but contain digits only
$ID *= 1; # now it is a integer number
$ID = "123.45"; # this is a string but contain digits only and the decimal
dot
$ID *= 1; # now it is a float number
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Wed, 05 Sep 2007 20:59:47 -0700
From: JimJx <webmaster@valleywebnet.com>
Subject: Re: UPDATE DB
Message-Id: <1189051187.284411.50770@57g2000hsv.googlegroups.com>
On Sep 5, 10:23 pm, "Petr Vileta" <sto...@practisoft.cz> wrote:
> JimJx wrote:
> > $ID does come from a SELECT. And I hate to show my ignorance here,
> > but how do I force $ID to integer?
>
> To convert "numeric string" to number I'm used to use
>
> $ID = "123"; # this is a string but contain digits only
> $ID *= 1; # now it is a integer number
>
> $ID = "123.45"; # this is a string but contain digits only and the decimal
> dot
> $ID *= 1; # now it is a float number
>
> --
>
> Petr Vileta, Czech republic
> (My server rejects all messages from Yahoo and Hotmail. Send me your mail
> from another non-spammer site please.)
Excellent Petr, thank you for that!
Jim
------------------------------
Date: Thu, 6 Sep 2007 00:18:18 GMT
From: Radium <glucegen1@gmail.com>
Subject: Usenet Abuse: Someone at IP address 114.244.34.6 is impersonating me and posting nonsense
Message-Id: <8731051671381956934@210.180.98.78>
On 6 Sep 2007 00:18:18 GMT, "Dr Ivan D. Reid" <Ivan.Reid@brunel.ac.uk> wrote:
> On Tue, 04 Sep 2007 18:02:26 -0700, Radium <glucegen1@gmail.com>
> > When will those posts go away?
> When society goes back to madhouses rater than "care in the community".
I am asking a serious question. When will those posts go
away?!?!?!?!?!?!?!?!
It's annoying me as they are hindering my ability to see my REAL
posts.
I feel like infecting hip-crime with trojan horse that will steal all
their info -- including credit card numbers -- and give it to the rest
of the world. I want to burn hip-crime with oxyacetylene flames and
cause them grave-suffering. I want to burn the skins of whoever runs
hipcrime. I want to turn their skins into white foam by thermally-
denaturing their skins with oxyacetylene flames. I hope someone --
with less control over their anger than me -- sets hipcrime's
personnel on fire and gives them a slow, painful, yet sure way out of
existence.
Please tell me WhenTF these posts will disappear before I go insane
and do something that both I and everyone else will
regret!!!!!!!!!!!!!!!!!!!!!!
Hi:
Hipcrime tortures good-hearted Usenet posters for the fun of it.
Hipcrime does this for pleasure. They gain cold-hearted pleasure,
perverse sexual-excitement, sick humor, and sadistic happiness from
impersonating Usenet posters and posting nonsense via the
impersonation
I want Hipcrime to be burnt alive. Death to Hipcrime. They defame
netizens for sport.
Hipcrime are sick scum. Any hipcrimer deserves to be punished. He/she
should be put through the following scenario on a hot and dry day --
in which the sky has few high white clouds [no grey or low clouds]
scattered around -- at about 11:00 AM of that day:
1. All his/her voluntary muscles [and their fibers] -- excluding
breathing muscles but including speech muscles -- should be relaxed to
a state of total paralysis [no amount of stimulation (whether neural
or direct electric stimulation of the muscle fibers) should be able to
cause these muscles to contract or "un-relax"]. This will make him/her
unable to move or vocalize.
2. While his/her breathing muscles should not be paralyzed, his/her
voluntary control of them should be totally lost [this means that his/
her autonomic nervous system will have complete control over his/her
respiration].
3. The motor nerves supplying his/her voluntary muscles - including
speech muscles but excluding breathing muscles -- should also be
relaxed into total paralysis [these motor nerves should be hyper-
polarized] and unable to "un-relax".
4. His/her entire autonomic nervous system [and their effectors], his/
her heart's natural pacemaker, his/her tear-production, his/her
natural pain-relieving -- and stress-relieving -- mechanisms, smooth
muscles [including those in the respiratory system], endocrine,
hormonal, inflammatory, lysosomal, and immune systems should remain
totally unresponsive to the infliction of even the most excruciating
pain, totally unresponsive to any type of injury [regardless of
severity], and totally unresponsive to any emotion or psychological
state [regardless of intensity].
5. The parts of his/her brain that deal exclusively with movement,
contraction/relaxation of all voluntary muscles [including speech
muscles but excluding breathing] muscles should also be relaxed into a
state of hyperpolarization.
6. The parts of his/her brain that deal solely with voluntary - but
not involuntary -- control of breathing should also be relaxed into
hyperpolarization.
7. All pain reflexes -- somatic and visceral - should be totally
paralyzed.
8. All psychological protective mechanisms should be completely
disabled.* [See notes on psychological protective mechanisms]
9. All mechanisms that decrease consciousness as a result of pain
should be disabled. Here is an example of that mechanism:
Quote from http://www.internetarmory.com/self_defense.htm :
"It is speculated that various organs of the body can send pain
impulses to the brain stem indicating a severe or overwhelming bodily
injury. The reticular activating system responds by producing a
functional "shut down", which results in loss of consciousness within
a second or two."
Once again this mechanism should be completely disabled.
10. Any mechanisms that specifically allow emotions, will, or
psychological states to alter any perceptions -- including pain
perception -- should be completely disabled.
11. All parts of his/her body contain VRL-1 nerve-endings -- in which
those VRL-1 functions as thermal pain receptors -- should be scorched
with smokeless, charless, sootless, ashless, emberless, non-toxic,
clean, non-polluting, orangish-yellow oxyacetylene flames until his/
her body is completely dehydrated from the flame's heat.** [See notes
on VRL-1 nerves]
The flame burn injuries will cause severe dehydration and loss of
blood volume by heating up the skin's water and causing it to
evaporate. Shock sets in as the blood continues to thicken. After 2
immeasurably-long hellish hours the hipcrime scumslime will most
likely die. The sick f--k will be in SO much pain and distress yet
totally unable to express any hint of it; not even a single tear drop
will be shed from his/her eyes. Such cold-hearts deserve such fates.
It's called "eye for an eye."
*Psychological protective mechanisms:
http://jnnp.bmj.com/cgi/content/full/71/suppl_1/i18 quotes :
"In psychogenic coma the eyelids are kept firmly shut and are
resistant to opening. Oculocephalic responses are unpredictable though
nystamus is evident on caloric testing. Motor tone is normal or
inconsistent and limb reflexes retained. Other physical signs based on
reflex self protection have been used in this syndrome though their
validity has not been formally assessed. The EEG shows awake rhythms."
Quotes from http://www.ttmed.com/dementia/text_books.cfm?ID_Dis=216&ID_Cou=237&ID_Book=1669&id_chapter=11710&id_subtext=11723
:
"Pseudocoma, also known as psychogenic unresponsiveness or feigned
coma, is difficult to diagnose and should be based on a diagnosis of
exclusion because, if true coma is overlooked, the result could be
disastrous. Therefore, all patients with coma suspected of being
psychogenic in origin must undergo thorough evaluation until the
diagnosis is clearly established. A conversion reaction and
malingering are the most common causes of pseudocoma."
"It is important to remember that none of the historical data
absolutely include or exclude the possibility of pseudocoma. However,
there are some clinical findings suggestive of psychogenic origin,
such as conditions precipitated by stress. Pseudocoma usually begins
or persists when an observer is present. Patients with pseudocoma
slump to the floor and protect themselves from hitting their heads and
other body parts."
"During examination, patients with pseudocoma usually make
semipurposeful avoiding movements. They have normal pupils, corneal
reflexes and plantar reflexes. They may keep their eyes firmly shut
and resist the opening of the eye by examiners. Because eyelid tone
cannot be changed at will, in patients with true coma passive eyelid
opening is easy and is followed by slow eyelid closure. Blinking also
increases in feigned coma, but decreases in true coma. Passive eye
opening in a sleeping or an actually comatose person results in
mydriasis if the pupillary reflex mechanisms are intact. Conversely,
opening the eyes of a person who is awake produces miosis. The eyes
roll up when the lids are raised, known as Bell's phenomenon as
mentioned before, in patients with psychogenic pseudocoma, while the
eyes remain in the neutral position in patients with real coma. Roving
eye movements cannot be imitated and their presence indicates true
coma. In contrast, voluntary saccadic eye movements seen in feigned
coma are usually faster and briskly with a well-defined endpoint.
Pseudocoma patients may respond with purposeful movement to painful
stimulation and avoid unpleasant stimuli such as a nasal tickle. The
presence of nystagmus during cold caloric testing suggests that coma
is either feigned or hysterical, because nystagmus requires an intact
cerebral cortex and brainstem. Additionally, cold water caloric
stimulation is noxious and can induce nausea and vomiting, or
awakening in patients with psychogenic coma."
"Similarly to patients with pseudoparalysis, the hands of patients
with pseudocoma do not often hit their face when dropped. However, the
diagnostic validity of this kind of self-protection sign has not been
evaluated convincingly. Furthermore, unethical provocative maneuvers,
such as dropping alcohol in the nostrils or olfactory stimulation
using ammonium, should not be used to induce responsiveness in
patients deemed to be in feigned coma."
Quotes from http://www.memorylossonline.com/glossary/psychogenicamnesia.html
:
"Psychogenic amnesia (also called functional amnesia) is a form of
amnesia which occurs in otherwise healthy people -- i.e., it is not
the result of a brain injury. It involves loss of important personal
information. Another term for this condition is functional amnesia."
"In one form of psychogenic amnesia, called fugue state, individuals
may forget not only their pasts but their very identities. Despite the
many Hollywood movies depicting this phenomenon, fugue state is
extremely rare in real life. Fugue state normally resolves with time,
particularly with the help of therapy."
"A more common form of psychogenic amnesia is dissociative amnesia. In
this state, an individual may experience memory loss which is
restricted to a particular period of time, such as the duration of a
violent crime. This memory loss is too extensive to be explained by
ordinary forgetting, and instead may reflect the fact that the
information is too stressful or traumatic to be remembered.
Dissociative amnesia is a psychological phenomenon, rather than a
physiological one, and may often be resolved with the help of
therapy."
More on psychogenic blackouts [escapes] which must be prevented:
http://en.wikipedia.org/wiki/Psychogenic_amnesia
http://www.findarticles.com/p/articles/mi_m3225/is_n1_v41/ai_8773339
http://www.psych.uic.edu/education/courses/behav_science2000/reed/behavscilimbic03132000/sld023.htm
**VRL-1 nerves: http://users.rcn.com/jkimball.ma.ultranet/BiologyPages/P/Pain.html
TRPV2 (also called VRL-1) responds to temperatures above 52 Celsius.
"Painfully hot"
VR-1 responds to capsaicin. VRL-1 does NOT. There is a world of
difference.
VRL-1 responds only to "painfully hot"
VR-1 responds to hot, chili, and acids.
Once again, there is a BIG difference between VR-1 and VRL-1. Read
the quotes from http://users.rcn.com/jkimball.ma.ultranet/BiologyPages/P/Pain.html
:
"TRPV1 (also known as VR1) = Hot (>43 Celsius). Also activated by
capsaicin, the active ingredient of hot chili peppers, by camphor, and
by acids (protons)."
"TRPV2 (also called VRL-1) = Painfully hot (>52 Celsius)"
http://www.islandnet.com/~yesmag/brain/brainbump.php?id=95
"VR1 for hot, and VRL1 for super hot."
In the skin, VRL-1 serves as a thermal nociceptor. However in the
viscera, lungs and other internal organs, VRL-1 has a totally
different purpose.
So dermal VRL1-excitation is significantly more painful than VR1
excitation. This is why thermal burns are SOOOOOOOOOOOOOO much more
agonizing than acid-burns of the same depth. This is also why
"temperature hot" is a lot more algogenic than "chili hot". All cuz of
those nasty VRL-1s!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Yes, these net-abusing hipcrime bullies deserve to roast alive over a
cheese-colored fire.
A flaming suit [device that aims flames at the bully's skin] should be
custom-built to fit the size and shape of the bully after he/she has
gone through the steps 1-10, I described.
The flame suit fits the entire body of the bully. Right after steps
1-10, the bully is stripped completely naked -- to prevent smoke-
inhalation from ignited clothing. Only then is he/she put into the
flame suit. Then the flaming starts and his/her skin turns to white
blistering foam, even if the bully is dark-skinned. In fact, the burn
wounds are far more apparent in a dark-skinned individual because his/
her skin is mostly dark while the burn wounds are white due to thermal
denaturation of the skin's pigments. The flames are made by smoothly
igniting oxyacetylene and then feeding it the through the flame suit.
Sodium ions are mixed with the oxyacetylene to give the flames a
terrifying orangish-yellow--reddish-pink color.
Once the body is completely dehydrated, the flames are turned off, and
the bullying-scumfoam is left to die under the afternoon sun outdoors.
Well, actually, all of this occurs outdoors in the type of weather I
described.
The bully will be in excruciating pain and will want to die. In about
120 minutes, his/her wish will surely be answered, as dehydration
reaches fatal extents. The area in which he/she suffers in dies should
be a sandy open area. So right after the fire, put him/her in the
dirty dusty sand.
The color of the flame, and the weather will only add to the horror of
the burn injuries. All other bull-teasers should be made to watch as
this bully dies his/her slow, painful, yet sure death before it's
their turn to be punished.
Not to mention, the burn wounds look like white foam. This
characteristic appearance is terrifying and sickening to most viewers.
However, these wounds still not nearly as scary as the color and shape
of the flames.
Any assistance, understanding, and cooperation on this matter are
highly appreciated.
Any questions/comments also welcome.
Thanks,
Radium
--
Other genuine pink slices will create extremely at once lightings.
------------------------------
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 824
**************************************
