[28343] in Perl-Users-Digest
Perl-Users Digest, Issue: 9707 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 9 21:05:52 2006
Date: Sat, 9 Sep 2006 18:05:05 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 9 Sep 2006 Volume: 10 Number: 9707
Today's topics:
Re: beginners question <dmercer@mn.rr.com>
File Handle Problem <t051315@hotmail.com>
Re: File Handle Problem (Alan Curry)
Re: File Handle Problem <bik.mido@tiscalinet.it>
Re: File Handle Problem <t051315@hotmail.com>
Hash slice from a hash reference? <nospam@thanksanyway.org>
Re: Hash slice from a hash reference? <theaney@gmail.com>
Re: Hash slice from a hash reference? <nospam@thanksanyway.org>
Re: Hash slice from a hash reference? <bik.mido@tiscalinet.it>
Re: Hash slice from a hash reference? <bik.mido@tiscalinet.it>
Re: Hash slice from a hash reference? <mritty@gmail.com>
Re: Hash slice from a hash reference? <john@castleamber.com>
Re: Hash slice from a hash reference? <tadmc@augustmail.com>
Re: Pattern Matching and skipping <uri@stemsystems.com>
Perl > C# Transformation? <caddcreativity@gmail.com>
Re: Perl > C# Transformation? <mritty@gmail.com>
Re: Perl > C# Transformation? <caddcreativity@gmail.com>
Re: Perl > C# Transformation? <tadmc@augustmail.com>
Re: Perl > C# Transformation? <mgarrish@gmail.com>
Re: Perl Code Coverage <mgarrish@gmail.com>
Re: Perl Code Coverage (Randal L. Schwartz)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 09 Sep 2006 18:18:29 GMT
From: "Dan Mercer" <dmercer@mn.rr.com>
Subject: Re: beginners question
Message-Id: <VzDMg.1379$Wh.33@tornado.rdc-kc.rr.com>
-----Original Message-----
From: Dan Mercer [mailto:dmercer@mn.rr.com]
Sent: Thursday, September 07, 2006 9:59 PM
To: Mercer, Daniel A
Subject: Fw: beginners question
----- Original Message -----
From: <attn.steven.kuo@gmail.com>
Newsgroups: comp.lang.perl.misc
Sent: Thursday, September 07, 2006 9:47 PM
Subject: Re: beginners question
: Alpha wrote:
: > Hi guys, n00bs here.
: >
: > I was playing around with regexp and got stuck with this:
: > $string ="String 12345 String 67890 String whatever here";
: > basically i want to strip off the last "String" and whatever that
comes
: > after that.
: > so $string will become "String 12345 String 67890 ";
: >
: > any hints will be appreciated.
: >
:
:
: Try 'substr' instead:
:
: substr($string, rindex($string, 'String')) = '';
:
: print $string;
This is exactly the solution that _Programming_Perl_ warns against.
Essentially, you want to examine the tail end of a string and remove
the
last occurrence of a phrase.
my $str = 'This is a String that demonstrates how to greedily match a
String against a String containing the same word multiple times';
To get to the end of the string you need to use a pattern that begins
with ".*". Perl will greedily
match to the end of the string on the first element of the RE. When it
goes to the next element of
the RE, it will back up and match the FIRST occurrence of the element
it finds.
So:
$str =~ s/^(.*)(String.*)$/$1/;
will capture the string up to the last "String" in the string and
replace the entire
string with that substring.
Dan Mercer
:
: --
: Hope this helps,
: Steven
:
------------------------------
Date: Sat, 09 Sep 2006 18:42:55 GMT
From: Louis <t051315@hotmail.com>
Subject: File Handle Problem
Message-Id: <PWDMg.2167$E67.2092@clgrps13>
Hope somebody can tell me why this happens to filehandles...
I am playing with perl packages, and I had all functions in one file.
Now I want to split them into different files using package.
BEFORE: I have a function that opens a filehandle (FH1) and then calls
another function to print messages. This works good.
NOW: I put the calling function in another file. When it calls the print
function it uses &main::prtmess();, perl prints out errors: printf() Non
unopened filehandle FH1 at.....
ANd if I copy the prtmess() function in the same file as the calling
function, it works again.
My question is: I read somewhere that once you open a filehandle, perl
keeps it open until you close it. So why the different file scenario
doesn't seem to work?
Appreciate the help. Thanks.
------------------------------
Date: Sat, 9 Sep 2006 19:39:10 +0000 (UTC)
From: pacman@TheWorld.com (Alan Curry)
Subject: Re: File Handle Problem
Message-Id: <edv58u$8hb$1@pcls6.std.com>
In article <PWDMg.2167$E67.2092@clgrps13>, Louis <t051315@hotmail.com> wrote:
>
>NOW: I put the calling function in another file. When it calls the print
>function it uses &main::prtmess();, perl prints out errors: printf() Non
>unopened filehandle FH1 at.....
You have a main::FH1 and a yourotherpackage::FH1. You're opening one and then
trying to print on the other. The minimal change to fix this would be to
specify yourotherpackage::FH1 when you do the print. A cleaner fix would be
to pass the filehandle as a parameter.
--
The attacker\x92s overall goal would very probably be to convince other users
to run an unsafe program, by using the digital signature to convince them
that it is actually bona fide Microsoft software and therefore safe to run.
-- security bulletin MS01-017 ushers in a new definition of "safe"
------------------------------
Date: 9 Sep 2006 21:50:41 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: File Handle Problem
Message-Id: <j366g252ejbgs4pht6aqrt94tl242sot5p@4ax.com>
On Sat, 09 Sep 2006 18:42:55 GMT, Louis <t051315@hotmail.com> wrote:
>I am playing with perl packages, and I had all functions in one file.
>Now I want to split them into different files using package.
Files and packages are nearly orthogonal. It is "only" a common
convention to have exactly one package per file.
>BEFORE: I have a function that opens a filehandle (FH1) and then calls
>another function to print messages. This works good.
When you open FH1, you set the IO slot of *package::FH1, where
'package' is the package in which your sub lives. You may want to use
a lexical filehandle scoped around your function(s) instead.
>NOW: I put the calling function in another file. When it calls the print
>function it uses &main::prtmess();, perl prints out errors: printf() Non
>unopened filehandle FH1 at.....
Hard to say without seeing main::prtmess(), and without knowing how it
"uses" it. Wild guess based on the above is that you open()
somepackage::FH1 but are trying to print into main::FH1. Anyway I
can't understand why functions having related functionalities (i.e.
opening a file and printing into it respectively) live in separate
packages. Don't factorize too much...
>ANd if I copy the prtmess() function in the same file as the calling
>function, it works again.
Seems my guess may be reasonable...
>My question is: I read somewhere that once you open a filehandle, perl
>keeps it open until you close it. So why the different file scenario
>doesn't seem to work?
Again, hard to say without seeing the code. Can you prepare a minimal
example exhibiting the problem?
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: Sun, 10 Sep 2006 00:31:39 GMT
From: Louis <t051315@hotmail.com>
Subject: Re: File Handle Problem
Message-Id: <L1JMg.386$cz3.293@edtnps82>
Louis wrote:
> Hope somebody can tell me why this happens to filehandles...
>
> I am playing with perl packages, and I had all functions in one file.
> Now I want to split them into different files using package.
>
> BEFORE: I have a function that opens a filehandle (FH1) and then calls
> another function to print messages. This works good.
>
> NOW: I put the calling function in another file. When it calls the print
> function it uses &main::prtmess();, perl prints out errors: printf() Non
> unopened filehandle FH1 at.....
>
> ANd if I copy the prtmess() function in the same file as the calling
> function, it works again.
>
>
> My question is: I read somewhere that once you open a filehandle, perl
> keeps it open until you close it. So why the different file scenario
> doesn't seem to work?
>
> Appreciate the help. Thanks.
Thanks for your suggestions...with those I finally realized that the
error iss I was so concentrating on keeping the package names properly
on the functions but not on the filehandle FH1. Once I added the package
name in front of FH1 (packagename::FH1), the script works.
But now I have to figure out how to use the same prtmess function for
all the reports if some of them are in different packages.
I thought that yuou cannot pass the filehandle directly as a parameter
to a function. Maybe I can pass a reference of FH1 to the function.
Anyway, thanks very much for your input.
------------------------------
Date: Sat, 9 Sep 2006 09:38:02 -0700
From: "Mark G." <nospam@thanksanyway.org>
Subject: Hash slice from a hash reference?
Message-Id: <1157819875.775011@bubbleator.drizzle.com>
Good morning.
I am trying to take a hash reference and obtain a slice
of the underlying hash. I assume there is a way to do
this? I can't find the correct notation. Here is my best
guess:
# Create a hash
my %test01 = (key01=>'',key02=>'',key03=>'',key04=>'');
# Populate a hash slice
@test01{'key01','key03'} = ('val01','val03');
# Pass hash reference to function
ref_slice (\%test01);
sub ref_slice
{
my $hashref = shift;
# This doesn't work
@$hashref->{'key01','key03'} = ('val01','val03');
}
Suggestions?
Thanks
-Mark
------------------------------
Date: Sat, 09 Sep 2006 12:57:27 -0400
From: Tim Heaney <theaney@gmail.com>
Subject: Re: Hash slice from a hash reference?
Message-Id: <m3u03hyo3s.fsf@calvin.watterson>
"Mark G." <nospam@thanksanyway.org> writes:
>
> I am trying to take a hash reference and obtain a slice
> of the underlying hash. I assume there is a way to do
> this? I can't find the correct notation. Here is my best
> guess:
>
> # Create a hash
> my %test01 = (key01=>'',key02=>'',key03=>'',key04=>'');
>
> # Populate a hash slice
> @test01{'key01','key03'} = ('val01','val03');
>
> # Pass hash reference to function
> ref_slice (\%test01);
>
>
> sub ref_slice
> {
> my $hashref = shift;
>
> # This doesn't work
> @$hashref->{'key01','key03'} = ('val01','val03');
> }
>
>
> Suggestions?
The @ has dereferenced the hash reference, so drop the -> and slice
away...
@$hashref{'key01','key03'} = ('newval01','newval03');
print "$_ => $hashref->{$_}\n" foreach keys %$hashref;
I hope this helps,
Tim
------------------------------
Date: Sat, 9 Sep 2006 09:58:06 -0700
From: "Mark G." <nospam@thanksanyway.org>
Subject: Re: Hash slice from a hash reference?
Message-Id: <1157821080.316694@bubbleator.drizzle.com>
"Mark G." <nospam@thanksanyway.org> wrote:
> Good morning.
>
> I am trying to take a hash reference and obtain a slice
> of the underlying hash.
And the winner is:
@{$hashref}{'key01','key03'} = ('val01','val03');
I don't know whether that notation should be intuitive
or not, but I did manage to find it via Google
immediately after I posted to the newsgroup.
I guess I just needed a good night's sleep.
-Mark
------------------------------
Date: 9 Sep 2006 19:09:27 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Hash slice from a hash reference?
Message-Id: <hus5g21q0hn8sk14c9mp8tvmoggjepiqp7@4ax.com>
On Sat, 9 Sep 2006 09:38:02 -0700, "Mark G." <nospam@thanksanyway.org>
wrote:
> # This doesn't work
> @$hashref->{'key01','key03'} = ('val01','val03');
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %test01 = (key01=>'',key02=>'',key03=>'',key04=>'');
ref_slice(\%test01);
print Dumper \%test01;
sub ref_slice {
my $hashref = shift;
@{$hashref}{qw/key01 key03/} = (qw/val01 val03/);
}
__END__
Note that prefixing with a sigil, i.e. @{$hashref} in this case, is
one way for dereferencing. The arrow operator is another one. So you
may think of using the following:
$hashref->{qw/key01 key03/} = (qw/val01 val03/);
However this doesn't work with more than one key, because it is not
interpreted as a slice, but as an indexing over a multidimensional
index, which is a now obsolete mechanism relying on C<$;>.
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: 9 Sep 2006 19:20:40 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Hash slice from a hash reference?
Message-Id: <rqt5g2tai9904ka4jp818d5cakr63ckmc9@4ax.com>
On Sat, 9 Sep 2006 09:58:06 -0700, "Mark G." <nospam@thanksanyway.org>
wrote:
>@{$hashref}{'key01','key03'} = ('val01','val03');
>
>I don't know whether that notation should be intuitive
>or not, but I did manage to find it via Google
I don't know if it should be intuitive either, but for sure it is
perfectly well documented in
perldoc perlref
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: 9 Sep 2006 15:17:31 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Hash slice from a hash reference?
Message-Id: <1157840251.245558.68790@h48g2000cwc.googlegroups.com>
Mark G. wrote:
> "Mark G." <nospam@thanksanyway.org> wrote:
> > Good morning.
> >
> > I am trying to take a hash reference and obtain a slice
> > of the underlying hash.
>
> And the winner is:
>
> @{$hashref}{'key01','key03'} = ('val01','val03');
>
> I don't know whether that notation should be intuitive
> or not
The rule is that the entire scalar variable which holds the reference
(including it's sigil) takes place of the "name" of the hash that you
would otherwise use.
if your hash is %foo, a hash slice is @foo{'key1', 'key2'}. Therefore,
if your hashref is $foo, the hash is %{$foo}, and so a hash slice is
@{$foo}{'key1', 'key2'}.
Paul Lalli
------------------------------
Date: 9 Sep 2006 23:00:44 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Hash slice from a hash reference?
Message-Id: <Xns9839B73AEC31Ecastleamber@130.133.1.4>
"Mark G." <nospam@thanksanyway.org> wrote:
>
> "Mark G." <nospam@thanksanyway.org> wrote:
>> Good morning.
>>
>> I am trying to take a hash reference and obtain a slice
>> of the underlying hash.
>
> And the winner is:
>
> @{$hashref}{'key01','key03'} = ('val01','val03');
which you might want to write as:
@{ $hashref }{ qw( key01 keyp3 ) } = qw( val01 val03 );
when possible.
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Sat, 9 Sep 2006 18:30:12 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Hash slice from a hash reference?
Message-Id: <slrneg6jk4.1eu.tadmc@magna.augustmail.com>
Paul Lalli <mritty@gmail.com> wrote:
[snip slicing a hashref]
> The rule is that the entire scalar variable which holds the reference
> (including it's sigil) takes place of the "name" of the hash that you
> would otherwise use.
>
> if your hash is %foo, a hash slice is @foo{'key1', 'key2'}. Therefore,
> if your hashref is $foo, the hash is %{$foo}, and so a hash slice is
> @{$foo}{'key1', 'key2'}.
I like to present perlreftut's "Use Rule 1" in 3 steps:
@foo{'key1', 'key2'}; # as if it was a normal hash
@{ }{'key1', 'key2'}; # replace the name with a block
@{ $foo }{'key1', 'key2'}; # put code in the block that
# returns the right kind of reference
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 09 Sep 2006 12:35:23 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Pattern Matching and skipping
Message-Id: <x7hczhroac.fsf@mail.sysarch.com>
>>>>> "PJH" == Peter J Holzer <hjp-usenet2@hjp.at> writes:
PJH> if (...) {
PJH> while (...) {
PJH> for (...) {
PJH> if (...) {
PJH> if (...) {
PJH> ...
PJH> } } } } }
PJH> That way it is easy to see that each closing brace corresponds to the
PJH> start of a statement. However, they don't correspond to the statements
PJH> they seem to correspond to, which is probably confusing, too (I guess
PJH> there's a reason that very few people use this style :-)).
disregarding the actual brace or coding style there i feel there is
fundamentally something wrong when i see deeply nested code like that in
perl. one issue is that many time an if or else is just control flow
like next/last/return. those can usually be reduced to statement
modifiers which eliminate a block and all of its cruft. and many times i
see the else block being the control flow. if the associated condtional
is inverted, then you can lose the else (becomes a statement modifier
again) and the if code loses its indent and becomes straight line code
at the higher indent level. another trick is to wrap the deeper nested
code into a sub of its own just for clarity's sake (yes, it will slow
you down some but clarity is important too).
so the goal is to not need such deeply nested code. maybe 3-4 deep is as
far as i go before i do something (and that include using all those
block elimination techniques i mentioned) like factoring out an inner
sub.
in general, seeing code like that means the coder is not experienced
enough to know how to make code readable as well as correct. :)
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: 9 Sep 2006 15:11:06 -0700
From: "CADD" <caddcreativity@gmail.com>
Subject: Perl > C# Transformation?
Message-Id: <1157839866.637404.16660@b28g2000cwb.googlegroups.com>
Can anyone help transform this Perl into C#?
use LWP::UserAgent;
# Our user ID.
my $custid = "Test";
# Our message.
my $msg = "Hello";
# Lowercase and remove spaces/underscores in user name.
$custid = lc($custid);
$custid =~ s/ //ig;
$custid =~ s/_//ig;
# Create a new useragent. This creates an instance of the UserAgent
module.
# Name your agent whatever you like or keep the default. Your bot's
name is
# a good suggestion.
$ua = new LWP::UserAgent;
$ua->agent("AgentName/1.0 " . $ua->agent);
# Create a request. This sets up the POST string.
# Field values sent two diff ways shown here. You will need to add your
own
# bot's id for the botid= field.
my $req = new HTTP::Request POST
=>("http://www.pandorabots.com/pandora/talk-xml?botid=id
here&input=$msg");
$req->content_type('application/x-www-form-urlencoded');
$req->content("custid=$custid");
# Pass request to the user agent and get a response back.
my $res = $ua->request($req);
# Create a variable to hold content. You now have the
# full source of the reply from the API, including markup, user input,
# and Pandora response code.
my $reply = $res->content;
# Create a variable holding everything in between <that></that> tags,
which
# is where the actual bot reply is.
($response = $reply) =~ s/^.*(\<that\> .*)\<\/that\>.*$/$1/m;
# Strip remaining tags and trim string.
$response =~ s/<that>/ /g;
$response =~ s/^\s+//;
$response =~ s/\s+$//;
# Convert tags for quotes and links in AIML.
$response =~ s/"/\"/g;
$response =~ s/&lt;/</g;
$response =~ s/&quot;/\"/g;
$response =~ s/&gt;/>/g;
# $response now holds just the bot's reply. Print or return $response
here
based on your app.
Thank you in advance for your time.
------------------------------
Date: 9 Sep 2006 15:20:07 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Perl > C# Transformation?
Message-Id: <1157840407.746000.139390@d34g2000cwd.googlegroups.com>
CADD wrote:
> Can anyone help transform this Perl into C#?
What exactly do you need help with? Do you not understand some part of
the Perl code? If so, ask specific questions about the part(s) you
don't understand. Do you not know the syntax for C#? If so, ask a
group that deals with C#. This is not such a group.
Paul Lalli
------------------------------
Date: 9 Sep 2006 15:51:58 -0700
From: "CADD" <caddcreativity@gmail.com>
Subject: Re: Perl > C# Transformation?
Message-Id: <1157842318.714101.327250@i42g2000cwa.googlegroups.com>
Paul Lalli wrote:
> CADD wrote:
> > Can anyone help transform this Perl into C#?
>
> What exactly do you need help with? Do you not understand some part of
> the Perl code? If so, ask specific questions about the part(s) you
> don't understand. Do you not know the syntax for C#? If so, ask a
> group that deals with C#. This is not such a group.
>
> Paul Lalli
Thank you for the reply.
I would like the transform the above Perl code to C# - does such
transformation package exist?
------------------------------
Date: Sat, 9 Sep 2006 18:32:32 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Perl > C# Transformation?
Message-Id: <slrneg6jog.1eu.tadmc@magna.augustmail.com>
CADD <caddcreativity@gmail.com> wrote:
> I would like the transform the above Perl code to C# - does such
> transformation package exist?
There is no way to do that automatically.
You will need a programmer that understands both languages to
translate it for you (or learn both languages yourself).
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 9 Sep 2006 17:10:28 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: Perl > C# Transformation?
Message-Id: <1157847028.255025.91090@e3g2000cwe.googlegroups.com>
CADD wrote:
> Paul Lalli wrote:
> > CADD wrote:
> > > Can anyone help transform this Perl into C#?
> >
> > What exactly do you need help with? Do you not understand some part of
> > the Perl code? If so, ask specific questions about the part(s) you
> > don't understand. Do you not know the syntax for C#? If so, ask a
> > group that deals with C#. This is not such a group.
> >
>
> I would like the transform the above Perl code to C# - does such
> transformation package exist?
No, and this isn't a C# group, so you're kind of going at things
backward. If you don't know regular expressions in C# take a look at
the following:
http://www.windowsdevcenter.com/pub/a/oreilly/windows/news/csharp_0101.html
As for the LWP stuff, you might take a look at the WebRequest and
HttpRequest classes in System.Web. It's not going to be as nice and
easy as using LWP, but if you google on those classes and posting files
I'm sure you'll find what you need in time.
Matt
------------------------------
Date: 9 Sep 2006 05:13:45 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: Perl Code Coverage
Message-Id: <1157804025.197407.28140@b28g2000cwb.googlegroups.com>
Randal L. Schwartz wrote:
> >>>>> "Matt" == Matt Garrish <mgarrish@gmail.com> writes:
>
> Matt> In terms of more info, the following might be some help:
>
> Matt> http://www.ddj.com/184404661
>
> Matt> As the docs say, though, it's alpha software so there may not exist
> Matt> much else.
>
> In 2001 (the date of the article), Devel::Cover was alpha software, yes. It's
> pretty mature now... and very useful.
>
Ahh, I wasn't aware it had branched off into another set of modules.
The Devel-Coverage module looked quite abandoned, and that was the best
I could find to point the OP to. There are a lot of Devel- and B-
modules I never get a chance to look at in my daily work, so I was
curious to see what this one could do. Thanks for the pointer!
Matt
------------------------------
Date: 09 Sep 2006 09:55:38 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Perl Code Coverage
Message-Id: <86hczhf08l.fsf@blue.stonehenge.com>
>>>>> "Matt" == Matt Garrish <mgarrish@gmail.com> writes:
>> In 2001 (the date of the article), Devel::Cover was alpha software, yes. It's
>> pretty mature now... and very useful.
>>
Matt> Ahh, I wasn't aware it had branched off into another set of modules.
Matt> The Devel-Coverage module looked quite abandoned, and that was the best
Matt> I could find to point the OP to. There are a lot of Devel- and B-
Matt> modules I never get a chance to look at in my daily work, so I was
Matt> curious to see what this one could do. Thanks for the pointer!
Ahh, hadn't even noticed that it said "Devel::Coverage" in the article.
I read what I wanted to read.
Egad. I'm human. :)
print "Just another Perl hacker,"; # and this too
--
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: 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 9707
***************************************
