Re: I need m/ help

2019-01-13 Thread JJ Merelo
I would say they are numbers that have a value by themselves, but can't be
collated to other numbers to form bigger numbers, that is, they are not
digits and they don't have a positional value.

El dom., 13 ene. 2019 a las 20:13, Timo Paulssen ()
escribió:

> There ought to be some documentation on the unicode website or maybe the
> wikipedia article has some explanation.
>
> Other than that, here's a list of all unicode characters that match <:Nl>:
>
> perl6 -e 'for ^0x10 { say "$_: $(chr($_)) $(uniname($_))" if chr($_)
> ~~ /<:Nl>/ }'
>
> 5870: ᛮ RUNIC ARLAUG SYMBOL
> 5871: ᛯ RUNIC TVIMADUR SYMBOL
> 5872: ᛰ RUNIC BELGTHOR SYMBOL
> 8544: Ⅰ ROMAN NUMERAL ONE
> 8545: Ⅱ ROMAN NUMERAL TWO
> 8546: Ⅲ ROMAN NUMERAL THREE
> 8547: Ⅳ ROMAN NUMERAL FOUR
> 8548: Ⅴ ROMAN NUMERAL FIVE
> 8549: Ⅵ ROMAN NUMERAL SIX
> 8550: Ⅶ ROMAN NUMERAL SEVEN
> 8551: Ⅷ ROMAN NUMERAL EIGHT
> 8552: Ⅸ ROMAN NUMERAL NINE
> 8553: Ⅹ ROMAN NUMERAL TEN
> 8554: Ⅺ ROMAN NUMERAL ELEVEN
> 8555: Ⅻ ROMAN NUMERAL TWELVE
> 8556: Ⅼ ROMAN NUMERAL FIFTY
> 8557: Ⅽ ROMAN NUMERAL ONE HUNDRED
> 8558: Ⅾ ROMAN NUMERAL FIVE HUNDRED
> 8559: Ⅿ ROMAN NUMERAL ONE THOUSAND
> 8560: ⅰ SMALL ROMAN NUMERAL ONE
> 8561: ⅱ SMALL ROMAN NUMERAL TWO
> 8562: ⅲ SMALL ROMAN NUMERAL THREE
> 8563: ⅳ SMALL ROMAN NUMERAL FOUR
> 8564: ⅴ SMALL ROMAN NUMERAL FIVE
> 8565: ⅵ SMALL ROMAN NUMERAL SIX
> 8566: ⅶ SMALL ROMAN NUMERAL SEVEN
> 8567: ⅷ SMALL ROMAN NUMERAL EIGHT
> 8568: ⅸ SMALL ROMAN NUMERAL NINE
> 8569: ⅹ SMALL ROMAN NUMERAL TEN
> 8570: ⅺ SMALL ROMAN NUMERAL ELEVEN
> 8571: ⅻ SMALL ROMAN NUMERAL TWELVE
> 8572: ⅼ SMALL ROMAN NUMERAL FIFTY
> 8573: ⅽ SMALL ROMAN NUMERAL ONE HUNDRED
> 8574: ⅾ SMALL ROMAN NUMERAL FIVE HUNDRED
> 8575: ⅿ SMALL ROMAN NUMERAL ONE THOUSAND
> 8576: ↀ ROMAN NUMERAL ONE THOUSAND C D
> 8577: ↁ ROMAN NUMERAL FIVE THOUSAND
> 8578: ↂ ROMAN NUMERAL TEN THOUSAND
> 8581: ↅ ROMAN NUMERAL SIX LATE FORM
> 8582: ↆ ROMAN NUMERAL FIFTY EARLY FORM
> 8583: ↇ ROMAN NUMERAL FIFTY THOUSAND
> 8584: ↈ ROMAN NUMERAL ONE HUNDRED THOUSAND
> 12295: 〇 IDEOGRAPHIC NUMBER ZERO
> 12321: 〡 HANGZHOU NUMERAL ONE
> 12322: 〢 HANGZHOU NUMERAL TWO
> 12323: 〣 HANGZHOU NUMERAL THREE
> 12324: 〤 HANGZHOU NUMERAL FOUR
> 12325: 〥 HANGZHOU NUMERAL FIVE
> 12326: 〦 HANGZHOU NUMERAL SIX
> 12327: 〧 HANGZHOU NUMERAL SEVEN
> 12328: 〨 HANGZHOU NUMERAL EIGHT
> 12329: 〩 HANGZHOU NUMERAL NINE
> 12344: 〸 HANGZHOU NUMERAL TEN
> 12345: 〹 HANGZHOU NUMERAL TWENTY
> 12346: 〺 HANGZHOU NUMERAL THIRTY
> 42726: ꛦ BAMUM LETTER MO
> 42727: ꛧ BAMUM LETTER MBAA
> 42728: ꛨ BAMUM LETTER TET
> 42729: ꛩ BAMUM LETTER KPA
> 42730: ꛪ BAMUM LETTER TEN
> 42731: ꛫ BAMUM LETTER NTUU
> 42732: ꛬ BAMUM LETTER SAMBA
> 42733: ꛭ BAMUM LETTER FAAMAE
> 42734: ꛮ BAMUM LETTER KOVUU
> 42735: ꛯ BAMUM LETTER KOGHOM
> 65856: 𐅀 GREEK ACROPHONIC ATTIC ONE QUARTER
> 65857: 𐅁 GREEK ACROPHONIC ATTIC ONE HALF
> 65858: 𐅂 GREEK ACROPHONIC ATTIC ONE DRACHMA
> 65859: 𐅃 GREEK ACROPHONIC ATTIC FIVE
> 65860: 𐅄 GREEK ACROPHONIC ATTIC FIFTY
> 65861: 𐅅 GREEK ACROPHONIC ATTIC FIVE HUNDRED
> 65862: 𐅆 GREEK ACROPHONIC ATTIC FIVE THOUSAND
> 65863: 𐅇 GREEK ACROPHONIC ATTIC FIFTY THOUSAND
> 65864: 𐅈 GREEK ACROPHONIC ATTIC FIVE TALENTS
> 65865: 𐅉 GREEK ACROPHONIC ATTIC TEN TALENTS
> 65866: 𐅊 GREEK ACROPHONIC ATTIC FIFTY TALENTS
> 65867: 𐅋 GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS
> 65868: 𐅌 GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS
> 65869: 𐅍 GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS
> 65870: 𐅎 GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS
> 65871: 𐅏 GREEK ACROPHONIC ATTIC FIVE STATERS
> 65872: 𐅐 GREEK ACROPHONIC ATTIC TEN STATERS
> 65873: 𐅑 GREEK ACROPHONIC ATTIC FIFTY STATERS
> 65874: 𐅒 GREEK ACROPHONIC ATTIC ONE HUNDRED STATERS
> 65875: 𐅓 GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS
> 65876: 𐅔 GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS
> 65877: 𐅕 GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS
> 65878: 𐅖 GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS
> 65879: 𐅗 GREEK ACROPHONIC ATTIC TEN MNAS
> 65880: 𐅘 GREEK ACROPHONIC HERAEUM ONE PLETHRON
> 65881: 𐅙 GREEK ACROPHONIC THESPIAN ONE
> 65882: 𐅚 GREEK ACROPHONIC HERMIONIAN ONE
> 65883: 𐅛 GREEK ACROPHONIC EPIDAUREAN TWO
> 65884: 𐅜 GREEK ACROPHONIC THESPIAN TWO
> 65885: 𐅝 GREEK ACROPHONIC CYRENAIC TWO DRACHMAS
> 65886: 𐅞 GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS
> 65887: 𐅟 GREEK ACROPHONIC TROEZENIAN FIVE
> 65888: 𐅠 GREEK ACROPHONIC TROEZENIAN TEN
> 65889: 𐅡 GREEK ACROPHONIC TROEZENIAN TEN ALTERNATE FORM
> 65890: 𐅢 GREEK ACROPHONIC HERMIONIAN TEN
> 65891: 𐅣 GREEK ACROPHONIC MESSENIAN TEN
> 65892: 𐅤 GREEK ACROPHONIC THESPIAN TEN
> 65893: 𐅥 GREEK ACROPHONIC THESPIAN THIRTY
> 65894: 𐅦 GREEK ACROPHONIC TROEZENIAN FIFTY
> 65895: 𐅧 GREEK ACROPHONIC TROEZENIAN FIFTY ALTERNATE FORM
> 65896: 𐅨 GREEK ACROPHONIC HERMIONIAN FIFTY
> 65897: 𐅩 GREEK ACROPHONIC THESPIAN FIFTY
> 65898: 𐅪 GREEK ACROPHONIC THESPIAN ONE HUNDRED
> 65899: 𐅫 GREEK ACROPHONIC THESPIAN THREE HUNDRED
> 65900: 𐅬 GREEK ACROPHONIC EPIDAUREAN FIVE HUNDRED
> 65901: 𐅭 GREEK ACROPHONIC TROEZENIAN FIVE HUNDRED
> 65902: 𐅮 GREEK ACROPHONIC THESPIAN FIVE HUNDRED
> 65903: 𐅯 GRE

Re: POD: linking to a module

2019-01-13 Thread Vadim Belman


> 
> Not to mention different module versions, on top of what you wrote.
> 
> Ok, I would think about it. One thing comes to my mind: in Synopsis 26 
> (https://design.perl6.org/S26.html ) there 
> is a mention of =config directive. It can be used to define where the links 
> must point to. Something like:
> 
> =config github:/user/module/tree/master/docs
> 
> I'm not sure =config is implemented right now, my money is on NYI. And still 
> there's the problem that pod6 or pod-embedded-in-Perl6 is not rendered 
> anywhere, I think, not even in modules.perl6.org . 
> Dumping someone in a page full of Pod6 source code is LTA. I mean, you can as 
> well create a link to actual, rendered documents that you have generated 
> somewhere.

I know it is not implemented, but it might be at some point. So, perhaps it 
makes sense to think out a possible solution?

As to the format issue – I for myself solved it for now by generating both .md 
and .html and writing a script which patches source PODs to point links at the 
right version tag on github. Perhaps, this will be the best approach for a 
couple of years to come.

Best regards,
Vadim Belman



Re: I need m/ help

2019-01-13 Thread ToddAndMargo via perl6-users

On 1/13/19 2:04 PM, Brad Gilbert wrote:

<:Nl> matches a Number that is letter-like


Hi Brad and Timo,

Now I understand.  It is for non-Arabic numbers such
as Roman numerals.

Thank you!

-T


Re: I need m/ help

2019-01-13 Thread Brad Gilbert
<:Nl> matches a Number that is letter-like

I mean obviously `Ⅿ` (ROMAN NUMERAL ONE THOUSAND) looks like a letter.

There is also <:Nd> for Number digit,
and <:No> for other Numbers

If you want to find out the general category of a character you can
call `.uniprop`.

say "1".uniprop; # Nd # Number digit
say "Ⅿ".uniprop; # Nl # Number letter # (ROMAN NUMERAL ONE THOUSAND)
say "¼".uniprop; # No # Number other

say "m".uniprop; # Ll # Letter lowercase
say "M".uniprop; # Lu # Letter uppercase
say "ߢ".uniprop; # Lo # Letter other
say "ῼ".uniprop; # Lt # Letter titlecase
say "ʹ".uniprop; # Lm # Letter modifier # (MODIFIER LETTER PRIME)

say (0..0x10).map(*.uniprop).Set.keys.sort;
# (Cc Cf Cn Co Cs Ll Lm Lo Lt Lu Mc Me Mn Nd Nl No Pc Pd Pe Pf Pi
Po Ps Sc Sk Sm So Zl Zp Zs)

These are all defined by Unicode.

The MODIFIER LETTER PRIME is particularly useful if you want to write code like:

my \A = …;
my \Aʹ = A + …;

That works because it is a letter.

Note that if you call it on a number you are asking for the uniprop of
the character with that codepoint.

say "A".ord; # 65
say 65.uniprop; # Lu # because A is an uppercase Letter

There is also a `.uniprops` for getting a sequence of unicode
properties for each character in a string.

say "A5".uniprops; # (Lu Nd)
say "A5".comb.map(*.uniprop); # (Lu Nd)

On Sun, Jan 13, 2019 at 2:42 AM ToddAndMargo via perl6-users
 wrote:
>
> On 1/12/19 3:04 PM, Timo Paulssen wrote:
> > On 12/01/2019 23:40, ToddAndMargo via perl6-users wrote:
> >> But this does not.  What is wrong with (<:N>**2)  ?
> >>
> >> $ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>**4) "-"
> >> (<:N>**2) "-" (<:Nl>**2) "T" .* /; print "$Date\n\t$0  $1  $2\n"'
> >> Use of Nil in string context
> >>in block  at -e line 1
> >> Use of Nil in string context
> >>in block  at -e line 1
> >> Use of Nil in string context
> >>in block  at -e line 1
> >> 2019-01-12T14:33:10.692302-08:00
> >>
> >>
> >> Many thanks,
> >> -T
> >
> >
> > Hi Todd,
> >
> > it looks like you have an accidental l in there: the third capture group
> > has <:Nl> instead of <:N>.
> >
> > Changing that makes it work for me
> >- Timo
> >
>
> Hi Timo,
>
> Just out of curiosity, what is the difference between "Number (<:N>)"
> and "Number Like (<:Nl>)"?  What would they not be the same in this context?
>
> My latest:
>
> $ perl6 -e 'DateTime.now.Str ~~ m/ (<:N>+) "-" (<:N>+) "-" (<:N>+) "T"
> .* /; my Str $Po="$1$2x$0_"; $Po~~s/x20//;print "$Po\n";'
>
> 011319_
>
> I stuck the "x" in there so I would not clobber day = 20.
>
> -T


Re: I need m/ help

2019-01-13 Thread Timo Paulssen
There ought to be some documentation on the unicode website or maybe the
wikipedia article has some explanation.

Other than that, here's a list of all unicode characters that match <:Nl>:

perl6 -e 'for ^0x10 { say "$_: $(chr($_)) $(uniname($_))" if chr($_)
~~ /<:Nl>/ }'

5870: ᛮ RUNIC ARLAUG SYMBOL
5871: ᛯ RUNIC TVIMADUR SYMBOL
5872: ᛰ RUNIC BELGTHOR SYMBOL
8544: Ⅰ ROMAN NUMERAL ONE
8545: Ⅱ ROMAN NUMERAL TWO
8546: Ⅲ ROMAN NUMERAL THREE
8547: Ⅳ ROMAN NUMERAL FOUR
8548: Ⅴ ROMAN NUMERAL FIVE
8549: Ⅵ ROMAN NUMERAL SIX
8550: Ⅶ ROMAN NUMERAL SEVEN
8551: Ⅷ ROMAN NUMERAL EIGHT
8552: Ⅸ ROMAN NUMERAL NINE
8553: Ⅹ ROMAN NUMERAL TEN
8554: Ⅺ ROMAN NUMERAL ELEVEN
8555: Ⅻ ROMAN NUMERAL TWELVE
8556: Ⅼ ROMAN NUMERAL FIFTY
8557: Ⅽ ROMAN NUMERAL ONE HUNDRED
8558: Ⅾ ROMAN NUMERAL FIVE HUNDRED
8559: Ⅿ ROMAN NUMERAL ONE THOUSAND
8560: ⅰ SMALL ROMAN NUMERAL ONE
8561: ⅱ SMALL ROMAN NUMERAL TWO
8562: ⅲ SMALL ROMAN NUMERAL THREE
8563: ⅳ SMALL ROMAN NUMERAL FOUR
8564: ⅴ SMALL ROMAN NUMERAL FIVE
8565: ⅵ SMALL ROMAN NUMERAL SIX
8566: ⅶ SMALL ROMAN NUMERAL SEVEN
8567: ⅷ SMALL ROMAN NUMERAL EIGHT
8568: ⅸ SMALL ROMAN NUMERAL NINE
8569: ⅹ SMALL ROMAN NUMERAL TEN
8570: ⅺ SMALL ROMAN NUMERAL ELEVEN
8571: ⅻ SMALL ROMAN NUMERAL TWELVE
8572: ⅼ SMALL ROMAN NUMERAL FIFTY
8573: ⅽ SMALL ROMAN NUMERAL ONE HUNDRED
8574: ⅾ SMALL ROMAN NUMERAL FIVE HUNDRED
8575: ⅿ SMALL ROMAN NUMERAL ONE THOUSAND
8576: ↀ ROMAN NUMERAL ONE THOUSAND C D
8577: ↁ ROMAN NUMERAL FIVE THOUSAND
8578: ↂ ROMAN NUMERAL TEN THOUSAND
8581: ↅ ROMAN NUMERAL SIX LATE FORM
8582: ↆ ROMAN NUMERAL FIFTY EARLY FORM
8583: ↇ ROMAN NUMERAL FIFTY THOUSAND
8584: ↈ ROMAN NUMERAL ONE HUNDRED THOUSAND
12295: 〇 IDEOGRAPHIC NUMBER ZERO
12321: 〡 HANGZHOU NUMERAL ONE
12322: 〢 HANGZHOU NUMERAL TWO
12323: 〣 HANGZHOU NUMERAL THREE
12324: 〤 HANGZHOU NUMERAL FOUR
12325: 〥 HANGZHOU NUMERAL FIVE
12326: 〦 HANGZHOU NUMERAL SIX
12327: 〧 HANGZHOU NUMERAL SEVEN
12328: 〨 HANGZHOU NUMERAL EIGHT
12329: 〩 HANGZHOU NUMERAL NINE
12344: 〸 HANGZHOU NUMERAL TEN
12345: 〹 HANGZHOU NUMERAL TWENTY
12346: 〺 HANGZHOU NUMERAL THIRTY
42726: ꛦ BAMUM LETTER MO
42727: ꛧ BAMUM LETTER MBAA
42728: ꛨ BAMUM LETTER TET
42729: ꛩ BAMUM LETTER KPA
42730: ꛪ BAMUM LETTER TEN
42731: ꛫ BAMUM LETTER NTUU
42732: ꛬ BAMUM LETTER SAMBA
42733: ꛭ BAMUM LETTER FAAMAE
42734: ꛮ BAMUM LETTER KOVUU
42735: ꛯ BAMUM LETTER KOGHOM
65856: 𐅀 GREEK ACROPHONIC ATTIC ONE QUARTER
65857: 𐅁 GREEK ACROPHONIC ATTIC ONE HALF
65858: 𐅂 GREEK ACROPHONIC ATTIC ONE DRACHMA
65859: 𐅃 GREEK ACROPHONIC ATTIC FIVE
65860: 𐅄 GREEK ACROPHONIC ATTIC FIFTY
65861: 𐅅 GREEK ACROPHONIC ATTIC FIVE HUNDRED
65862: 𐅆 GREEK ACROPHONIC ATTIC FIVE THOUSAND
65863: 𐅇 GREEK ACROPHONIC ATTIC FIFTY THOUSAND
65864: 𐅈 GREEK ACROPHONIC ATTIC FIVE TALENTS
65865: 𐅉 GREEK ACROPHONIC ATTIC TEN TALENTS
65866: 𐅊 GREEK ACROPHONIC ATTIC FIFTY TALENTS
65867: 𐅋 GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS
65868: 𐅌 GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS
65869: 𐅍 GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS
65870: 𐅎 GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS
65871: 𐅏 GREEK ACROPHONIC ATTIC FIVE STATERS
65872: 𐅐 GREEK ACROPHONIC ATTIC TEN STATERS
65873: 𐅑 GREEK ACROPHONIC ATTIC FIFTY STATERS
65874: 𐅒 GREEK ACROPHONIC ATTIC ONE HUNDRED STATERS
65875: 𐅓 GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS
65876: 𐅔 GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS
65877: 𐅕 GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS
65878: 𐅖 GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS
65879: 𐅗 GREEK ACROPHONIC ATTIC TEN MNAS
65880: 𐅘 GREEK ACROPHONIC HERAEUM ONE PLETHRON
65881: 𐅙 GREEK ACROPHONIC THESPIAN ONE
65882: 𐅚 GREEK ACROPHONIC HERMIONIAN ONE
65883: 𐅛 GREEK ACROPHONIC EPIDAUREAN TWO
65884: 𐅜 GREEK ACROPHONIC THESPIAN TWO
65885: 𐅝 GREEK ACROPHONIC CYRENAIC TWO DRACHMAS
65886: 𐅞 GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS
65887: 𐅟 GREEK ACROPHONIC TROEZENIAN FIVE
65888: 𐅠 GREEK ACROPHONIC TROEZENIAN TEN
65889: 𐅡 GREEK ACROPHONIC TROEZENIAN TEN ALTERNATE FORM
65890: 𐅢 GREEK ACROPHONIC HERMIONIAN TEN
65891: 𐅣 GREEK ACROPHONIC MESSENIAN TEN
65892: 𐅤 GREEK ACROPHONIC THESPIAN TEN
65893: 𐅥 GREEK ACROPHONIC THESPIAN THIRTY
65894: 𐅦 GREEK ACROPHONIC TROEZENIAN FIFTY
65895: 𐅧 GREEK ACROPHONIC TROEZENIAN FIFTY ALTERNATE FORM
65896: 𐅨 GREEK ACROPHONIC HERMIONIAN FIFTY
65897: 𐅩 GREEK ACROPHONIC THESPIAN FIFTY
65898: 𐅪 GREEK ACROPHONIC THESPIAN ONE HUNDRED
65899: 𐅫 GREEK ACROPHONIC THESPIAN THREE HUNDRED
65900: 𐅬 GREEK ACROPHONIC EPIDAUREAN FIVE HUNDRED
65901: 𐅭 GREEK ACROPHONIC TROEZENIAN FIVE HUNDRED
65902: 𐅮 GREEK ACROPHONIC THESPIAN FIVE HUNDRED
65903: 𐅯 GREEK ACROPHONIC CARYSTIAN FIVE HUNDRED
65904: 𐅰 GREEK ACROPHONIC NAXIAN FIVE HUNDRED
65905: 𐅱 GREEK ACROPHONIC THESPIAN ONE THOUSAND
65906: 𐅲 GREEK ACROPHONIC THESPIAN FIVE THOUSAND
65907: 𐅳 GREEK ACROPHONIC DELPHIC FIVE MNAS
65908: 𐅴 GREEK ACROPHONIC STRATIAN FIFTY MNAS
66369: 𐍁 GOTHIC LETTER NINETY
66378: 𐍊 GOTHIC LETTER NINE HUNDRED
66513: 𐏑 OLD PERSIAN NUMBER ONE
66514: 𐏒 OLD PERSIAN NUMBER TWO
66515: 𐏓 OLD PERSIAN NUMBER TEN
66516: 𐏔 OLD PERSIAN NUMBER TWENTY
66517: 𐏕 OLD PERSIAN NUMBER HU

Re: POD: linking to a module

2019-01-13 Thread JJ Merelo
Hi,

El dom., 13 ene. 2019 a las 1:48, Vadim Belman () escribió:

> Not to mention different module versions, on top of what you wrote.
>
> Ok, I would think about it. One thing comes to my mind: in Synopsis 26 (
> https://design.perl6.org/S26.html) there is a mention of =config
> directive. It can be used to define where the links must point to.
> Something like:
>
> =config github:/user/module/tree/master/docs
>

I'm not sure =config is implemented right now, my money is on NYI. And
still there's the problem that pod6 or pod-embedded-in-Perl6 is not
rendered anywhere, I think, not even in modules.perl6.org. Dumping someone
in a page full of Pod6 source code is LTA. I mean, you can as well create a
link to actual, rendered documents that you have generated somewhere.

Cheers

JJ


Re: I need m/ help

2019-01-13 Thread ToddAndMargo via perl6-users

On 1/12/19 3:04 PM, Timo Paulssen wrote:

On 12/01/2019 23:40, ToddAndMargo via perl6-users wrote:

But this does not.  What is wrong with (<:N>**2)  ?

$ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>**4) "-"
(<:N>**2) "-" (<:Nl>**2) "T" .* /; print "$Date\n\t$0  $1  $2\n"'
Use of Nil in string context
   in block  at -e line 1
Use of Nil in string context
   in block  at -e line 1
Use of Nil in string context
   in block  at -e line 1
2019-01-12T14:33:10.692302-08:00


Many thanks,
-T



Hi Todd,

it looks like you have an accidental l in there: the third capture group
has <:Nl> instead of <:N>.

Changing that makes it work for me
   - Timo



Thank you!

Mumble, mumble


Re: I need m/ help

2019-01-13 Thread ToddAndMargo via perl6-users

On 1/12/19 3:04 PM, Timo Paulssen wrote:

On 12/01/2019 23:40, ToddAndMargo via perl6-users wrote:

But this does not.  What is wrong with (<:N>**2)  ?

$ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>**4) "-"
(<:N>**2) "-" (<:Nl>**2) "T" .* /; print "$Date\n\t$0  $1  $2\n"'
Use of Nil in string context
   in block  at -e line 1
Use of Nil in string context
   in block  at -e line 1
Use of Nil in string context
   in block  at -e line 1
2019-01-12T14:33:10.692302-08:00


Many thanks,
-T



Hi Todd,

it looks like you have an accidental l in there: the third capture group
has <:Nl> instead of <:N>.

Changing that makes it work for me
   - Timo



Hi Timo,

Just out of curiosity, what is the difference between "Number (<:N>)"
and "Number Like (<:Nl>)"?  What would they not be the same in this context?

My latest:

$ perl6 -e 'DateTime.now.Str ~~ m/ (<:N>+) "-" (<:N>+) "-" (<:N>+) "T" 
.* /; my Str $Po="$1$2x$0_"; $Po~~s/x20//;print "$Po\n";'


011319_

I stuck the "x" in there so I would not clobber day = 20.

-T