[28248] in Perl-Users-Digest
Perl-Users Digest, Issue: 9612 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 16 14:05:54 2006
Date: Wed, 16 Aug 2006 11:05:07 -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, 16 Aug 2006 Volume: 10 Number: 9612
Today's topics:
Help Perl and Excel--Multiposted me@davidfilmer.net
Workflow Systems--Multiposted me@davidfilmer.net
Re: Workflow Systems--Multiposted <rvtol+news@isolution.nl>
Re: Beginner: little rand() question in a long posting <tzz@lifelogs.com>
Re: Beginner: little rand() question in a long posting <mstep@t-online.de>
Conditional 'use' depending of a variable rather than a <ynleder@nspark.org>
Re: Conditional 'use' depending of a variable rather th <rvtol+news@isolution.nl>
Re: Conditional 'use' depending of a variable rather th <jurgenex@hotmail.com>
Re: Conditional 'use' depending of a variable rather th <mritty@gmail.com>
Re: Conditional 'use' depending of a variable rather th <sherm@Sherm-Pendleys-Computer.local>
Re: Conditional 'use' depending of a variable rather th <rvtol+news@isolution.nl>
Re: Conditional 'use' depending of a variable rather th <john@castleamber.com>
Re: Conditional 'use' depending of a variable rather th <sherm@Sherm-Pendleys-Computer.local>
Re: Conditional 'use' depending of a variable rather th <uri@stemsystems.com>
difference between print <<EOF ... and print qq(...) <lynn.newton@gmail.com>
Re: difference between print <<EOF ... and print qq(... <glennj@ncf.ca>
Re: difference between print <<EOF ... and print qq(... <nobull67@gmail.com>
Help Perl and Excel <shethaa2000@gmail.com>
Re: Help Perl and Excel <bik.mido@tiscalinet.it>
HOW to rename a NPH script ? <umu@hrz.tu-chemnitz.de>
Re: iterate the A B C <1usa@llenroc.ude.invalid>
Re: My multipost-detecting usenet bot (David Filmer) <nobody@dizum.com>
Re: My multipost-detecting usenet bot (David Filmer) <john@castleamber.com>
perldb -- spaces in parameters <avilella@gmail.com>
Re: Please participate in a non-profit academic researc (Randal L. Schwartz)
Pulling data based on date time returns error devon_banks@comcast.net
Re: Pulling data based on date time returns error <mritty@gmail.com>
Re: Pulling data based on date time returns error <nobull67@gmail.com>
Re: string and time question anno4000@radom.zrz.tu-berlin.de
Re: Workflow Systems--Multiposted usenet@DavidFilmer.com
Workflow Systems process.business@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 16 Aug 2006 08:29:21 -0500
From: me@davidfilmer.net
Subject: Help Perl and Excel--Multiposted
Message-Id: <FbednUqnvoIsgH7ZRVn_vA@giganews.com>
"Kahan" <shethaa2000@gmail.com> wrote:
>> [ snip multiposted message ]
This message has been multiposted as indicated by these message IDs:
<news:1155734886.904771.90710@m73g2000cwd.googlegroups.com>
<news:1155734715.639289.223700@p79g2000cwp.googlegroups.com>
Multiposting is generally considered impolite in usenet. For an
explanation, please see:
http://www.cs.tut.fi/~jkorpela/usenet/xpost.html
--
msg_hash: 88 - 6d4a723abc2990d7a0306c3a684f8a6b
------------------------------
Date: Wed, 16 Aug 2006 09:08:22 -0500
From: me@davidfilmer.net
Subject: Workflow Systems--Multiposted
Message-Id: <haqdndipjIVLu37ZRVn_vQ@giganews.com>
management.business@gmail.com wrote:
>> [ snip multiposted message ]
This message has been multiposted as indicated by these message IDs:
<news:1155737247.291882.82220@75g2000cwc.googlegroups.com>
<news:1155736963.037081.191580@74g2000cwt.googlegroups.com>
Multiposting is generally considered impolite in usenet. For an
explanation, please see:
http://www.cs.tut.fi/~jkorpela/usenet/xpost.html
--
msg_hash: 90 - 3e1a16ec5c8b91ecbca9aed6ef258738
------------------------------
Date: Wed, 16 Aug 2006 16:48:03 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Workflow Systems--Multiposted
Message-Id: <ebviq3.1c0.1@news.isolution.nl>
me@davidfilmer.net schreef:
> management.business:
>>> [ snip multiposted message ]
>
> This message has been multiposted as indicated by these message IDs:
> <news:1155737247.291882.82220@75g2000cwc.googlegroups.com>
> <news:1155736963.037081.191580@74g2000cwt.googlegroups.com>
>
> Multiposting is generally considered impolite in usenet. For an
> explanation, please see:
>
> http://www.cs.tut.fi/~jkorpela/usenet/xpost.html
I would learn the bot to only react on multi-postings limited to (for
example) the perl.* and comp.lang.*.
Most of the times there are exactly 2 postings, maybe use that too.
And increase the set of the newsgroups that it checks, to find out if
the same message is also posted outside the community.
This to minimize replies on spam.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Wed, 16 Aug 2006 10:39:47 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Beginner: little rand() question in a long posting ...
Message-Id: <g69hd0c68y4.fsf@CN1374059D0130.kendall.corp.akamai.com>
On 15 Aug 2006, mstep@t-online.de wrote:
> On 15.08.2006 19:00, in article
> g69odum6ijo.fsf@CN1374059D0130.kendall.corp.akamai.com, "Ted Zlatanov"
> <tzz@lifelogs.com> wrote:
>
>> I wanted to mention two things in addition to Paul Lalli's comments.
>>
>> First, you have "STATEMENT if $sum" many times. Just use one if:
>>
>> if ($sum)
>> {
>> a;
>> b;
>> c;
>> }
>>
>
> Yes you are right; this was to avoid the many " uninitialized values
> " in my shell! Thank you, spaciba bolshoi, Ted!
No problem. I hope you have fun learning Perl - I've been using it
for 10 years and I'm still learning...
>> $random_km = 1.5 + rand(0.3); # random between 1.5 and 1.7999...
>> Check out "perldoc -f rand" for more info.
> That's exactly I wanted to achieve!
I'm glad, I wasn't sure if I understood the original code well.
Ted
------------------------------
Date: Wed, 16 Aug 2006 19:22:21 +0200
From: Marek Stepanek <mstep@t-online.de>
Subject: Re: Beginner: little rand() question in a long posting ...
Message-Id: <C10920ED.2A430%mstep@t-online.de>
On 16.08.2006 16:39, in article
g69hd0c68y4.fsf@CN1374059D0130.kendall.corp.akamai.com, "Ted Zlatanov"
<tzz@lifelogs.com> wrote:
Thanks to all who responded, Ted, Mumia, Anno, Paul. I am grateful for your
welcome in this group :-)
There are many questions coming soon. I hope in a far future, I will be able
to give back the knowledge, which I learned from you.
greetings from Munich
marek
------------------------------
Date: Fri, 11 Aug 2006 12:29:27 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <MPG.1f467a6f4193abcd9898b0@news.tiscali.fr>
Hello. Does it exists a method to "include" a module depending of a
scalar value ?
When I want to include one depending of a constant value (i.e. a value
which already exist at compile-time), I do something like :
BEGIN{if (FLAG){require Thing; import Thing qw(trick dummy);}}
But what if the constant FLAG becomes a variable $FLAG ? A code like
this same above (replacing FLAG with $FLAG) dives a ligitimate "use of
uninitialized value...", just because $FLAG is only initialized at
runtime)
Is there a way to achieve this : conditional "use" of a module based on
a variable value ?
------------------------------
Date: Wed, 16 Aug 2006 15:23:49 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <ebvdae.110.1@news.isolution.nl>
Yohan N. Leder schreef:
> conditional "use" of a module based on a variable value ?
See `perldoc if`.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Wed, 16 Aug 2006 13:43:41 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <hiFEg.12751$Z1.9421@trnddc03>
Dr.Ruud wrote:
> Yohan N. Leder schreef:
>
>> conditional "use" of a module based on a variable value ?
>
> See `perldoc if`.
Maybe you have a different version of perl, but I am getting
No documentation found for "if".
Besides, "use" is executed at compile time. If you want to make it dependent
on the value of a variable, then you have to delay the import until runtime
because (typically) you won't know the value of the variable until runtime.
I think the OP is actually looking for the documentation of use()
(perldoc -f use) where the behaviour of use() is described in detail.
jue
------------------------------
Date: 16 Aug 2006 06:50:22 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <1155736221.982792.299640@75g2000cwc.googlegroups.com>
J=FCrgen Exner wrote:
> Dr.Ruud wrote:
> > Yohan N. Leder schreef:
> >
> >> conditional "use" of a module based on a variable value ?
> >
> > See `perldoc if`.
>
> Maybe you have a different version of perl, but I am getting
> No documentation found for "if".
http://search.cpan.org/~ilyaz/if-0.0401/if.pm
http://perldoc.perl.org/if.html
> Besides, "use" is executed at compile time. If you want to make it depend=
ent
> on the value of a variable, then you have to delay the import until runti=
me
> because (typically) you won't know the value of the variable until runtim=
e=2E
This, however, is still true.
Paul Lalli
------------------------------
Date: Wed, 16 Aug 2006 10:22:46 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <m2oduk3gll.fsf@Sherm-Pendleys-Computer.local>
Yohan N. Leder <ynleder@nspark.org> writes:
> Hello. Does it exists a method to "include" a module depending of a
> scalar value ?
>
> When I want to include one depending of a constant value (i.e. a value
> which already exist at compile-time), I do something like :
>
> BEGIN{if (FLAG){require Thing; import Thing qw(trick dummy);}}
>
> But what if the constant FLAG becomes a variable $FLAG ? A code like
> this same above (replacing FLAG with $FLAG) dives a ligitimate "use of
> uninitialized value...", just because $FLAG is only initialized at
> runtime)
The BEGIN above is what forces the require to execute at compile-time -
that and calling import() is the difference between require and use. Use
executes at compile-time and calls import(), while require does not.
So the answer is simple: If you don't want to call require() at compile-
time, then don't call require() at compile-time. :-)
Also, if you want to optionally use a module if it's available, and simply
set a flag if it's not, you can wrap the require in a block eval to trap
errors.
unless (eval {
if (FLAG) {
require Thing;
import Thing qw(trick dummy);
}
}) {
die "Thing could not be required: $@";
}
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Wed, 16 Aug 2006 16:36:52 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <ebvhku.128.1@news.isolution.nl>
Yohan N. Leder schreef:
> Hello. Does it exists a method to "include" a module depending of a
> scalar value ?
Not an answer to that question, but maybe
http://perldoc.perl.org/autouse.html
can do what you need.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 16 Aug 2006 17:08:42 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <Xns98217B8971A80castleamber@130.133.1.4>
Sherm Pendley <sherm@Sherm-Pendleys-Computer.local> wrote:
> Also, if you want to optionally use a module if it's available, and
> simply set a flag if it's not, you can wrap the require in a block
> eval to trap errors.
>
> unless (eval {
> if (FLAG) {
> require Thing;
> import Thing qw(trick dummy);
> }
> }) {
> die "Thing could not be required: $@";
> }
Uhm how about:
if ( $flag ) {
eval "use Thing qw(trick dummy)";
$@ and die $@;
}
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: Wed, 16 Aug 2006 13:35:28 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <m2hd0c37of.fsf@Sherm-Pendleys-Computer.local>
John Bokma <john@castleamber.com> writes:
> Sherm Pendley <sherm@Sherm-Pendleys-Computer.local> wrote:
>
>> Also, if you want to optionally use a module if it's available, and
>> simply set a flag if it's not, you can wrap the require in a block
>> eval to trap errors.
>>
>> unless (eval {
>> if (FLAG) {
>> require Thing;
>> import Thing qw(trick dummy);
>> }
>> }) {
>> die "Thing could not be required: $@";
>> }
>
>
> Uhm how about:
>
> if ( $flag ) {
>
> eval "use Thing qw(trick dummy)";
> $@ and die $@;
> }
Just as good. I generally avoid string eval() when possible, but that's
just a matter of personal preference and habit.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Wed, 16 Aug 2006 13:29:45 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Conditional 'use' depending of a variable rather than a constant ?
Message-Id: <x7psf0k2ra.fsf@mail.sysarch.com>
>>>>> "JB" == John Bokma <john@castleamber.com> writes:
JB> Sherm Pendley <sherm@Sherm-Pendleys-Computer.local> wrote:
>> Also, if you want to optionally use a module if it's available, and
>> simply set a flag if it's not, you can wrap the require in a block
>> eval to trap errors.
>>
>> unless (eval {
>> if (FLAG) {
>> require Thing;
>> import Thing qw(trick dummy);
>> }
>> }) {
>> die "Thing could not be required: $@";
>> }
JB> Uhm how about:
JB> if ( $flag ) {
JB> eval "use Thing qw(trick dummy)";
JB> $@ and die $@;
JB> }
unless that is in a BEGIN block those exported subs will not be seen by
the compiler and so will be useless. in that case you might as well call
require which is what i do for runtime loaded plugins which must be OO
so they don't need to export symbols.
the whole issue of conditional compile time exporting is tricky and i
suspect is actually rarely needed. by using OO design you can do the
loading at runtime as i mentioned. or if you must do it at compile time
use the if pragma or do it in a BEGIN block. and you really have to
justify that craziness to me. i just would rather design code that
didn't need that.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 16 Aug 2006 10:16:25 -0700
From: "lynn.newton@gmail.com" <lynn.newton@gmail.com>
Subject: difference between print <<EOF ... and print qq(...)
Message-Id: <1155748584.907684.281860@b28g2000cwb.googlegroups.com>
There is a question at the end of this, but bear with me while I
present a little background explaining why the question
came up.
Years ago I became aware that in the Bourne shell using this
syntax:
cat <<EOF
$something
EOF
resulted in creating of a temporary file in /tmp with the text
in it. I doubtthat in today's world of abundant memory that this
is still true in any standard Unix or Linux shell, but as long as it
was, using that syntax resulted in the overheadof undesireable
disk activity that probably most people never knew about.
In Perl, of course one may use similar syntax:
print <<EOF;
$something
EOF
which can be useful particularly if $something is long and
contains formatting,such as in returning HTML code to a browser.
So what I am wondering is whether anyone knows the technical
difference of what goes on internally whether I choose to use:
print qq($something);
versus
print <<EOF;
$something
EOF
I certainly believe Perl does not use temporary disk files.
But intuitively, I am inclined to use the quoted style rather
than <<EOF here documents wherever I can.
------------------------------
Date: 16 Aug 2006 17:48:18 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: difference between print <<EOF ... and print qq(...)
Message-Id: <slrnee6mj2.2a3.glennj@smeagol.ncf.ca>
At 2006-08-16 01:16PM, "lynn.newton@gmail.com" wrote:
> So what I am wondering is whether anyone knows the technical
> difference of what goes on internally whether I choose to use:
>
> print qq($something);
>
> versus
>
> print <<EOF;
> $something
> EOF
The heredoc version will add a trailing newline.
--
Glenn Jackman
Ulterior Designer
------------------------------
Date: 16 Aug 2006 10:51:25 -0700
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: difference between print <<EOF ... and print qq(...)
Message-Id: <1155750685.123891.86200@i3g2000cwc.googlegroups.com>
lynn.newton@gmail.com wrote:
> So what I am wondering is whether anyone knows the technical
> difference of what goes on internally whether I choose to use:
>
> print qq($something);
>
> versus
>
> print <<EOF;
> $something
> EOF
>
> I certainly believe Perl does not use temporary disk files.
> But intuitively, I am inclined to use the quoted style rather
> than <<EOF here documents wherever I can.
There's very little difference, indeed Perl's here docs are classed as
(and documented as) a quoting style. You can have both interpolating
and non interploating here-docs.
One small point, I think the content of a here-doc quoted string
necessarily ends with a "\n".
------------------------------
Date: 16 Aug 2006 06:28:06 -0700
From: "Kahan" <shethaa2000@gmail.com>
Subject: Help Perl and Excel
Message-Id: <1155734886.904771.90710@m73g2000cwd.googlegroups.com>
Hi,
I have an excel file and want to read this file using Perl in cygwin.
and i want to write data in txt file
Excel file format
1100028 : /////// : ///////
1100028 : ///==== : /////////
1100030 : ///// : ///////
1100031 : ///// : /////
Ouput File Should look like
1100028:3:7:7:3:7:7:7
1100030:2:5:5:7:7
1100031:1:5:5
above means
for 1100028, there are 3 pairs with min and max values and for 1100030,
there are 2 paris with min and max values, for 1100031, there is 1 pair
with min and max values.
Can anybody help pls
u can contact me shethaas@yahoo.com
------------------------------
Date: 16 Aug 2006 16:29:41 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Help Perl and Excel
Message-Id: <ona6e258lc1e2qk487vpa7gg3ptsti7igb@4ax.com>
On 16 Aug 2006 06:28:06 -0700, "Kahan" <shethaa2000@gmail.com> wrote:
>Subject: Help Perl and Excel
I prefer to help Perl rather than Excel, if possible...
>I have an excel file and want to read this file using Perl in cygwin.
>and i want to write data in txt file
For some reason I fail to see where the code you posted may be wrong.
A CPAN search like <http://search.cpan.org/search?query=excel> seems
to return many interesting items, though. And this may help...
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, 16 Aug 2006 18:58:36 +0200
From: Ulrich Mueller <umu@hrz.tu-chemnitz.de>
Subject: HOW to rename a NPH script ?
Message-Id: <Pine.LNX.4.64.0608161856130.2889@herein.hrz.tu-chemnitz.de>
Hallo,
I've a NPH perl CGI under apache
let's say `nph-test.cgi`:
#!/usr/bin/perl
print "HTTP/1.1 200 OK\nContent-Type: text/html\n\nHALLO\n";
print "we're ".(exists $ENV{MOD_PERL}?"":"NOT ")."under mod_perl";
1;
and want to rename it to `hallo`
without `nph-` prefix.
What possibilities I have to tell apache,
that this is still an nph script,
either with mod_perl or not,
via (preferably) changing code itself or local .htaccess
(so ScriptAlias doesn't work),
I tried a lot, $|=1, symbolic links, or
SetHandler perl-script
PerlResponseHandler ModPerl::Registry
PerlSendHeader Off
PerlOptions -ParseHeaders
Options +ExecCGI
or
RewriteEngine On
RewriteBase /cgi-bin
RewriteRule ^hallo$ nph-test.cgi
or searching the web, no succeeding until now :(
Thanks for your help,
Ulrich
------------------------------
Date: Wed, 16 Aug 2006 13:12:18 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: iterate the A B C
Message-Id: <Xns98215DBE07ACFasu1cornelledu@127.0.0.1>
"a" <a@mail.com> wrote in news:WDEEg.407085$iF6.218295@pd7tw2no:
>
> <anno4000@radom.zrz.tu-berlin.de> ¼¶¼g©ó¶l¥ó·s»D
>:4kg8eeFbtfq9U2@news.dfncis.de...
>> ilany <ilan.yaniv@gmail.com> wrote in comp.lang.perl.misc:
...
> > No need for further assistance.
>>
>> Oh yes, there is.
>>
>> > I got it:
>> >
>> > print "All Letters\n";
>> > for $list(C..Z) {
>> > print "$list\n";
>> > }
>>
>> You're running without strict and warnings. The variable $list
>> should be declared lexical. C and Z shouldn't be barewords.
>> Code in blocks should be indented.
...
> I would like to iterate multiple set of characters. That is,
> a..z, A..Z, 0..9
> so how can I do the following?
> for $list(A..Z and a..z and 0..9){
> print "$list\n";
> }
#!/usr/bin/perl
use strict;
use warnings;
print for 'A' .. 'Z', 'a' ... 'z', '0' ... '9';
print "\n";
__END__
perldoc perlop
Read "Range Operators" and "Comma Operator"
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Wed, 16 Aug 2006 16:40:29 +0200 (CEST)
From: Nomen Nescio <nobody@dizum.com>
Subject: Re: My multipost-detecting usenet bot (David Filmer)
Message-Id: <eccf94ef3df248e68707d39c1260e078@dizum.com>
usenet@DavidFilmer.com wrote:
> (Note: This message is crossposted to the following newsgroups, as
> these groups are affected by the subject bot: comp.lang.perl.misc,
> perl.beginners, comp.lang.perl.modules, perl.dbi.users,
> perl.beginners.cgi, alt.perl)
>
> Greetings. As many of you are doubtless aware, I recently wrote and
> deployed a usenet 'bot which identifies multiposted messages. After
> manually flagging such messages for some time, it occurred to me that I
> could let Perl do the work for me, and laziness took over.
Are you competing against Alan Connor for netkook status?
Maybe your bot should say <article not downloaded> before all the
# BLOCKS OF TEXT #.
If multiposts offend you, why don't you just ignore them like the
rest of us?
------------------------------
Date: 16 Aug 2006 17:04:28 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: My multipost-detecting usenet bot (David Filmer)
Message-Id: <Xns98217AD121317castleamber@130.133.1.4>
David,
Two remarks:
1 - My Usenet client shows your bot's post as a new post instead
of a follow up to the original multipost. No idea if this is a bug
in my client, but if not, can this be fixed?
2 - Yesterday a fine example of one of my worries popped up: I saw
a post as a reply to a cancelled spam message. The problem is
that there is some time between spam being posted and the cancel,
so your bot might reply to each multiposted spam message.
Maybe a solution might be to scan the multipost for some keywords.
If they don't show up, don't let your bot post.
See also Dr. Ruud's reply, <ebviq3.1c0.1@news.isolution.nl> which is a
reply to your bot replying to, again, a cancelled spam message.
Personally I again strongly advice to stop the bot until at least some
kind of voting has taken place. It still generates more posts then it
"prevents" at the moment.
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: 16 Aug 2006 08:50:56 -0700
From: "avilella@gmail.com" <avilella@gmail.com>
Subject: perldb -- spaces in parameters
Message-Id: <1155743454.753412.146090@h48g2000cwc.googlegroups.com>
Hi all,
I was wondering if anyone figured out a way to call Emacs perldb with
parameters that have spaces. For example:
M-x perldb
Run perldb (like this): perl script.pl -i "my parameter"
----
[...]
use Getopt::Long;
GetOptions(
'i:s' => \$i
);
[...]
----
I always get '"my' instead of "my parameter" when running perldb,
whereas it works on the command-line.
Anyone?
Thanks,
Albert.
------------------------------
Date: 16 Aug 2006 07:05:16 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
To: "Lillian" <liberty336@gmail.com>
Subject: Re: Please participate in a non-profit academic research
Message-Id: <86irkssrmr.fsf@blue.stonehenge.com>
>>>>> "Lillian" == Lillian <liberty336@gmail.com> writes:
Lillian> Dear all:
Please to not be spammink random groups.
What you've done is the same as someone walking in to a movie theatre
while the movie is on, and shouting "by the way, if any of you would
like to take a survey, I'll be in the lobby".
You can't post to a group "simply because it's there". Well, not and
have a conscience, or be highly uneducated. I hope I've educated you.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 16 Aug 2006 10:41:08 -0700
From: devon_banks@comcast.net
Subject: Pulling data based on date time returns error
Message-Id: <1155750068.759553.180420@74g2000cwt.googlegroups.com>
Data is stored in MySQL as '2006-07-14 13:44:13'
Select Result from DataListing where
InputDate = "2006-07-14 13:44:13"
having count(*) > 1;
DBD::mysql::st execute failed: You have an error in your SQL syntax;
check the manual that corresponds to your MySQL server version for the
right syntax to use near '"Select Result from DataListing where
InputDate = "2006-07-14 13:' at line 1 at
copiesinDATA.pl line 29.
------------------------------
Date: 16 Aug 2006 10:45:50 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Pulling data based on date time returns error
Message-Id: <1155750350.572010.129310@m73g2000cwd.googlegroups.com>
devon_ba...@comcast.net wrote:
> Data is stored in MySQL as '2006-07-14 13:44:13'
>
> Select Result from DataListing where
> InputDate = "2006-07-14 13:44:13"
> having count(*) > 1;
>
> DBD::mysql::st execute failed: You have an error in your SQL syntax;
> check the manual that corresponds to your MySQL server version for the
> right syntax to use near '"Select Result from DataListing where
> InputDate = "2006-07-14 13:' at line 1 at
> copiesinDATA.pl line 29.
What exactly is your Perl question? You have an SQL syntax error.
Take that SQL statement and use it in MySQL's native interphase. What
results do you get?
Paul Lalli
------------------------------
Date: 16 Aug 2006 10:46:58 -0700
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: Pulling data based on date time returns error
Message-Id: <1155750418.107078.62340@i3g2000cwc.googlegroups.com>
devon_ba...@comcast.net wrote:
> Data is stored in MySQL as '2006-07-14 13:44:13'
>
> Select Result from DataListing where
> InputDate = "2006-07-14 13:44:13"
> having count(*) > 1;
>
> DBD::mysql::st execute failed: You have an error in your SQL syntax;
> check the manual that corresponds to your MySQL server version for the
> right syntax to use near '"Select Result from DataListing where
> InputDate = "2006-07-14 13:' at line 1 at
> copiesinDATA.pl line 29.
I would guess that you have an error in your SQL syntax; check the
manual that corresponds to your MySQL server version for the right
syntax.
BTW, this has nothing to do with Perl.
Random short in the dark: standard SQL uses single not double quotes.
Random short in the dark: Your "having" clause looks odd. There's no
"group by".
------------------------------
Date: 16 Aug 2006 13:31:04 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: string and time question
Message-Id: <4kgl0oFbnjhsU1@news.dfncis.de>
Jürgen Exner <jurgenex@hotmail.com> wrote in comp.lang.perl.misc:
> Auto-increment works on strings jsut fine:
^^^^ <-----+
|
|
Hey! ----------------------------+
Anno
------------------------------
Date: 16 Aug 2006 10:43:24 -0700
From: usenet@DavidFilmer.com
Subject: Re: Workflow Systems--Multiposted
Message-Id: <1155747545.936076.224250@h48g2000cwc.googlegroups.com>
Dr.Ruud wrote:
> This to minimize replies on spam.
Hmmm. Spam almost always has a web URL in it. I don't remember ever
seeing a newbie multipost that contained an URL. Looking for a web URL
in the message body might be a more reliable filter to avoid responding
to spam.
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 16 Aug 2006 07:02:43 -0700
From: process.business@gmail.com
Subject: Workflow Systems
Message-Id: <1155736963.037081.191580@74g2000cwt.googlegroups.com>
Workflow Systems
Workflow is an essential element of business process management (BPM).
http://flying-rugs.com/business-process-management/Workflow.html
------------------------------
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 9612
***************************************
