[30262] in Perl-Users-Digest
Perl-Users Digest, Issue: 1505 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 3 03:09:47 2008
Date: Sat, 3 May 2008 00:09:12 -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 Sat, 3 May 2008 Volume: 11 Number: 1505
Today's topics:
Re: Help: Reverse Letters <kkeller-usenet@wombat.san-francisco.ca.us>
new CPAN modules on Sat May 3 2008 (Randal Schwartz)
Perl 6 (was Re: Will Perl 6 be usable as a procedure la <benkasminbullock@gmail.com>
Re: Perl 6 <uri@stemsystems.com>
Re: Perl 6 <uri@stemsystems.com>
Re: Perl 6 <benkasminbullock@gmail.com>
Re: Perl 6 <benkasminbullock@gmail.com>
Re: Perl 6 <uri@stemsystems.com>
Re: Perl 6 <uri@stemsystems.com>
Perl OLE Excel - STDEVA function <slick.users@gmail.com>
Re: Perl OLE Excel - STDEVA function <benkasminbullock@gmail.com>
Re: Perl OLE Excel - STDEVA function <slick.users@gmail.com>
Re: Read 20 lines when pressing n for next <uri@stemsystems.com>
Re: Read 20 lines when pressing n for next <get@bentsys.com>
Re: Read 20 lines when pressing n for next <uri@stemsystems.com>
Re: Regex for "at start of line OR preceded by space". <lonewolf@well.com>
Re: Regex for "at start of line OR preceded by space". <lonewolf@well.com>
Re: Regex for "at start of line OR preceded by space". <lonewolf@well.com>
Re: Regex for "at start of line OR preceded by space". <lonewolf@well.com>
Re: Will Perl 6 be usable as a procedure language? <brian.d.foy@gmail.com>
Re: Will Perl 6 be usable as a procedure language? <brian.d.foy@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 2 May 2008 20:40:29 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Help: Reverse Letters
Message-Id: <ee3te5xest.ln2@goaway.wombat.san-francisco.ca.us>
On 2008-05-02, Amy Lee <openlinuxsource@gmail.com> wrote:
>
> There's a problem while I'm processing sequences. My file content.
If you're processing FASTA files, why aren't you using BioPerl, as
others have already advised you to do? BioPerl would parse your file
for you, so that you could retrieve it as a scalar directly instead of
parsing the file yourself.
--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: Sat, 3 May 2008 04:42:18 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat May 3 2008
Message-Id: <K09zqI.H1@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Catalyst-Action-RenderView-0.08
http://search.cpan.org/~mramberg/Catalyst-Action-RenderView-0.08/
Sensible default end action.
----
Catalyst-Plugin-ConfigLoader-0.20
http://search.cpan.org/~bricas/Catalyst-Plugin-ConfigLoader-0.20/
Load config files of various types
----
Catalyst-Plugin-InflateMore-0.1.6
http://search.cpan.org/~pjfl/Catalyst-Plugin-InflateMore-0.1.6/
Inflates symbols in application config
----
DBD-Pg-2.6.4
http://search.cpan.org/~turnstep/DBD-Pg-2.6.4/
PostgreSQL database driver for the DBI module
----
DbFramework-1.12
http://search.cpan.org/~imacat/DbFramework-1.12/
----
Devel-Messenger-0.02
http://search.cpan.org/~kolibrie/Devel-Messenger-0.02/
Let Your Code Talk to You
----
Encode-ZapCP1252-0.02
http://search.cpan.org/~dwheeler/Encode-ZapCP1252-0.02/
Zap Windows Western Gremlins
----
Encode-ZapCP1252-0.10
http://search.cpan.org/~dwheeler/Encode-ZapCP1252-0.10/
Zap Windows Western Gremlins
----
FSA-Rules-0.27
http://search.cpan.org/~dwheeler/FSA-Rules-0.27/
Build simple rules-based state machines in Perl
----
Gtk2-Ex-WidgetCursor-1
http://search.cpan.org/~kryde/Gtk2-Ex-WidgetCursor-1/
mouse pointer cursor management for widgets
----
JS-YUI-Loader-0.04
http://search.cpan.org/~rkrimen/JS-YUI-Loader-0.04/
Load (and cache) the Yahoo YUI framework
----
Lingua-Strfname-0.11
http://search.cpan.org/~dwheeler/Lingua-Strfname-0.11/
Formats people's names
----
MojoMojo-0.999014
http://search.cpan.org/~mramberg/MojoMojo-0.999014/
A Catalyst & DBIx::Class powered Wiki.
----
MooseX-MetaDescription-0.01
http://search.cpan.org/~stevan/MooseX-MetaDescription-0.01/
A framework for adding additional metadata to Moose classes
----
Muldis-D-0.28.0
http://search.cpan.org/~duncand/Muldis-D-0.28.0/
Formal spec of Muldis D relational DBMS lang
----
Pg-Pcurse-0.06
http://search.cpan.org/~ioannis/Pg-Pcurse-0.06/
Monitors a Postgres cluster
----
Pod-Perldoc-3.14_06
http://search.cpan.org/~ferreira/Pod-Perldoc-3.14_06/
----
Rose-DBx-Object-Renderer-0.05
http://search.cpan.org/~danny/Rose-DBx-Object-Renderer-0.05/
Web UI Rendering for Rose::DB::Object
----
Sub-Prototype-Util-0.08
http://search.cpan.org/~vpit/Sub-Prototype-Util-0.08/
Prototype-related utility routines.
----
Test-CheckChanges-0.01
http://search.cpan.org/~gam/Test-CheckChanges-0.01/
Check that the Chages file matches the distrobution.
----
Test-CheckChanges-0.02
http://search.cpan.org/~gam/Test-CheckChanges-0.02/
Check that the Changes file matches the distribution.
----
Text-CSV-1.05
http://search.cpan.org/~makamaka/Text-CSV-1.05/
comma-separated values manipulator (using XS or PurePerl)
----
WWW-Blogger-2008.0502
http://search.cpan.org/~ermeyers/WWW-Blogger-2008.0502/
Blogger Development Interface (BDI)
----
WWW-Favicon-0.03
http://search.cpan.org/~typester/WWW-Favicon-0.03/
perl module to detect favicon url
----
WebService-Recruit-Shingaku-0.0.1
http://search.cpan.org/~mtl/WebService-Recruit-Shingaku-0.0.1/
An Interface for Recruit Shingaku net Web Service
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 3 May 2008 01:18:13 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Perl 6 (was Re: Will Perl 6 be usable as a procedure language?)
Message-Id: <fvgegl$qqf$1@ml.accsnet.ne.jp>
On Fri, 02 May 2008 15:22:51 +0000, Uri Guttman wrote:
>>>>>> "BB" == Ben Bullock <benkasminbullock@gmail.com> writes:
>
> BB> Uri Guttman <uri@stemsystems.com> wrote:
> >> the albatross of true backwards compatibility is what has kept x86
> >> and redmond so 'backwards' for decades.
>
> BB> But backwards-compatibility-albatross-less Perl 6 has been under
> BB> development for eight years, which is getting on for one decade.
>
> if any of you would actually follow the perl6 lists you would understand
> why it is slow going.
It would be nice to have some kind of information from the front line,
without having to trawl through endless technical complexities on mailing
list archives. If nobody has enough of an overall grasp of its progress
that they can summarize it, that in itself is rather worrying. Also the
fact that you adopt an aggressive tone when asked about progress tends to
indicate that something is going wrong.
> also there is no corporate or financial backing
> and it is all volunteer work.
Just like the Linux kernel, Apache web server, Perl 5, Gnome, Gimp,
Inkscape, Pan newsreader, GNU Emacs, etc., just to mention a few things
to hand. As far as I know, none of these things have had corporate or
financial backing either. That argument seems like a red herring.
> it is a complex but very powerful lang and
> its design (and implementation which is separate from parrot) is not a
> trival thing.
This kind of talking reminds me very much of the comments around the GNU
Hurd kernel project ten years ago.
> i prefer to let it gestate at its own rate and be patient.
> no one expects it out by christmas and no one claims otherwise.
A lot of the web pages on Perl 6 date from four or more years ago, and
yet their tone is "Perl 6 is going to ...". The implication is that Perl
6 is something we can expect to see soon, and yet those pages are fairly
old. If those people thought Perl 6 would be ready soon, and it wasn't,
I'm curious to know what happened.
------------------------------
Date: Sat, 03 May 2008 04:08:39 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Perl 6
Message-Id: <x77iecf2rd.fsf@mail.sysarch.com>
>>>>> "BB" == Ben Bullock <benkasminbullock@gmail.com> writes:
BB> On Fri, 02 May 2008 15:22:51 +0000, Uri Guttman wrote:
>>>>>>> "BB" == Ben Bullock <benkasminbullock@gmail.com> writes:
>>
BB> Uri Guttman <uri@stemsystems.com> wrote:
>> >> the albatross of true backwards compatibility is what has kept x86
>> >> and redmond so 'backwards' for decades.
>>
BB> But backwards-compatibility-albatross-less Perl 6 has been under
BB> development for eight years, which is getting on for one decade.
>>
>> if any of you would actually follow the perl6 lists you would understand
>> why it is slow going.
BB> It would be nice to have some kind of information from the front line,
BB> without having to trawl through endless technical complexities on mailing
BB> list archives. If nobody has enough of an overall grasp of its progress
BB> that they can summarize it, that in itself is rather worrying. Also the
BB> fact that you adopt an aggressive tone when asked about progress tends to
BB> indicate that something is going wrong.
>> also there is no corporate or financial backing
>> and it is all volunteer work.
BB> Just like the Linux kernel, Apache web server, Perl 5, Gnome, Gimp,
BB> Inkscape, Pan newsreader, GNU Emacs, etc., just to mention a few things
BB> to hand. As far as I know, none of these things have had corporate or
BB> financial backing either. That argument seems like a red herring.
the linux kernel has tons of commercial support from many companies such
as ibm and red hat. the apache foundation gets lots of corporate
money. many gnu projects have commercial backing (gcc among
others). perl5 has some financial support but it hasn't had much large
corporate due to the lack of a proper foundation (which was only started
recently). so please get your facts straight. many other open source
projects have a fair amount of donated money and labor. there is some
financial support for perl6 via TPF and microgrants. in fact the mozilla
foundation (another project with plenty of corporate support) is one of
the sponsors of perl6 development ( see
http://www.perlfoundation.org/perl6/index.cgi?perl_6_people)
>> it is a complex but very powerful lang and
>> its design (and implementation which is separate from parrot) is not a
>> trival thing.
BB> This kind of talking reminds me very much of the comments around the GNU
BB> Hurd kernel project ten years ago.
which never got near the current level of perl6/parrot in terms of
reality and release. parrot is released monthly with notable
progress. perl6 has several compiler front ends and back ends to play with.
>> i prefer to let it gestate at its own rate and be patient.
>> no one expects it out by christmas and no one claims otherwise.
BB> A lot of the web pages on Perl 6 date from four or more years ago,
BB> and yet their tone is "Perl 6 is going to ...". The implication is
BB> that Perl 6 is something we can expect to see soon, and yet those
BB> pages are fairly old. If those people thought Perl 6 would be
BB> ready soon, and it wasn't, I'm curious to know what happened.
so join the perl6 lang list and ask.
the official wiki which is much more recent and is generally active is at:
http://www.perlfoundation.org/perl6/index.cgi
plenty to read there. no need to clutter up this group with perl6 talk.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Sat, 03 May 2008 04:15:12 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Perl 6
Message-Id: <x73ap0f2gf.fsf@mail.sysarch.com>
>>>>> "BB" == Ben Bullock <benkasminbullock@gmail.com> writes:
BB> It would be nice to have some kind of information from the front
BB> line, without having to trawl through endless technical
BB> complexities on mailing list archives. If nobody has enough of an
BB> overall grasp of its progress that they can summarize it, that in
BB> itself is rather worrying. Also the fact that you adopt an
BB> aggressive tone when asked about progress tends to indicate that
BB> something is going wrong.
BB> This kind of talking reminds me very much of the comments around
BB> the GNU Hurd kernel project ten years ago.
in another post i pointed you to the perl6 wiki. and its FUD FAQ page
will answer most of your negative questions:
http://www.perlfoundation.org/perl6/index.cgi?fud
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Sat, 3 May 2008 05:05:06 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Perl 6
Message-Id: <fvgrq1$ei$1@ml.accsnet.ne.jp>
On Sat, 03 May 2008 04:08:39 +0000, Uri Guttman wrote:
> >> also there is no corporate or financial backing and it is all
> >> volunteer work.
You state above "there is no corporate or financial backing", then you go
on to state
> there is some financial support for
> perl6 via TPF and microgrants. in fact the mozilla foundation (another
> project with plenty of corporate support) is one of the sponsors of
> perl6 development
> BB> This kind of talking reminds me very much of the comments around
> the GNU BB> Hurd kernel project ten years ago.
>
> which never got near the current level of perl6/parrot in terms of
> reality and release. parrot is released monthly with notable progress.
> perl6 has several compiler front ends and back ends to play with.
The GNU Hurd was in fact released & I believe the project still exists. I
don't know anything about the details of it, but I remember reading
things about it which really remind me of Perl 6: "this is very difficult
to implement but when it's finished it will be incredibly good, much
better than any other operating system kernel" etc.
> plenty to read there. no need to clutter up this group with perl6 talk.
It seems to me more like you're being evasive than worrying about clutter.
------------------------------
Date: Sat, 3 May 2008 05:28:47 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Perl 6
Message-Id: <fvgt6f$ei$2@ml.accsnet.ne.jp>
On Sat, 03 May 2008 04:15:12 +0000, Uri Guttman wrote:
> in another post i pointed you to the perl6 wiki. and its FUD FAQ page
> will answer most of your negative questions:
>
> http://www.perlfoundation.org/perl6/index.cgi?fud
Thank you, but I have seen that page before, and it and many similar web
pages are exactly what scares me about Perl 6. It's the Hans Reiser
defence, the "if I think of enough excuses, people are bound to believe
it" method of defending a project. Why would anyone need to write a page
like that, unless things actually were going wrong? The problem for Hans
Reiser was that the more excuses he made, the worse he made himself look.
In the end he was convicted based more on his bizarre excuses than
anything else. Perl 6 has a similar problem, the people who try to defend
it are making it look worse.
------------------------------
Date: Sat, 03 May 2008 06:24:00 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Perl 6
Message-Id: <x7od7ndhxb.fsf@mail.sysarch.com>
>>>>> "BB" == Ben Bullock <benkasminbullock@gmail.com> writes:
BB> On Sat, 03 May 2008 04:08:39 +0000, Uri Guttman wrote:
>> >> also there is no corporate or financial backing and it is all
>> >> volunteer work.
BB> You state above "there is no corporate or financial backing", then you go
BB> on to state
>> there is some financial support for
>> perl6 via TPF and microgrants. in fact the mozilla foundation (another
>> project with plenty of corporate support) is one of the sponsors of
>> perl6 development
nothing compared to the larger foundations i mentioned. mozilla and
apache have sponsored or donated full time developers working for
them. tpf and perl6 have nothing like that. so of course work on perl6
is slower than those. and in many ways perl6 is much more complex than
mozilla or apache. those don't have nearly the theoretical issues than a
cutting edge language has.
BB> It seems to me more like you're being evasive than worrying about clutter.
huh? i pointed you to the wiki. how is that evasive? go read it and the
tons of perl6 material it links to. no need to bother this group.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Sat, 03 May 2008 06:26:18 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Perl 6
Message-Id: <x7k5ibdhth.fsf@mail.sysarch.com>
>>>>> "BB" == Ben Bullock <benkasminbullock@gmail.com> writes:
BB> On Sat, 03 May 2008 04:15:12 +0000, Uri Guttman wrote:
>> in another post i pointed you to the perl6 wiki. and its FUD FAQ page
>> will answer most of your negative questions:
>>
>> http://www.perlfoundation.org/perl6/index.cgi?fud
BB> Thank you, but I have seen that page before, and it and many
BB> similar web pages are exactly what scares me about Perl 6. It's
BB> the Hans Reiser defence, the "if I think of enough excuses, people
BB> are bound to believe it" method of defending a project. Why would
BB> anyone need to write a page like that, unless things actually were
BB> going wrong? The problem for Hans Reiser was that the more excuses
BB> he made, the worse he made himself look. In the end he was
BB> convicted based more on his bizarre excuses than anything
BB> else. Perl 6 has a similar problem, the people who try to defend
BB> it are making it look worse.
you are declaring yourself to be a fool with that statement. do you know
larry wall or damian conway and others to be making excuses? please shut
up before we drop the assumption of foolishness and label it a fact. i
know many of the perl6 developers personally and what you said is
insulting to them. also none of them are convicted murderers AFAIK.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Fri, 2 May 2008 17:25:22 -0700 (PDT)
From: Slickuser <slick.users@gmail.com>
Subject: Perl OLE Excel - STDEVA function
Message-Id: <5650ca78-6c87-4bd8-a815-234675daf942@b64g2000hsa.googlegroups.com>
I try to calculate the standard deviation of average of C2:C35.
But I get random range in the worksheet G$i. It's not showing as:
D2 =STDEVA(C2:C35,D2)
D3 =STDEVA(C2:C35,D3)
.....
It's showing as:
D2 =STDEVA(C2:C35,D2)
D3 =STDEVA(C2:C31,D3)
D4 =STDEVA(C2:C33,D4)
.....
Any one know why? I tried with " " doesn't help and q { } show nothing
since it's like ' '.
Thanks.
my $lastRowStd = 35;
my $i=2;
while($i<=$lastRowStd)
{
$Range = $CurrentSheet->Range("G$i");
$Range->{Value} = qq {=STDEVA(C2:C$lastRowStd,D$i)};
$i++;
}
------------------------------
Date: Sat, 3 May 2008 00:44:04 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Perl OLE Excel - STDEVA function
Message-Id: <fvgcgk$qdi$1@ml.accsnet.ne.jp>
On Fri, 02 May 2008 17:25:22 -0700, Slickuser wrote:
> I try to calculate the standard deviation of average of C2:C35. But I
> get random range in the worksheet G$i. It's not showing as:
>
> D2 =STDEVA(C2:C35,D2)
> D3 =STDEVA(C2:C35,D3)
> .....
>
> It's showing as:
>
> D2 =STDEVA(C2:C35,D2)
> D3 =STDEVA(C2:C31,D3)
> D4 =STDEVA(C2:C33,D4)
> .....
>
> Any one know why? I tried with " " doesn't help and q { } show nothing
> since it's like ' '.
I don't know why, but if I had to debug this,
> Thanks.
>
> my $lastRowStd = 35;
> my $i=2;
> while($i<=$lastRowStd)
> {
my $cell_value = "=STDEVA(C2:C".$lastRowStd.",D".$i;
print "In: ",$cell_value,"\n";
> $Range = $CurrentSheet->Range("G$i"); $Range->{Value} = qq
$Range->{Value} = $cell_value;
print "Excel says: ",$Range->Value,"\n";
> {=STDEVA(C2:C$lastRowStd,D$i)}; $i++;
> }
If you try running the above, what do you get?
------------------------------
Date: Fri, 2 May 2008 21:44:50 -0700 (PDT)
From: Slickuser <slick.users@gmail.com>
Subject: Re: Perl OLE Excel - STDEVA function
Message-Id: <9e1a373f-1a6c-477f-b878-0bc06f8526af@k37g2000hsf.googlegroups.com>
Thanks Ben.
It was working before. It was my sort method was messing it up.
I tested out with this full code, and my previous and it work too.
use Win32::OLE;
use warnings;
use strict;
my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{'Visible'} = 1;
$Excel->{SheetsInNewWorkbook} = 1;
my $Workbook = $Excel->Workbooks->Add();
my $CurrentSheet = $Workbook->ActiveSheet;
my $Range;
for (my $x=1; $x<= 20; $x++) {
my $range = $Excel->Range("C".$x);
my $range2 = $Excel->Range("D".$x);
$range->{Value} = int(rand(900000));
$range2->{Value} = int(rand(900000));
}
my $lastRowStd = 20;
my $i=1;
while($i<=$lastRowStd)
{
$Range = $CurrentSheet->Range("G$i");
my $cell_value = "=STDEVA(C1:C".$lastRowStd.",D".$i.")";
print "In: ",$cell_value,"\n";
$Range->{Value} = $cell_value;
print "Excel says: ",$Range->Value,"\n";
$i++;
}
$Workbook -> Save();
On May 2, 5:44 pm, Ben Bullock <benkasminbull...@gmail.com> wrote:
> On Fri, 02 May 2008 17:25:22 -0700, Slickuser wrote:
> > I try to calculate the standard deviation of average of C2:C35. But I
> > get random range in the worksheet G$i. It's not showing as:
>
> > D2 =STDEVA(C2:C35,D2)
> > D3 =STDEVA(C2:C35,D3)
> > .....
>
> > It's showing as:
>
> > D2 =STDEVA(C2:C35,D2)
> > D3 =STDEVA(C2:C31,D3)
> > D4 =STDEVA(C2:C33,D4)
> > .....
>
> > Any one know why? I tried with " " doesn't help and q { } show nothing
> > since it's like ' '.
>
> I don't know why, but if I had to debug this,
>
> > Thanks.
>
> > my $lastRowStd = 35;
> > my $i=2;
> > while($i<=$lastRowStd)
> > {
>
> my $cell_value = "=STDEVA(C2:C".$lastRowStd.",D".$i;
> print "In: ",$cell_value,"\n";
>
> > $Range = $CurrentSheet->Range("G$i"); $Range->{Value} = qq
>
> $Range->{Value} = $cell_value;
> print "Excel says: ",$Range->Value,"\n";
>
> > {=STDEVA(C2:C$lastRowStd,D$i)}; $i++;
> > }
>
> If you try running the above, what do you get?
------------------------------
Date: Fri, 02 May 2008 23:44:35 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Read 20 lines when pressing n for next
Message-Id: <x7wsmcfezg.fsf@mail.sysarch.com>
>>>>> "GE" == Gordon Etly <get@bentsys.com> writes:
>> you're whining about every damn thing Uri says.
GE> ... I made a point and people like Uri decided use cheap technicalities,
GE> as well as to attack my character rather than submit a real refute to my
GE> core point.
my technicalities are the most expensive around! i have the receipts to
prove it!
but i don't attack your character as you have shown none. all you have
done is flame about how others post here. just shut up already unless
you actually talk some perl. that is all anyone is asked to do here. it
doesn't take character, it takes an understanding and enjoyment of
perl. do you have that?
>> Grow up and give it a rest already. I'm sick of seeing your "Uri is
>> evil"
GE> I dare you to point out where I actually said that. It seems to me
GE> people like you and Uri simply cannot stand to have such faults pointed
GE> out, for if one does it's time to whip out the ol' pitch forks and
GE> torches...
faults? i have no faults (other than the ones caused by the tectonic
plates in my skull).
GE> And I'm the one who has to grow up... thanks you made my day with that
GE> one :)
yes you do. i grew up last week. i have had enough of that. your turn!
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Fri, 2 May 2008 17:41:27 -0700
From: "Gordon Etly" <get@bentsys.com>
Subject: Re: Read 20 lines when pressing n for next
Message-Id: <681qloF2qbbo6U1@mid.individual.net>
Uri Guttman wrote:
> but i don't attack your character as you have shown none. all you have
> done is flame about how others post here.
With all due respect, all I am guilty of is having opinions (which
happens to be contrary to your own view in both cases.) If anyone did
any "flaming", it was people like you that turned a simple point into a
kill-the-heretic.
You don't agree with someone, fine. But don't make it your personal
vendetta.
--
G.Etly
------------------------------
Date: Sat, 03 May 2008 06:20:06 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Read 20 lines when pressing n for next
Message-Id: <x7skwzdi3u.fsf@mail.sysarch.com>
>>>>> "GE" == Gordon Etly <get@bentsys.com> writes:
GE> Uri Guttman wrote:
>> but i don't attack your character as you have shown none. all you have
>> done is flame about how others post here.
GE> With all due respect, all I am guilty of is having opinions (which
GE> happens to be contrary to your own view in both cases.) If anyone did
GE> any "flaming", it was people like you that turned a simple point into a
GE> kill-the-heretic.
GE> You don't agree with someone, fine. But don't make it your personal
GE> vendetta.
it isn't personal. you attacked first on my homework comment (why mine
and not all the others? i call that personal). it is all in the google
archive to see. nyah nyah nyah!
go away before i taunt you a further time. your mother was a hampster. i
fart in your general direction.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Fri, 2 May 2008 21:12:36 -0700
From: "Robbie Hatley" <lonewolf@well.com>
Subject: Re: Regex for "at start of line OR preceded by space".
Message-Id: <t92dnWxGaeiWe4bVnZ2dnUVZ_qGknZ2d@giganews.com>
"Gunnar Hjalmarsson" wrote:
> Robbie Hatley wrote:
> > I needed a regex that says "either at the start of a line, OR
> > preceded by some whitespace".
> >
> > The whitespace (if any) is not to be part of the match.
> > That part I know how to do with lookbehind:
> >
> > (?<=\s)($Regex1)
> >
> > Start of line is easy too:
> >
> > ^($Regex1)
> >
> > but when I tried to or them together:
> >
> > my $Regex2 = qr{^|(?<=\s)($Regex1)};
> >
> > But for some reason, it matches the empty string at the beginning
> > of every input string. Why is that?
> >
> > What I finally came up with that works is:
> >
> > my $Regex2 = qr{((?:^$Regex1)|(?:(?<=\s)$Regex1))};
> >
> > That's pretty messy, tho. Are there easier ways of
> > doing this that I don't see?
>
> It's hard to tell, since you don't show us what's in $Regex1 together
> with some sample data.
My question was generic instead of specific on purpose.
That's what "$Regex1" is. It's a generic regex, not a
specific one. If I'd meant a specific one, I'd have posted
a specific one.
> Assuming that possible whitespace _may_ be part of the match,
In my immediate application, no. But the issue is barely
relevant, if at all.
> while you capture what's matched by the $Regex1 part,
> you can do:
>
> my $Regex2 = qr{^\s*($Regex1)};
Forces the white space to be at the beginning of the line.
In other words, "whitespace AND start-of-line".
My needs are, "whitespace OR start-of-line".
(I'd use "word boundary", but that can be a symbol, and
I want only instances of the $Regex1 which are preceded by
space or at start of line.)
If $Regex1 is "asdf", I'd like to match the first and
third (but not the second or fourth) asdf in:
asdfyuio qwer uiop %$asdf vbnm asdfijk dkguwy fjuasdf
^^^^ ^^^^ ^^^^ ^^^^
YES NO YES NO
(SOL) (symbols) (space) (letters)
The messy regex I gave does just that; yours only matches
the first instance. Different logic.
--
Cheers,
Robbie Hatley
perl -le 'print "\154o\156e\167o\154f\100w\145ll\56c\157m"'
perl -le 'print "\150ttp\72//\167ww.\167ell.\143om/~\154onewolf/"'
------------------------------
Date: Fri, 2 May 2008 22:31:36 -0700
From: "Robbie Hatley" <lonewolf@well.com>
Subject: Re: Regex for "at start of line OR preceded by space".
Message-Id: <29udnb0abNPkZYbVnZ2dnUVZ_j2dnZ2d@giganews.com>
"Dr.Ruud" wrote:
> Robbie Hatley schreef:
>
> > I needed a regex that says "either at the start of a line, OR
> > preceded by some whitespace".
>
> Maybe you are looking for \b?
That won't work. I'm basically looking for an assertion that
says "preceded by some space", where "space" can mean "begining of
line", as well as whitespace characters such as space, tab, etc.
Basically, "is a separate token, or the prefix of a separate
token".
\b, on the other hand, could be a symbol.
Say $Regex1 was "[a-z]+\.acme\.com". Say you were looking for
"bare" instances of that, *NOT* preceeded by, say, "ftp://".
Say you want to match "i saw it on fred.acme.com today", but
*NOT* "i saw it on ftp://fred.acme.com today". Using \b would
match both.
> > my $Regex2 = qr{^|(?<=\s)($Regex1)};
>
> The alternation was: BOL or whitespace. So why not write that first?
>
> (?:\A|(?<=\s))
Hmmm. What's "\A"?
( ::: looks in camel book ::: )
Ah, start of string. Ok. Let me try that....
( ::: tries it ::: )
COOL! That works!
> Ah, now I see, you just forgot to group it.
It seems to do the trick, all right, though I don't see why.
Why does adding in the one extra grouping make it start working
right? Looks to me like these two regexes should behave the
same, but they don't:
BROKEN: my $Regex2 = qr{^|(?<=\s)$Regex1};
WORKS: my $Regex2 = qr{(?:^|(?<=\s))$Regex1};
The first always matches the empty string at the beginning of
ANY input string. I wonder if the RE engine interprets that
as meaning:
^ *OR* ( (?<=\s) $Regex1 )
(And hence all strings match, and the extent of the match is
always the empty string, which matches the "^".)
That would explain why the extra grouping makes it work right:
( ^ *OR* (?<=\s) ) $Regex1
It's almost as if the alternation operator "|" has lower
precedence that juxtapostion....
(::: reads http://perldoc.perl.org/5.8.8/perlre.html :::)
GULP. It does. DOH. Never mind.
--
Cheers,
Robbie Hatley
lonewolf aatt well dott com
www dott well dott com slant user slant lonewolf slant
------------------------------
Date: Fri, 2 May 2008 22:46:43 -0700
From: "Robbie Hatley" <lonewolf@well.com>
Subject: Re: Regex for "at start of line OR preceded by space".
Message-Id: <Rt-dnYDn-PScYYbVnZ2dnUVZ_rCtnZ2d@giganews.com>
"A. Sinan Unur" wrote:
> "Robbie Hatley" wrote:
>
> > I needed a regex that says "either at the start of a line, OR
> > preceded by some whitespace".
>
> The only difference between this criterion and "preceded by whitespace"
> can occur at the beginning of the string. Therefore:
>
> #!/usr/bin/perl
>
> my $x = <<EOSTR;
> Test1 Test2
> Test3 Test4 Test5
> Test6
> Test7 Test8
> Test9
> Test0a
>
> EOSTR
>
> print "$1\n" while $x =~ /(?:\A|\s+)(\S+)/g ;
Close! But ultimately, no cigar. The preceding space
(if any) must not be part of the match, because this is
actually being used in a s/// command, so i don't
want to strip/alter/replace the leading spaces.
Get rid of the "+" and add in a lookbehind, and it works:
$x =~ s/(?:\A|(?<=\s))$Regex1/Prefix$&/g ;
(Can't use "\s+" in a look-behind, because look-behinds
must always be fixed-width.)
The "^" assertion can also be used instead of "\A":
$x =~ s/(?:^|(?<=\s))$Regex1/Prefix$&/g ;
(Also see Dr. Ruud's post, and my reply to it.)
--
Cheers,
Robbie Hatley
lonewolf aatt well dott com
www dott well dott com slant user slant lonewolf slant
------------------------------
Date: Fri, 2 May 2008 23:07:24 -0700
From: "Robbie Hatley" <lonewolf@well.com>
Subject: Re: Regex for "at start of line OR preceded by space".
Message-Id: <fLqdncdAg-FJnYHVnZ2dnUVZ_vWdnZ2d@giganews.com>
"Frank Seitz" wrote:
> Robbie Hatley wrote:
> >
> > my $Regex2 = qr{^|(?<=\s)($Regex1)};
> >
> > But for some reason, it matches the empty string at the beginning
> > of every input string. Why is that?
>
> Because | has a low precedence.
Ah, I wish I'd seen this post before some of the others, but
oh well. Yes, I figured that out a few minutes ago while
replying to Dr. Ruud's post. (As you can tell, I'm still
new at some of the subtleties of Perl REs.)
> > What I finally came up with that works is:
> >
> > my $Regex2 = qr{((?:^$Regex1)|(?:(?<=\s)$Regex1))};
> >
> > That's pretty messy, tho. Are there easier ways of
> > doing this that I don't see?
>
> qr{(^|(?<=\s))($Regex1)}
Yes. Or better, qr{(?:^|(?<=\s))($Regex1)}, so that $1
is the match. Or perhaps qr{(?:^|(?<=\s))$Regex1}
which has *NO* backreferences, and use $& instead of $1.
Anyway, thanks for the help.
--
Cheers,
Robbie Hatley
lonewolf aatt well dott com
www dott well dott com slant user slant lonewolf slant
------------------------------
Date: Sat, 03 May 2008 07:30:10 +0200
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: Will Perl 6 be usable as a procedure language?
Message-Id: <030520080730100539%brian.d.foy@gmail.com>
In article <pan.2008.05.01.12.37.12.389478@PSDT.com>, Peter Scott
<Peter@PSDT.com> wrote:
> Are you thinking that Perl 6 is intended to be backwards compatible with
> Perl 5? It isn't, and it won't be. The runtime will be able to use Perl
> 5 modules, but that's a different story.
Remember, one of the goals of Perl 6 is to be able to run 95% of the
Perl 5 programs already out there. How that's going to happen I'm not
sure, but having a parrot compiler for Perl 5 will probably be part of
it.
The answer, however, is that you don't have to give up your Perl 5
interpreter to use Perl 6. Let your Perl 5 binary run your Perl 5 stuff
and let your Perl 6 interpreter take care of Perl 6.
Perl 5.10.0 was released in December, and the perl5porters is already
working on Perl 5.12. There's no immediate danger of Perl 5 stagnation
or disappearance.
------------------------------
Date: Sat, 03 May 2008 07:35:20 +0200
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: Will Perl 6 be usable as a procedure language?
Message-Id: <030520080735209094%brian.d.foy@gmail.com>
In article <slrng1ik5d.2l20.usenet@debranded.larseighner.com>, Lars
Eighner <usenet@larseighner.com> wrote:
> Will perl 6 be usable as a procedure language?
Hi Lars,
Perl 6 makes most things some sort of object, but that doesn't mean
that you have to write classes and methods to use Perl 6. You'll still
see a mixture of programming types in Perl 6.
Is there a particular feature or structure that care about? No one is
going to take away your Perl 5, so no one is going to make you switch
to Perl 6. Perl 5 development is quite active; not only is Perl 5
actively maintained, but development of 5.12 is already underway.
Good luck,
------------------------------
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 1505
***************************************
