[22537] in Perl-Users-Digest
Perl-Users Digest, Issue: 4758 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 25 06:05:50 2003
Date: Tue, 25 Mar 2003 03:05:09 -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 Tue, 25 Mar 2003 Volume: 10 Number: 4758
Today's topics:
Re: "globbing" command line args on W2K? <edgue@web.de>
Re: accessing C++ heap data from embeded perl scripts, <im_not_giving_it_here@i_hate_spam.com>
Assiging values to parameters in strings (Yariv W)
Re: Assiging values to parameters in strings <bernard.el-hagin@DODGE_THISlido-tech.net>
Re: Assiging values to parameters in strings <josef.moellers@fujitsu-siemens.com>
Re: currency number to text conversion <bigj@kamelfreund.de>
Learning Perl (Barkingroo)
Re: Learning Perl <no@spam.for.me.invalid>
Re: Learning Perl <abigail@abigail.nl>
Re: Learning Perl <please@no.spam>
Re: Learning Perl <bernard.el-hagin@DODGE_THISlido-tech.net>
Limited form of eval() - just a calculator <acm2@ukc.ac.uk>
Re: Limited form of eval() - just a calculator <tassilo.parseval@rwth-aachen.de>
Re: Looking for Sequential Image (non-banner) Rotation <ngx@tbdata.com>
Re: Looking for Sequential Image (non-banner) Rotation <tore@aursand.no>
Re: lwp protocol help (Helgi Briem)
Memory leak with Win32::ODBC <tpluk@fmldjqsfj.sncf.fr>
Re: News posts with attachments <josef.moellers@fujitsu-siemens.com>
Re: nms formmail with file upload <jbritain@cox.net>
Re: pattern matching <tore@aursand.no>
Re: Perl ODBC and SQL <somewhere@nowhere.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 25 Mar 2003 08:47:26 +0100
From: Edwin Guenthner <edgue@web.de>
Subject: Re: "globbing" command line args on W2K?
Message-Id: <3E80098E.8010603@web.de>
Benjamin Goldberg wrote:
> It would run the *first* xy<something>.pl script, with the names of the
> other scripts as it's arguments.
>
> This is not the same thing as running several scripts.
You are right; but I am right, too.
It would do _what I want it to do_; it would not do
what I said I would like to do. I wasnt precise enough
about my goals.
Actually myStuff.pm takes control of the whole execution;
it will check for scripts in @ARGV and run them
(later on, maybe multible times) using "do". So the
important thing for me is to get perl up
when providing just an argument like "xy*.pl" - later
on my own code will take care.
I found this here:
http://www.dunwich.org/soft/wildcardext.html
but that doesnt work for me ;-(
------------------------------
Date: Tue, 25 Mar 2003 07:33:47 +0000
From: Asfand Yar Qazi <im_not_giving_it_here@i_hate_spam.com>
Subject: Re: accessing C++ heap data from embeded perl scripts, possible?
Message-Id: <b5p0ma$t3h$1@newsg2.svr.pol.co.uk>
Chage wrote:
> hiya all,
> i wish to know is it possible for perl scripts that was embeded into
> C++ code to access data structure that was allocated by C++?
> will appreciate if anyone could help.
>
> rgds,
> chage
I'm doing something similar to this myself right now... see some of my
above posts.
You can't really access complex C++ data structures from Perl. Then
you'd have to know the layout of the vtables of all the different C++
compiler vendors out there and program accordingly, and if you're going
to do that, you might as well write your own linker.
You have to create accessors/mutator C-style (extern "C") functions for
the classes, pass them pointers to the classes, and then they return
either SV* to primitive data types, or another C++ pointer to another
class, which you have to use other extern "C" functions on.
However, you can't just pass pointers between functions in Perl safely.
You'd have to convert them to void* for XS to recognise them. Blah.
So I've been told of a solution that may work: create an SV*, bless it
into the 'CXXPtr' package, and assign some 'magic' to it, which holds
the type_info pointer to the type of the class and the void* to the
object. The 'CXXPtr' can then be type-checked at run-time to make sure
it holds a pointer of the desired class (or subclass) before its void*
is cast to that class type.
Then, heap data can simply be wrapped in a 'CXXPtr' and passed to the
perl function you want to call, that perl function returns, your C++
function returns, the object is automatically destructed (you're not
using 'new' allocations without std::auto_ptr are you?) and you're home
free.
But then you've got to take exceptions into account. C++ 3.X and Perl
exceptions are incompatible. And I'm not even going there, girlfriend.
------------------------------
Date: 25 Mar 2003 00:05:48 -0800
From: yarivwine@yahoo.com (Yariv W)
Subject: Assiging values to parameters in strings
Message-Id: <2efc0c33.0303250005.3b466085@posting.google.com>
Hi,
I have a string = '$x-$y'
and i want to calculate the exprsion
how can i do it ?
x=5
y=10
How can i change the string to a calculate the result - 5-10
Doe's anyone have an example ??
Thank's
Yariv
------------------------------
Date: Tue, 25 Mar 2003 08:14:22 +0000 (UTC)
From: "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: Assiging values to parameters in strings
Message-Id: <Xns93495D231468Felhber1lidotechnet@62.89.127.66>
Yariv W wrote:
> Hi,
> I have a string = '$x-$y'
> and i want to calculate the exprsion
> how can i do it ?
> x=5
> y=10
> How can i change the string to a calculate the result - 5-10
> Doe's anyone have an example ??
The best way is to calculate the value outside of the string, but if you
insist on doing it inside the string try:
print "$x - $y = @{[$x - $y]}\n";
--
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: Tue, 25 Mar 2003 09:25:06 +0100
From: Josef =?iso-8859-1?Q?M=F6llers?= <josef.moellers@fujitsu-siemens.com>
Subject: Re: Assiging values to parameters in strings
Message-Id: <3E801262.6640E6C@fujitsu-siemens.com>
Yariv W wrote:
> =
> Hi,
> I have a string =3D '$x-$y'
> and i want to calculate the exprsion
> how can i do it ?
> x=3D5
> y=3D10
> How can i change the string to a calculate the result - 5-10
> Doe's anyone have an example ??
What's so bad about eval?
$s=3D'$x+$y'; $x=3D5; $y=3D10;
print eval($s);
-- =
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Tue, 25 Mar 2003 11:00:50 +0100
From: "Janek Schleicher" <bigj@kamelfreund.de>
Subject: Re: currency number to text conversion
Message-Id: <pan.2003.03.25.09.58.00.319488@kamelfreund.de>
Chris Lowth wrote at Mon, 24 Mar 2003 08:58:36 +0000:
> Michael Budash wrote:
>
>> In article <3trfa.16086$pK4.1449944@newsread1.prod.itd.earthlink.net>,
>> "Jodyman" <Jodyman@hotmail.com> wrote:
>>
>> .. etc ..
>
> Is all the world American? What about some internationalisation?
There are at least some modules for some languages, e.g.:
Lingua::DE::Num2Words
Lingua::ES::Numeros
Lingua::JA::Number
Lingua::FR::Numbers
Lingua::EU::Numbers
Lingua::ZH::Numbers
Lingua::NL::Numbers
Lingua::AF::Numbers
...
I think, all that is missed is a common module as a heading for all of
them, that can switch between all these languages.
Greetings,
Janek
------------------------------
Date: 24 Mar 2003 22:01:44 -0800
From: jdavis@mail2me.com.au (Barkingroo)
Subject: Learning Perl
Message-Id: <a3c370a3.0303242201.242f7fa2@posting.google.com>
Hi all
I would like to start learning Perl...but some questions.
1. Where is a good starting point to learn Perl. I am OK with HTML.
2. What is a good book/books and what is the most effective way to
teach myself Perl.
3. Why Perl and not C++
4. Any other guided help...
5. Is this the right group for someone like me to be in....!!
thanks
Jas
------------------------------
Date: Tue, 25 Mar 2003 07:13:54 GMT
From: Nils Petter Vaskinn <no@spam.for.me.invalid>
Subject: Re: Learning Perl
Message-Id: <pan.2003.03.25.08.09.44.982183.10719@spam.for.me.invalid>
On Tue, 25 Mar 2003 07:01:44 +0100, Barkingroo wrote:
> Hi all
>
> I would like to start learning Perl...but some questions.
>
> 1. Where is a good starting point to learn Perl. I am OK with HTML.
http://learn.perl.org
> 2. What is a good book/books and what is the most effective way to teach
> myself Perl.
http://learn.perl.org/library/beginning_perl
Experiment, on a copy, not the original of data that will take
you days to recreate if you make a mistake.
> 3. Why Perl and not C++
Both.
> 4. Any other guided help...
> 5. Is this the right group for someone like me to be in....!!
Yes, I've learned a lot simply by lurking and looking at the examples
people post.
> thanks
>
> Jas
------------------------------
Date: 25 Mar 2003 08:18:32 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Learning Perl
Message-Id: <slrnb8046o.t7r.abigail@alexandra.abigail.nl>
Barkingroo (jdavis@mail2me.com.au) wrote on MMMCDXCIII September MCMXCIII
in <URL:news:a3c370a3.0303242201.242f7fa2@posting.google.com>:
@@
@@ 3. Why Perl and not C++
That's like asking in a group about pasta, "Why pasta, and not potatoes?".
If there was a good answer to the question "Why Perl and not C++",
C++ wouldn't be used. The only reasonable answer you can give is
"For some people, Perl works better than C++ for some projects".
But this has a dependency on both the people and projects. And
the two dependencies aren't uncorrelated.
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
------------------------------
Date: Tue, 25 Mar 2003 10:51:11 +0000
From: Chris Lowth <please@no.spam>
Subject: Re: Learning Perl
Message-Id: <HxWfa.143$Nn.54098@newsfep1-win.server.ntli.net>
Abigail wrote:
> Barkingroo (jdavis@mail2me.com.au) wrote on MMMCDXCIII September MCMXCIII
> in <URL:news:a3c370a3.0303242201.242f7fa2@posting.google.com>:
> @@
> @@ 3. Why Perl and not C++
>
>
> That's like asking in a group about pasta, "Why pasta, and not potatoes?".
>
> If there was a good answer to the question "Why Perl and not C++",
> C++ wouldn't be used. The only reasonable answer you can give is
> "For some people, Perl works better than C++ for some projects".
> But this has a dependency on both the people and projects. And
> the two dependencies aren't uncorrelated.
>
>
> Abigail
A couple of very good books:
http://www.lowth.com/books/programming_perl
http://www.lowth.com/books/advanced_perl_programming
Chris
--
My real address is: chris at lowth dot sea oh em
-> OpenSource e-mail virus protection : http://protector.sourceforge.net
-> iptables configuration wizards : http://www.lowth.com/LinWiz
------------------------------
Date: Tue, 25 Mar 2003 10:54:12 +0000 (UTC)
From: "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: Learning Perl
Message-Id: <Xns9349783B9FC2Belhber1lidotechnet@62.89.127.66>
Chris Lowth wrote:
[...]
> A couple of very good books:
> http://www.lowth.com/books/programming_perl
> http://www.lowth.com/books/advanced_perl_programming
For learning? I don't think so.
--
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: Tue, 25 Mar 2003 08:40:01 -0000
From: Tony McNulty <acm2@ukc.ac.uk>
Subject: Limited form of eval() - just a calculator
Message-Id: <oprmk00zbh2czp9w@news.ukc.ac.uk>
Hi,
I have a little ircbot with a 'calculate' command. Currently I'm just
performing an eval() on the string the user attempts to calculate, but I
want to try and restrict the things the user can do. I only want to offer
the maths functions (+, -, *, /, %, sin(), cos(), log() etc.) and want to
stop them from doing things like 'undef($self)' or `rm -rf /' for example.
I couldn't find a limited form of eval on cpan, so I was wondering if
anyone has had to do this before, and could perhaps point me in the right
direction before I start writing my own calculator module.
Many thanks,
Tony
--------------------------------------
web: http://mercutio.digitalrice.com
email: mercutio at digitalrice dot com
--------------------------------------
------------------------------
Date: 25 Mar 2003 09:02:16 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Limited form of eval() - just a calculator
Message-Id: <b5p5uo$jnh$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Tony McNulty:
> I have a little ircbot with a 'calculate' command. Currently I'm just
> performing an eval() on the string the user attempts to calculate, but I
> want to try and restrict the things the user can do. I only want to offer
> the maths functions (+, -, *, /, %, sin(), cos(), log() etc.) and want to
> stop them from doing things like 'undef($self)' or `rm -rf /' for example.
>
> I couldn't find a limited form of eval on cpan, so I was wondering if
> anyone has had to do this before, and could perhaps point me in the right
> direction before I start writing my own calculator module.
Use the Safe module. The little script below should only allow some
mathematical operators:
#! /usr/bin/perl -w
use Safe;
my $comp = Safe->new;
$comp->permit(qw/int hex oct abs pow multiply i_multiply divide i_divide
modulo i_modulo add i_add subtract i_subtract/);
while (<STDIN>) {
chomp;
last if /^exit/;
my $res = $comp->reval($_);
warn "Forbidden!\n" and next if $@;
print $res, "\n";
}
See 'perldoc Opcode' (along with 'perldoc Safe' of course) for a list of
operators that you can explicitely permit. The above will also run in
its own namespace so there'll be no clash with any variables.
However, there has been a security issue with the Safe module lately.
See this posting:
<http://groups.google.com/groups?q=group:comp.lang.perl.misc+Safe.pm&hl=en&lr=&ie=UTF-8&oe=UTF-8&selm=HH4n9.134682%24142.1788540%40news.chello.at&rnum=4>
But this problem might not apply to you.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Tue, 25 Mar 2003 08:11:57 -0000
From: "William Tasso" <ngx@tbdata.com>
Subject: Re: Looking for Sequential Image (non-banner) Rotation Script
Message-Id: <b5p2o6$2bijqo$1@ID-139074.news.dfncis.de>
Andy wrote:
> My client wants to employ a rotating image script which will load one
> of a series of five images of varying sizes sequentially each time the
> user reloads the page.
Can your web server use session cookies? That and a little local data
storage on the web server would provide the necessary command and control
per user session.
If you wish to maintain the state over several different sessions then you
will need to find some way of identifying the user, login perhaps or
cookies.
--
William Tasso - http://www.WilliamTasso.com
------------------------------
Date: Tue, 25 Mar 2003 10:07:32 +0100
From: "Tore Aursand" <tore@aursand.no>
Subject: Re: Looking for Sequential Image (non-banner) Rotation Script
Message-Id: <pan.2003.03.25.08.48.24.110751@aursand.no>
On Mon, 24 Mar 2003 17:04:41 -0800, Andy wrote:
> My client wants to employ a rotating image script which will load one of
> a series of five images of varying sizes sequentially each time the user
> reloads the page.
Should the images reload on a per-user basis, ie. each user will have
their "own" sequence? Or can the the sequence be global for each user?
To solve the first problem, you should probably use a cookie. That cookie
would store unique information about the last viewed image for the
particular user.
To solve the last problem described above, you would need to store the
unique information about the last viewed image globally (ie. in a text
file or something).
--
Tore Aursand
------------------------------
Date: Tue, 25 Mar 2003 10:31:29 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: lwp protocol help
Message-Id: <3e802dd5.3969410420@news.cis.dfn.de>
On Mon, 24 Mar 2003 17:38:27 -0800, "shane mos"
<shane@excite.com> wrote:
First of all, don't top-post. It annoys the regulars and
*SEVERELY* reduces your chances of receiving useful
help. If you don't know what top-posting (TOFU) is, read
the following:
http://jargon.watson-net.com/jargon.asp?w=top%2Dpost
For further guidelines on how to post to
comp.lang.perl.misc, read:
http://mail.augustmail.com/~tadmc/clpmisc.shtml
For more information about netiquette in general, see
the "Netiquette Guidelines" at:
http://andrew2.andrew.cmu.edu/rfc/rfc1855.html
<MESSAGES REARRANGED INTO CHRONOLOGICAL ORDER>
>> In article <v7v8nc2liujvf0@corp.supernews.com>, shane mos wrote:
>> > I have a multi-homed system and I want to specify an IP when using LWP
>> > useragent to fetch web pages. How do I do that? Thanks.
>"Keith Keller" <kkeller-spammmm@wombat.san-francisco.ca.us> wrote in message
>news:pgao5b.rv6.ln@goaway.wombat.san-francisco.ca.us...
>> The same way you specify a domain name.
>shane mos wrote
>I am sorry maybe you misunderstood. I want to specify what IP to use as a
>client not what the ip of the page i want to fetch....
What do you mean, client? LWP does not have clients.
Do you mean proxy perhaps? Here's one way to do that.
use strict;
use warnings;
use LWP::Simple qw($ua getprint);
my $proxy_ip = '123.0.0.1';
my $port_number = '80';
my $url = 'http://www.perl.com';
$ua->proxy('http', $proxy_ip:$port_number');
getprint $url;
__END__
--
Regards, Helgi Briem
helgi DOT briem AT decode DOT is
------------------------------
Date: Tue, 25 Mar 2003 08:25:54 +0100
From: "Tpluk" <tpluk@fmldjqsfj.sncf.fr>
Subject: Memory leak with Win32::ODBC
Message-Id: <b5p07p$gqj$1@muguet.sncf.fr>
Bonjour,
It seems like I have a memory leak with Win32:ODBC.
When I use the above script (10 000 times), I run out of memory. When I use
the script via ASP / ISS, the memory is not freed and the server crashes.
Does anyone know where this could come from ?
Tpluk
------------------------------
use strict;
use Win32::ODBC;
my @result;
sub perl_getpath_arrets
{
my $driver="{SQL Server}";
my $serveur="server";
my $utilisateur="user";
my $motdepasse="password";
my $database="database";
my $dsn =
"DRIVER=$driver\;SERVER=$serveur\;UID=$utilisateur\;PWD=$motdepasse\;DATABAS
E=$database";
return $dsn;
}
my $dsn = perl_getpath_arrets;
my $db = new Win32::ODBC($dsn);
for (my $i=10000;$i>0;$i--)
{
undef @result;
my $niveau=0;
my $id_evnt=6006;
my $debut = 10224;
my $fin = 10237;
my $nom_machine = "server";
die qq(Cannot open new ODBC\n) if ! $db;
my $SqlStatement = "SELECT date_debut_manu, date_fin_manu FROM arrets ".
"WHERE nom_machine='".$nom_machine."' ".
"AND id_evnt='".$id_evnt."' ".
"AND niveau='".$niveau."' ".
"AND date_fin_manu>'".$debut."' ".
"AND date_debut_manu<'".$fin."' ".
"ORDER BY date_debut_manu;";
if ($db->Sql($SqlStatement))
{
print "SQL failed.\n";
print "Error: " . $db->Error() . "\n";
$db->Close();
exit;
}
while($db->FetchRow())
{
undef my %Data;
%Data = $db->DataHash();
push @result, [$Data{"date_debut_manu"},$Data{"date_fin_manu"}];
}
undef $SqlStatement;
print "$i \n";
}
$db->Close();
undef $db;
undef $dsn;
------------------------------
Date: Tue, 25 Mar 2003 09:21:02 +0100
From: Josef =?iso-8859-1?Q?M=F6llers?= <josef.moellers@fujitsu-siemens.com>
Subject: Re: News posts with attachments
Message-Id: <3E80116E.C8B7B096@fujitsu-siemens.com>
Bigus wrote:
> =
> Hi
> =
> If I download the message body of a news post, using NNTPClient module,=
and
> it has an attachment - for example a JPG image file or an M$ Word docum=
ent,
> how can I turn the attachment back into a proper file?
> =
> For example, here is the body of a message that had an image attached
> (between the dashed lines):
> =
> --------------------------
> here is my cat
> =
> [Image]
> =
> --------------------------
> =
> I presume there must be some generic way of doing it, since a newsreade=
r
> can't possibly have filters for every type of file in existance and yet=
any
> type of file attached to a message will show as an attachment, if you s=
ee
> what I mean.. is it somehow converting the file back into a binary form=
at?
> How could I do that in Perl?
I did exactly that.
I use external programs: munpack and ydecode. I just read the message
line-by-line and use patterns to detect which decode to use. Note that
munpack will be able to handle uuencoded files while not clobbering
existing files like uudecode will do.
-- =
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Mon, 24 Mar 2003 23:03:13 -0800
From: Jim Britain <jbritain@cox.net>
Subject: Re: nms formmail with file upload
Message-Id: <sfvv7vksbj02qajlj59vgkp127q3g16467@4ax.com>
On 23 Mar 2003 13:19:18 -0800, neilc252@yahoo.com (Neil C) wrote:
>TO All:
>
>I have been trying to get help in making my nms formmail have file
>upload attachments built in.
If you go back to the site that this script came from, there's another
script called TFMAIL , which includes a file upload that becomes an
attachment to the e-mail.
Google search for NMS will take you there.
------------------------------
Date: Tue, 25 Mar 2003 09:25:18 +0100
From: "Tore Aursand" <tore@aursand.no>
Subject: Re: pattern matching
Message-Id: <pan.2003.03.25.00.14.47.875218@aursand.no>
On Tue, 25 Mar 2003 01:12:16 +0100, Tore Aursand wrote:
> for ( @words ) {
> ...
> }
> }
Ehr. Only one ending bracket, of course.
--
Tore Aursand
------------------------------
Date: Tue, 25 Mar 2003 08:46:38 -0000
From: "Bigus" <somewhere@nowhere.com>
Subject: Re: Perl ODBC and SQL
Message-Id: <b5p51h$l54@newton.cc.rl.ac.uk>
Michael Budash wrote:
> In article <pan.2003.03.24.13.28.56.798267@aursand.no>,
> "Tore Aursand" <tore@aursand.no> wrote:
>
>> On Sun, 23 Mar 2003 11:34:08 +0000, Bigus wrote:
>>> Using Win32::ODBC, [...]
>>
>> You shouldn't; Go for DBI instead, using the DBD::ODBC driver. It's
>> easier to work with.
>>
>>> $db->Sql("SELECT * FROM userstable WHERE user = '$nickname' ORDER BY
>>> thedate DESC");
>>
>> Using DBI, you would be doing this instead;
>>
>> my $sth = $dbh->prepare('SELECT *
>> FROM userstable
>> WHERE user = ?
>> ORDER BY thedate DESC');
>> $sth->execute( $nickname );
>> # get your data here
>> $sth->finish();
>>
>>> Is there some sort of "escaping" I can do in Perl that might solve
>>> this, or any other remedy?
>>
>> In my example above, the DBI module takes care of all that for you
>> (as long as you bind the parameter in via the execute() method).
>
> or he can explicitly ask the DBI module to take care of it on a
> case-by-case basis:
>
> my $sth = $dbh->prepare('SELECT *
> FROM userstable
> WHERE user = ' . $dbh->quote($nickname) .
> ' ORDER BY thedate DESC');
>
> but placeholders do indeed rock, so your way is better in most
> cases...
Thanks guys. I'm going to do the switch over to DBI tonight and will use the
placeholders method. It doesn't look like I will need to change or add too
many lines, which is always nice :-)
Regards
Bigus
------------------------------
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.
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 4758
***************************************
