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.
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
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Computers are like air conditioners.
They malfunction when you open windows
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
