[28619] in Perl-Users-Digest
Perl-Users Digest, Issue: 9983 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 20 00:06:05 2006
Date: Sun, 19 Nov 2006 21:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 19 Nov 2006 Volume: 10 Number: 9983
Today's topics:
'\0' like in C <robertospara@gmail.com>
Re: '\0' like in C <someone@example.com>
Re: Add numbers in a string <wahab@chemie.uni-halle.de>
Re: Add numbers in a string <sisyphus1@nomail.afraid.org>
Re: Add numbers in a string <someone@example.com>
Re: Add numbers in a string xhoster@gmail.com
Re: Add numbers in a string <abigail@abigail.be>
Re: Add numbers in a string <wahab@chemie.uni-halle.de>
Re: Add numbers in a string <michal@gortel.phys.ualberta.ca>
Re: Add numbers in a string <tadmc@augustmail.com>
Re: Array not getting updated <tadmc@augustmail.com>
Re: bug challenge (David Combs)
Re: bug challenge <benmorrow@tiscali.co.uk>
Can perl find strings over multiple lines? osiris@abydos.kmt
Re: context sensitive grammar? <robertospara@gmail.com>
Re: Do I *have* to use 'OOP' to use modules? <asandstrom@accesswave.ca>
Do U use >>>>>perl -e 'use re debug;/REGEX/' so U can h <robertospara@gmail.com>
Re: Do U use >>>>>perl -e 'use re debug;/REGEX/' so U c <robertospara@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Nov 2006 18:57:26 -0800
From: "robertospara" <robertospara@gmail.com>
Subject: '\0' like in C
Message-Id: <1163991446.367972.257080@k70g2000cwa.googlegroups.com>
Question to Tad McLellan:
Is there something in Perl like '\0' in C????????
U seams to be smart????????
So??????????????????????????????
Chill out guys :)
------------------------------
Date: Mon, 20 Nov 2006 03:45:06 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: '\0' like in C
Message-Id: <6x98h.12116$_Z2.4485@edtnps89>
robertospara wrote:
> Question to Tad McLellan:
> Is there something in Perl like '\0' in C????????
Yes.
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: Sun, 19 Nov 2006 22:44:07 +0100
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: Add numbers in a string
Message-Id: <ejqo4s$sef$3@mlucom4.urz.uni-halle.de>
Thus spoke DJ Stunks (on 2006-11-19 22:11):
> John Bokma wrote:
>> ...
>> $sum += $1 while $string =~ /(\d+)/g;
>> print "$sum\n";
>
> no need to capture in the regex. and how about adding them all up at
> once?
>
> use List::Util qw{ sum };
> ...
> print sum $string =~ m{ \d+ }xg;
maybe there's no need for direct string =~ match,
modules or anything else,
...
$sum = 0;
$sum += /\d/&&$_ for split /\D+/, $string;
...
or, according to your 'at once' intention:
...
$sum = map+(0)x$_, $string =~ /\d+/g;
...
(OK, this gets somehow weird, I see ...)
Regards
Mirco
------------------------------
Date: Mon, 20 Nov 2006 10:38:42 +1100
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Add numbers in a string
Message-Id: <4560ec2f$0$19406$afc38c87@news.optusnet.com.au>
"Lawrence Statton XE2/N1GAK" <yankeeinexile@gmail.com> wrote in message
news:87irhbi5jm.fsf@gmail.com...
> abbyhoffman@gmail.com writes:
> > test 34bob 232 frank 1
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> my @words = qw / test 34bob 232 frank 1 /;
> my $sum;
# Then simply:
$sum += $_ for @words;
If you want to hide the warnings:
{
no warnings 'numeric';
$sum += $_ for @words;
}
Cheers,
Rob
------------------------------
Date: Sun, 19 Nov 2006 23:50:35 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Add numbers in a string
Message-Id: <f568h.6240$rB6.87@clgrps13>
abbyhoffman@gmail.com wrote:
>
> I'm a complete Perl newb, but I was wondering if there was a way to add
> the numbers in a string together. Ie
>
> test 34bob 232 frank 1
>
> would add 34 + 232 + 1 to get 267
$ perl -le'
my $string = q[test 34bob 232 frank 1];
my $total;
1 while $string =~ /(\d+)(?{ $total += $^N })/g;
print $total;
'
267
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: 20 Nov 2006 00:29:35 GMT
From: xhoster@gmail.com
Subject: Re: Add numbers in a string
Message-Id: <20061119193038.341$sw@newsreader.com>
abbyhoffman@gmail.com wrote:
> Hello,
>
> I'm a complete Perl newb, but I was wondering if there was a way to add
> the numbers in a string together. Ie
>
> test 34bob 232 frank 1
>
> would add 34 + 232 + 1 to get 267
perl -le 'use List::Util qw(sum);print sum /\d+/g while <>'
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 20 Nov 2006 00:47:06 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Add numbers in a string
Message-Id: <slrnem1un3.bt.abigail@alexandra.abigail.be>
abbyhoffman@gmail.com (abbyhoffman@gmail.com) wrote on MMMMDCCCXXVIII
September MCMXCIII in <URL:news:1163964540.131345.221880@j44g2000cwa.googlegroups.com>:
^^ Hello,
^^
^^ I'm a complete Perl newb, but I was wondering if there was a way to add
^^ the numbers in a string together. Ie
^^
^^ test 34bob 232 frank 1
^^
^^ would add 34 + 232 + 1 to get 267
my $str = '34 + 232 + 1';
my @num = $str =~ /\d+/g;
$" = " + ";
print eval "@num";
--
CHECK {print "another "}
INIT {print "Perl " }
BEGIN {print "Just " }
END {print "Hacker\n"}
------------------------------
Date: Mon, 20 Nov 2006 02:04:31 +0100
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: Add numbers in a string
Message-Id: <ejqv8l$18p$1@mlucom4.urz.uni-halle.de>
Thus spoke Abigail (on 2006-11-20 01:47):
> abbyhoffman@gmail.com (abbyhoffman@gmail.com) wrote on MMMMDCCCXXVIII
> September MCMXCIII in <URL:news:1163964540.131345.221880@j44g2000cwa.googlegroups.com>:
> ^^ Hello,
> ^^
> ^^ I'm a complete Perl newb, but I was wondering if there was a way to add
> ^^ the numbers in a string together. Ie
> ^^
> ^^ test 34bob 232 frank 1
> ^^
> ^^ would add 34 + 232 + 1 to get 267
>
>
> my $str = '34 + 232 + 1';
> my @num = $str =~ /\d+/g;
> $" = " + ";
> print eval "@num";
Nice Idea!
but much too verbose (;-)
$" = " + ";
print eval "@$_" for [$string =~ /\d+/g];
Regards
Mirco
------------------------------
Date: Mon, 20 Nov 2006 01:40:05 +0000 (UTC)
From: Michal Jaegermann <michal@gortel.phys.ualberta.ca>
Subject: Re: Add numbers in a string
Message-Id: <ejr11l$dqi$1@tabloid.srv.ualberta.ca>
John Bokma <john@castleamber.com> wrote:
> Lawrence Statton XE2/N1GAK <yankeeinexile@gmail.com> wrote:
>
>> abbyhoffman@gmail.com writes:
>>> test 34bob 232 frank 1
>>
>> #!/usr/bin/perl
>> use strict;
>> use warnings;
>>
>> my @words = qw / test 34bob 232 frank 1 /;
>> my $sum;
>> $sum += $_ for grep { /^\d+$/ } map { tr /0-9//cd; $_ } @words;
>> print "$sum\n";
>
> Way to weird :-)
Awk is simpler here if strigs are in suffixes. :-)
echo test 34bob 232 frank 1 | \
awk '{ for(i=1; i <= NF; i++) {sum += $i}; print sum }'
It will accept floating point numbers with appended strings too.
Michal
------------------------------
Date: Sun, 19 Nov 2006 19:46:45 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Add numbers in a string
Message-Id: <slrnem2285.8f8.tadmc@tadmc30.august.net>
[ Please do not top-post.
Text rearranged into a sensible order.
]
abbyhoffman@gmail.com <abbyhoffman@gmail.com> wrote:
> Lawrence Statton XE2/N1GAK wrote:
>> abbyhoffman@gmail.com writes:
>> > test 34bob 232 frank 1
>>
>> #!/usr/bin/perl
>> use strict;
>> use warnings;
>>
>> my @words = qw / test 34bob 232 frank 1 /;
>> my $sum;
>> $sum += $_ for grep { /^\d+$/ } map { tr /0-9//cd; $_ } @words;
>> print "$sum\n";
> That worked great for the example, but is there a way I can send a
> generic string? ie
>
> $text = "test 34bob 232 frank 1";
You can convert the string into the needed form of array:
my @words = split /\s+/, $text;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 19 Nov 2006 20:14:24 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Array not getting updated
Message-Id: <slrnem23s0.8f8.tadmc@tadmc30.august.net>
IJALAB <balaji.draj@gmail.com> wrote:
> Hi All,
Hello One.
> I am new to Perl.
I am old to Perl.
> My problem is:
>
>
> I have a log file that has lot of data and every line is identified by
> its first character and then processed accordingly.
>
>
> so, for example, I have a line starting with 2,
Show us an example of a data line that starts with 2 then.
> from which i am
> printing some data and then proceeding.....in a certain i have some
> data in one line (say 3), which also lists the 3
> elements...(12,14,15)...
Then show us an example of data that also lists the 3 elements.
> ANother line(s) continuosly prints several elements one by one of which
>
> my need is to check if these elements (12,14,15) are available in any
> of these lines and print relevant info.
Then show us some of those lines too.
> I created an
>
>
> $data (stored the number of elements) and accordingly created an
> array(@data) and stored those elements in that array.
Show us your code where you are doing all of that.
> when the next line is encountered i tried to pick every element from
> @data and compare with those line data, i am not getting the array
> elements?
I don't know if you are getting them or not, I don't have enough
information to be able to answer that question.
> is there a simpler way
simpler than *what* ?
You haven't shown us what you have.
> to handle this situation?? where am i going
> wrong?
You are going wrong by not posting the code and data.
> need ur help.
^^
^^
Need real words.
Have you seen the Posting Guidelines that are posted here frequently?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 20 Nov 2006 01:42:51 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: bug challenge
Message-Id: <ejr16r$4qp$1@reader2.panix.com>
In article <1161538732.187520.77220@e3g2000cwe.googlegroups.com>,
attn.steven.kuo@gmail.com <attn.steven.kuo@gmail.com> wrote:
...
>
>
>As a matter of habit I never pass around
>references to $1, $2 variables. So this part of the module
>looked a bit funny to me:
>
>sub _render_hash {
>
># ...
>
> $rendered =~ s{$self->{chunk_re}}
> {
> # print "CHUNK $1\nBODY\n----\n<$2>\n\n------\n" ;
> ${$self->_render_chunk( \$2, $href->{$1} ) }}gex ;
>
>
>
>I took a quick shot in the dark and changed it
>to use a copy of $2:
>
>
> $rendered =~ s{$self->{chunk_re}}
> {
> # print "CHUNK $1\nBODY\n----\n<$2>\n\n------\n" ;
> ${$self->_render_chunk( \"$2", $href->{$1} ) }}gex ;
>
>
>(with quotes around $2), The warnings go
>away and I get "bart" and "marge" in the output. The existing
>regression tests all pass as well.
(Stupid) question:
> ${$self->_render_chunk( \"$2", $href->{$1} ) }}gex ;
Please explain the "unbalanced" backslash before the quote-mark.
(Some kludge to fool the parser into accepting something (the
leading dquote) it wouldn't otherwise?)
Plus why the trailing dquote doesn't have one too.
THANKS
David
------------------------------
Date: Mon, 20 Nov 2006 02:26:46 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: bug challenge
Message-Id: <6cg734-qnc.ln1@osiris.mauzo.dyndns.org>
Quoth dkcombs@panix.com (David Combs):
> In article <1161538732.187520.77220@e3g2000cwe.googlegroups.com>,
> attn.steven.kuo@gmail.com <attn.steven.kuo@gmail.com> wrote:
> >
> >As a matter of habit I never pass around
> >references to $1, $2 variables. So this part of the module
> >looked a bit funny to me:
> >
<snip>
> > ${$self->_render_chunk( \$2, $href->{$1} ) }}gex ;
> >
> >I took a quick shot in the dark and changed it
> >to use a copy of $2:
> >
<snip>
> > ${$self->_render_chunk( \"$2", $href->{$1} ) }}gex ;
> >
> >(with quotes around $2), The warnings go
> >away and I get "bart" and "marge" in the output. The existing
> >regression tests all pass as well.
>
> (Stupid) question:
> > ${$self->_render_chunk( \"$2", $href->{$1} ) }}gex ;
>
> Please explain the "unbalanced" backslash before the quote-mark.
>
> (Some kludge to fool the parser into accepting something (the
> leading dquote) it wouldn't otherwise?)
>
> Plus why the trailing dquote doesn't have one too.
It's not escaping the " (Perl isn't shell). It's the take-a-reference
operator: \"$2" (perhaps you would rather write it as \("$2"), or maybe
my $x = $2; # not strictly the same, but close enough
... \$x ...
) returns a reference to a new string which is a copy of $2. It is
rather unintuitive (and possibly a bug, and not to be relied upon) that
\"..." returns a ref to a read-only string if the ... does not include
any variable substitutions, but to a read-write string if it does. That
is,
my $x = \"foo";
$$x = "bar";
fails with 'Modification of read-only value attempted', but
my $y = "foo";
my $x = \"$y";
$$x = "bar";
doesn't, and neither does it affect the value of $y.
Ben
--
The Earth is degenerating these days. Bribery and corruption abound.
Children no longer mind their parents, every man wants to write a book,
and it is evident that the end of the world is fast approaching.
Assyrian stone tablet, c.2800 BC benmorrow@tiscali.co.uk
------------------------------
Date: Mon, 20 Nov 2006 04:52:11 GMT
From: osiris@abydos.kmt
Subject: Can perl find strings over multiple lines?
Message-Id: <%va8h.21721$fz1.10503@newsfe15.phx>
Is it possible to search for strings in a file over multiple lines
using a one-liner from the shell?
What I want to do is find all the text between
a line beginning with "--" or "-- " and
ending with ")$" where '$' is, of course, the EOL char.
I also would like to know how to find the exclusion
so that the output produces everything but the enclosed string above.
Is this possible with perl? Thanks a million.
I have perl 5.8.6 on OSX 10.4 and 5.6.1 on Solaris 7.
------------------------------
Date: 19 Nov 2006 16:02:43 -0800
From: "robertospara" <robertospara@gmail.com>
Subject: Re: context sensitive grammar?
Message-Id: <1163980962.978154.200050@e3g2000cwe.googlegroups.com>
Read at least one paragraph from Larry Wall books than U will know all.
easy napisal(a):
> It is said that Perl has context-sensitive grammar.
>
> but I can not find any syntax rule in src/perly.y like so..
>
> Nonterminal terminal : some rule
> | another rule;
>
> or is the "context-sensitive" logic is written indirectly in code?
------------------------------
Date: Mon, 20 Nov 2006 02:31:58 GMT
From: "Arved Sandstrom" <asandstrom@accesswave.ca>
Subject: Re: Do I *have* to use 'OOP' to use modules?
Message-Id: <ys88h.6345$rB6.355@clgrps13>
"Abigail" <abigail@abigail.be> wrote in message
news:slrnem1mdb.bt.abigail@alexandra.abigail.be...
> Arved Sandstrom (asandstrom@accesswave.ca) wrote on MMMMDCCCXXVIII
[ SNIP ]
> ** I cringe a bit when the term "native" comes up, because it means so
> many
> ** different things in programming. But I will assume that by "native"
> object
> ** attributes you mean that there is a way, in the language, of
> syntactically
> ** distinguishing the fields of the object that are logical attributes
> from
> ** those that are not (and are just implementation details).
> **
> ** In other words, how much built-in support is there in the language for
> ** encapsulation. Which in turn leads to so much else in OOP.
> **
> ** Am I reading you correctly?
>
> What I mean is that the language Perl does not have object attributes.
> It's not there in the language, in the same way that C doesn't have
> regular expressions.
OK, we understand each other on that point. I was being a tad nitpicky,
because I'd argue that neither does Java or C++, for example, exactly have
object attributes, any *more* than Perl 5 does. We have an _understanding_,
a contract if you will, that if we do certain things with access specifiers
and accessor methods (get/sets or properties like in C#) that we will agree
that certain fields are object attributes and others are just implementation
details. But there is absolutely nothing stopping me from exposing a
implementation field as a public field in Java, for example, or exposing it
with a public getX() - does the language have anything to say about whether
or not that field is an attribute of the object? No, it doesn't - it's down
to convention and best practices.
I'd argue that the Perl conventions in this sense are no worse than they are
in many of the mainstream OOP languages.
> That doesn't mean you can't do regular expressions in C. They are just
> natively not in the language. If you want them, you as the programmer
> have to do all the work yourself.
I'm from the school that doesn't consider a language and its common
(standard) libraries in isolation. I understand how you're using the term
"native" here - I just don't find it important. I can't do foldr/foldl or
zip/zipWith or length or map or filter in Haskell either without a library,
short of rewriting them, but I consider those native capabilities.
Similarly, if regex capability is available in a standard C library, I
consider RE handling to be native in C. Strip away all the libraries from
Java and the language is a pretty poor thing.
I actually have to do roughly the same amount of work in Java or C++ or C#
or Eiffel to define object attributes as I do in Perl 5. I am, quite
frankly, unconcerned that some people may perceive "public int X" in a Java
class as somehow being more pure and native than a field X in a blessed hash
ref in Perl. At that point they are in fact identical.
> I'm just amazed that people call the absence of elementary construct
> (given that you've decided to support OO in the language) a *feature*.
> I've never heard anyone advocate Java or C for their lack of native
> support for regular expressions or hashes, but people keep considering
> the lack of support for object attributes as the best thing since sliced
> bread.
I don't think Perl is that bad. I fall very strongly on the side of those
who say that it's a knowledgeable programmer who should follow a contract,
not the language that imposes the contract on him or her. Not only that, but
I expect knowledgeable user of my classes, provided that I document them.
There are enough, fairly simple, safeguards in Perl OOP to ensure that if a
user of an OOP module wants to do something that they oughtn't do, they put
some effort into discovering how to do what they shouldn't. And isn't that
really the basic issue?
As far as object attributes go in Perl 5, they are what I say they are, as
fields in whatever ref I choose. I document them. I provide suitable access.
People use them as recommended, or they don't. End of story.
AHS
------------------------------
Date: 19 Nov 2006 19:09:55 -0800
From: "robertospara" <robertospara@gmail.com>
Subject: Do U use >>>>>perl -e 'use re debug;/REGEX/' so U can help??
Message-Id: <1163992195.114948.83190@h54g2000cwb.googlegroups.com>
Hi.
I am involved in work under project that will visualize the process of
matching the regex to input text.
As data to highlight sub-regexes which take a part in each step of
matching I want to use perl debugger output from regex compilation (
perl -e '-re debug; $text =~/regex/'). In the doc file perldebguts is
very less information about subregexes position in regex that are
already use in matching process. If someone every wanted to do that
could have said the same. My question: Eny ideas to get out from
debugger output elements that I could highlight in each step to
visualize matching process.
My last idea was that I could take from offsets (look in perldebguts if
don't know what I mean) the position where sub-regex is ending for
example :
my_regex == son((mother)?father*)+daughter
| | |
13 20 22
So positions 13, 20, 22 I receive from debugger. Then I should write
parser of my regex to get positions :
- beginning of sub-regex "(mother)?"
- beginning of sub-regex "father*"
- beginning of sub-regex "((mother)?father*)+".
I don't see for now any other way. Any clues nice welcome. Best regards.
------------------------------
Date: 19 Nov 2006 19:28:43 -0800
From: "robertospara" <robertospara@gmail.com>
Subject: Re: Do U use >>>>>perl -e 'use re debug;/REGEX/' so U can help??
Message-Id: <1163993323.147450.96080@b28g2000cwb.googlegroups.com>
Secret of offsets:
A(BC?(DE)*)+F - sample of regex
| | |
Comment: Offsets include information about fingered ends of the
sub-regexen, as U can see above:
Offsets: [29]
1[1] 0[0] 12[1] 0[0] 2[1] 0[0] 3[1] 0[0] 5[1] 0[0] 4[1] 0[0]
10[1] 0[0] 6[1] 0[0] 7[2] 0[0] 9[1] 0[0] 10[0] 10[0]
+ ( ?
C * (
%%%%%% %%%%%%
%%%%%
11[1] 0[0] 12[0] 12[0] 13[1] 0[0] 14[0]
t.b.c. but about beginnings too but in reverse queue. So firse
end of su-regex ( with additional quantifier ), then later first next
not-null, this one is the beginning of this sub-regex.
In this way that I would like to show above with bushes of %%%%%
precentages.
So if the first offset or first not-null from left is like position[
length] and position >1 so this is
offset that tells about position of the end of firs subregex in global
regex.
So next not-null after this is the position of the begining of this
sub-regex. Mostly position of
the beginning of global regex.
Ad. I made this "perl -e 'use re debug;/A(BC?(DE)*)+F/'".
So compiled regex looks like this:
Compiling REx `A(BC?(DE)*)+F'
size 29 Got 236 bytes for offset annotations.
first at 1
1: EXACT <A>(3)
3: CURLYX[0] {1,32767}(26)
5: OPEN1(7)
7: EXACT <B>(9)
9: CURLY {0,1}(13)
11: EXACT <C>(0)
13: CURLYM[2] {0,32767}(23)
17: EXACT <DE>(21)
21: SUCCEED(0)
22: NOTHING(23)
23: CLOSE1(25)
25: WHILEM[1/2](0)
26: NOTHING(27)
27: EXACT <F>(29)
29: END(0)
anchored "AB" at 0 floating "F" at 2..2147483647 (checking anchored)
minlen 3
On 20 Lis, 04:09, "robertospara" <robertosp...@gmail.com> wrote:
> Hi.
> I am involved in work under project that will visualize the process of
> matching the regex to input text.
> As data to highlight sub-regexes which take a part in each step of
> matching I want to use perl debugger output from regex compilation (
> perl -e '-re debug; $text =~/regex/'). In the doc file perldebguts is
> very less information about subregexes position in regex that are
> already use in matching process. If someone every wanted to do that
> could have said the same. My question: Eny ideas to get out from
> debugger output elements that I could highlight in each step to
> visualize matching process.
>
> My last idea was that I could take from offsets (look in perldebguts if
> don't know what I mean) the position where sub-regex is ending for
> example :
>
> my_regex == son((mother)?father*)+daughter
>
> | | |
>
> 13 20 22
> So positions 13, 20, 22 I receive from debugger. Then I should write
> parser of my regex to get positions :
> - beginning of sub-regex "(mother)?"
> - beginning of sub-regex "father*"
> - beginning of sub-regex "((mother)?father*)+".
>
> I don't see for now any other way. Any clues nice welcome. Best regards.
------------------------------
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 9983
***************************************
