[perl #124815] Roast rakudo skip/todo test:./S32-num/fatrat.t line:191 reason: 'unknown'

2018-05-14 Thread Zoffix Znet via RT 
Test was incorrect.

Fixed in https://github.com/perl6/roast/commit/771a2bbeb1

[perl #124815] Roast rakudo skip/todo test:./S32-num/fatrat.t line:191 reason: 'unknown'

2018-05-14 Thread Zoffix Znet via RT 
Test was incorrect.

Fixed in https://github.com/perl6/roast/commit/771a2bbeb1

[perl #124814] Roast rakudo skip/todo test:./S32-num/fatrat.t line:181 reason: 'FatRat arith + type objects'

2018-05-14 Thread Zoffix Znet via RT 
Re-filed with more details on the issue in 
https://github.com/rakudo/rakudo/issues/1830

Re: Need help converting from Perl 5

2018-05-14 Thread Shlomi Fish 
Hi Todd,

On Sun, 13 May 2018 22:07:59 -0700
ToddAndMargo  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 .

Re: Need help converting from Perl 5

2018-05-14 Thread JJ Merelo 
Maybe this will work

use HTTP::UserAgent;

my $ua = HTTP::UserAgent.new;
$ua.timeout = 10;

my $response = $ua.get("https://ftp.mozilla.org/pub/firefox/releases/;);

if $response.is-success {
say $response.content ~~ m:g{\> (\d+ \. .+?) \/};
}
..

Please post also your question to StackOverflow, you might have better
answers there. This one works directly on the HTML source, but you will
just need to take out \> and \/ to use other. Also it's a global one, if
you work by lines it might be simpler.

El lun., 14 may. 2018 a las 11:21, ToddAndMargo ()
escribió:

> >> El lun., 14 may. 2018 a las 7:08, ToddAndMargo ( >> >) escribió:
> >>
> >> 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
> >>
>
> On 05/13/2018 11:41 PM, JJ Merelo wrote:
> > You want to exclude lines starting with an alphabetic character, or
> > which are composed exclusively by alphabetic characters?
> >
>
>
> I am trying to separate revision numbers (60.0.1, 20.0b5) from
> extraneous directories (latest-esr, 20.0.1-funnelcake22)
>
> You can see a full list before I have at it here:
>
> https://ftp.mozilla.org/pub/firefox/releases/
>
> I just want current releases
>


-- 
JJ

Re: Need help converting from Perl 5

2018-05-14 Thread ToddAndMargo 
El lun., 14 may. 2018 a las 7:08, ToddAndMargo (>) escribió:


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



On 05/13/2018 11:41 PM, JJ Merelo wrote:
You want to exclude lines starting with an alphabetic character, or 
which are composed exclusively by alphabetic characters?





I am trying to separate revision numbers (60.0.1, 20.0b5) from
extraneous directories (latest-esr, 20.0.1-funnelcake22)

You can see a full list before I have at it here:

https://ftp.mozilla.org/pub/firefox/releases/

I just want current releases