Hi Todd,
On Sun, 13 May 2018 22:07:59 -0700
ToddAndMargo <toddandma...@zoho.com> wrote:
> On 05/13/2018 09:41 PM, ToddAndMargo wrote:
> > Hi All,
> >
> > I can't not remember what I did in Perl 5 here and
> > am not having a good time converting it to Perl 6.
> >
> > $ perl -e 'my $A="44.rc0"; if ($A ~~ /(^[0-9,.,a,b,rc]+$)/ ) {print
> > "$1\n";} else {print "\$A = <$A>\n"}'
> >
> > 44.rc0
> >
> > The actual code is:
> > if ( $Line2 ~~ /(^[0-9,.]+$)/ ) { push ( @WebVersions, $Line2 ); }
> >
> > The actual data looks like:
> >
> > $Line2 = 6.0.1
> > $Line2 = 6.0.2
> > $Line2 = 6.0
> > $Line2 = 6.0b1
> > $Line2 = 6.0b2
> > $Line2 = 6.0b3
> > $Line2 = 6.0b4
> > $Line2 = 6.0b5
> > $Line2 = 60.0
> > $Line2 = 60.0b10
> > $Line2 = 60.0b11
> > $Line2 = 60.0b12
> >
> > I am trying to exclude things that look like:
> >
> > $Line2 = bonecho
> > $Line2 = custom-updates
> > $Line2 = deerpark
> > $Line2 = devpreview
> > $Line2 = granparadiso
> > $Line2 = latest-beta
> > $Line2 = latest-esr
> >
> >
> > Many thanks,
> > -T
>
> perl6.org is down by the way.
>
https://docs.perl6.org/type.html and https://perl6.org/ seem fine from here now
- please try again.
> Is this right?
>
> perl6 -e 'my $A="44.rc20"; if $A ~~ m/( \d**1..4 "." ( "a" | "b" | "rc"
> ) .*$ ) / {say "$0";} else {say "no match";}'
>
> 44.rc20
>
>
>
--
-----------------------------------------------------------------
Shlomi Fish http://www.shlomifish.org/
Best Introductory Programming Language - http://shlom.in/intro-lang
*Harry*: Yes, it is obvious that this pig is the most beautiful person for
miles.
*Miss Piggy*: Indeed. Candice Swanepoel ain’t got nothing on… Moi!
— http://is.gd/zsmond
Please reply to list if it's a mailing list post - http://shlom.in/reply .
