Re: Array remove duplicates question

On 5/6/24 05:45, yary wrote: I thought you wanted them sorted also? [1] > (8,7,6,7,5,4,2,1).unique (8 7 6 5 4 2 1) [2] > (8,7,6,7,5,4,2,1).unique.sort (1 2 4 5 6 7 8) -y Hi Yary, Not in this instance. But the the command is really sweet. Thank you! This time I am going the extract IP

Re: Array remove duplicates question

On 5/6/24 03:07, ToddAndMargo via perl6-users wrote: On 6 May 2024, at 04:35, ToddAndMargo via perl6-users wrote: Hi All, I have thought of how to do it and pretty sure it would work, but just in case Raku have one of those sweet utilities, does Raku have a utility that will take an array

Re: Array remove duplicates question

On 6 May 2024, at 04:35, ToddAndMargo via perl6-users wrote: Hi All, I have thought of how to do it and pretty sure it would work, but just in case Raku have one of those sweet utilities, does Raku have a utility that will take an array and remove all the duplicates and rearrange the cells

Re: Need regex ^? help

This is what I have so far. my $x=" 1.2.3.4:12345 "; $x = $x.trim; $x~~s/(.*'.') .*/$0$(Q[0/24])/; say "<$x>"; <1.2.3.0/24> It works. Is there a way to petty it up with ^ and $ ?

Array remove duplicates question

Hi All, I have thought of how to do it and pretty sure it would work, but just in case Raku have one of those sweet utilities, does Raku have a utility that will take an array and remove all the duplicates and rearrange the cells back in order? Many thanks, -T

Re: Need regex ^? help

tring (\d+$), then replaces them with the string "0/24". Everything prior to those digits is left alone. On Mon, Apr 29, 2024 at 05:45:49PM -0700, ToddAndMargo via perl6-users wrote: On 4/29/24 17:42, ToddAndMargo via perl6-users wrote: Hi All, I thought I understood ^ and ? used in a r

Re: Need regex ^? help

On 4/29/24 17:42, ToddAndMargo via perl6-users wrote: Hi All, I thought I understood ^ and ? used in a regex'es, but I don't. ^ means from the beginning and ? from the end. I am trying to put together an example of how to use them: I have    1.2.3.4 I want    1.2.3.0/24 So Far I have

Need regex ^? help

Hi All, I thought I understood ^ and ? used in a regex'es, but I don't. ^ means from the beginning and ? from the end. I am trying to put together an example of how to use them: I have 1.2.3.4 I want 1.2.3.0/24 So Far I have (not working): raku -e 'my $x="1.2.3.4"; $x~~s/ (.*)

Re: Is irc.libera.chat down?

A sex, 19-04-2024 às 03:09 -0700, Todd Chester via perl6-users escreveu: A sex, 19-04-2024 às 02:36 -0700, Todd Chester via perl6-users escreveu: Hi All, Is https://kiwiirc.com/nextclient/irc.libera.chat/#raku down? -T On 4/19/24 03:03, David Santiago wrote:  >  > It works for me.

Re: need native call help

On 4/17/24 19:10, William Michels via perl6-users wrote: Hi Todd, Here are a few U StackExchange answers that I wrote using Raku's `unlink`: https://unix.stackexchange.com/questions/459521/how-to-truncate-file-to-maximum-number-of-characters-not-bytes/751267#751267

Re: need native call help

On 4/17/24 05:52, yary wrote: From unlink's documentation: If the file to be deleted does not exist, the routine treats it as success. So trying to delete a file that isn't there, doesn't have an error, which is kind of neat, but that is a difference from native delete. -y Hi Yary, Not

Re: need native call help

On 4/17/24 05:52, yary wrote: From unlink's documentation: If the file to be deleted does not exist, the routine treats it as success. So trying to delete a file that isn't there, doesn't have an error, which is kind of neat, but that is a difference from native delete. -y Hi Yary, Not

Re: need native call help

On 4/17/24 05:50, yary wrote: What does the windows native delete do which you need, that raku's unlink doesn't have? without unlink $FileName { say "Could not delete $FileName:", .exception.message }; -y Hi Yary, This is Windows we are dealing with. It is a kluge. I have had unlink

Re: need native call help

On 4/16/24 23:25, ToddAndMargo via perl6-users wrote: `\\>\` should have been `\\?\`

Re: need native call help

On 4/16/24 20:57, ToddAndMargo via perl6-users wrote:    $LongName = $FileName;    if $FileName.chars >= MAX_PATH  { $LongName = Q[\\?\] ~ $FileName; } What the about is all about is that MAX_PATH, which limits the file name to 260 characters, can go up to 32,767 wide characters, prep

Re: need native call help

On 4/16/24 18:43, ToddAndMargo via perl6-users wrote: On 4/16/24 01:21, ToddAndMargo via perl6-users wrote: Hi All, Windows 11 It has been so long that I have done one of these that my brain is seizing. https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-deletefilea C

Re: need native call help

On 4/16/24 01:21, ToddAndMargo via perl6-users wrote: Hi All, Windows 11 It has been so long that I have done one of these that my brain is seizing. https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-deletefilea C++ BOOL DeleteFileA(   [in] LPCSTR lpFileName ); Would

need native call help

Hi All, Windows 11 It has been so long that I have done one of these that my brain is seizing. https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-deletefilea C++ BOOL DeleteFileA( [in] LPCSTR lpFileName ); Would some kind soul please show me how to do this again?

Re: I need sorting help

On 3/2/24 05:13, Elizabeth Mattijsen wrote: $ raku -e '.say for .sort(*.split(/\d+/, :kv).map({ (try .Numeric) // $_}).List) afoo2 afoo12 On 2 Mar 2024, at 07:26, ToddAndMargo via perl6-users wrote: Hi All, @Sorted_List = @Sorted_List.sort: { .comb(/ \d+ | \D+ /) .map({ .Int // .self

Re: I need sorting help

On 3/4/24 23:01, ToddAndMargo via perl6-users wrote: No I have Sould have been Now I have

Re: I need sorting help

On 3/4/24 22:09, Bruce Gray wrote: On Mar 4, 2024, at 15:55, ToddAndMargo via perl6-users wrote: --snip-- $ raku -e '.say for .sort(*.split(/\d+/, :kv).map({ (try .Numeric) // $_}).List)' bk1 bk2 bk10 bk34 Yippee! tony@rn6:/home/linuxutil1$ raku -e '.say for .sort: { .comb(/ \d

Re: I need sorting help

On 3/4/24 13:55, ToddAndMargo via perl6-users wrote: On 3/4/24 12:40, Ralph Mellor wrote: On Sat, Mar 2, 2024 at 6:26 AM ToddAndMargo via perl6-users wrote: @Sorted_List = @Sorted_List.sort: { .comb(/ \d+ | \D+ /) .map({ .Int // .self })}; In case another answer is helpful... First

Re: I need sorting help

On 3/4/24 12:40, Ralph Mellor wrote: On Sat, Mar 2, 2024 at 6:26 AM ToddAndMargo via perl6-users wrote: @Sorted_List = @Sorted_List.sort: { .comb(/ \d+ | \D+ /) .map({ .Int // .self })}; In case another answer is helpful... First, a simplified sort that produces the same result as your

Re: missing block

On 3/3/24 04:25, Elizabeth Mattijsen wrote: On 3 Mar 2024, at 05:12, ToddAndMargo via perl6-users wrote: $ raku -I./ -c CobianWrapper.pl6 Missing block at /home/CDs/Windows/NtUtil/CobianWrapper.pl6:1000 1000 is the last line in my code. I presume by "block" they mean some

Re: missing block

On 3/2/24 20:12, ToddAndMargo via perl6-users wrote: Hi All, $ raku -I./ -c CobianWrapper.pl6 Missing block at /home/CDs/Windows/NtUtil/CobianWrapper.pl6:1000 1000 is the last line in my code.  I presume by "block" they mean something like "]" or "}" Do I

missing block

Hi All, $ raku -I./ -c CobianWrapper.pl6 Missing block at /home/CDs/Windows/NtUtil/CobianWrapper.pl6:1000 1000 is the last line in my code. I presume by "block" they mean something like "]" or "}" Do I really have to read 1000 lines of code to find my screw up? Anyone have a tip on how to

Re: pint: Elizabeth, sort list???

On 3/2/24 19:14, Clifton Wood wrote: .sort(*.split(/\d+/, :kv).map({ (try .Numeric) // $_}).List) Can you take apart the above for me?

Re: ping: Elizabeth, sort list???

Sorry, that was suppose to be "ping: not "pint:

pint: Elizabeth, sort list???

On 3/2/24 05:13, Elizabeth Mattijsen wrote: .sort(*.split(/\d+/, :kv).map({ (try .Numeric) // $_}).List) Hi Elizabeth, It works perfectly. Thank you! I have no idea why, I will ask you in another post Hi Elizabeth, Would you take apart your sort piece by piece and explain each part?

Re: I need sorting help

On 3/2/24 05:13, Elizabeth Mattijsen wrote: .sort(*.split(/\d+/, :kv).map({ (try .Numeric) // $_}).List) Hi Elizabeth, It works perfectly. Thank you! I have no idea why, I will ask you in another post -T

I need sorting help

Hi All, @Sorted_List = @Sorted_List.sort: { .comb(/ \d+ | \D+ /) .map({ .Int // .self })}; gives me Element [0] Element [1] Element [2] Element [3] Element [4] Element [5] Element [6] Element [7] Element [8] Element [9] I need it to say

Re: disable coercing?

On 2/25/24 17:45, Joseph Brenner wrote: Would this trick help? You can define a "subset" that restricts values to the uint16 range: my subset FussyUint16 of Int where 0 ..^ 2¹⁶; my FussyUint16 $x; $x = -1; ## Type check failed in assignment to $x; expected FussyUint16

Re: pm6 naming convention

On 2/12/24 15:04, Will Coleda wrote: On Mon, Feb 12, 2024 at 5:32 PM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: On 2/12/24 14:29, ToddAndMargo via perl6-users wrote: >>> On Mon, Feb 12, 2024 at 3:24 PM ToddAndMargo via perl6-users >>

Re: pm6 naming convention

On 2/12/24 15:04, Will Coleda wrote: Pull requests welcome, and if you have any specific notes about searches that aren't working for you, please report them on https://github.com/Raku/doc/issues . You can click on the edit icon on that doc page to easily

Re: pm6 naming convention

On 2/12/24 14:29, ToddAndMargo via perl6-users wrote: On Mon, Feb 12, 2024 at 3:24 PM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote:     Has .pl6 been renamed too? On 2/12/24 12:37, Will Coleda wrote: > Please see: https://docs.raku.org/language/filename-e

Re: pm6 naming convention

On Mon, Feb 12, 2024 at 3:24 PM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: Has .pl6 been renamed too? On 2/12/24 12:37, Will Coleda wrote: > Please see: https://docs.raku.org/language/filename-extensions > <https://docs.raku.org/language/file

Re: pm6 naming convention

On 12 Feb 2024, at 20:34, ToddAndMargo via perl6-users wrote: On 6 Feb 2024, at 18:08, ToddAndMargo via perl6-users wrote: Hi All, I use AnyDesk for remoter customer support. Work rather well. The file transfer portion, which I adore, posts a Microsoft Office Publisher Icon (a big

Re: pm6 naming convention

On 6 Feb 2024, at 18:08, ToddAndMargo via perl6-users wrote: Hi All, I use AnyDesk for remoter customer support. Work rather well. The file transfer portion, which I adore, posts a Microsoft Office Publisher Icon (a big one) when it hits a .pm6 modules. Is there a different naming

Re: who call raku?

On 2/10/24 16:01, ToddAndMargo via perl6-users wrote: On 2/10/24 15:26, Marc Chantreux wrote: On Thu, Feb 08, 2024 at 02:25:00PM -0800, ToddAndMargo via perl6-users wrote: Actually, I am looking for the name of the calling program: Cobian, Task manager, deamon, etc.. linux centric anwser

Re: who call raku?

On 2/10/24 15:26, Marc Chantreux wrote: On Thu, Feb 08, 2024 at 02:25:00PM -0800, ToddAndMargo via perl6-users wrote: Actually, I am looking for the name of the calling program: Cobian, Task manager, deamon, etc.. linux centric anwser: raku -e 'say "/proc/{"/proc/$*PID/stat&q

Re: disable coercing?

On 2/10/24 02:41, Elizabeth Mattijsen wrote: On 10 Feb 2024, at 08:56, ToddAndMargo via perl6-users wrote: Hi All, Is there a switch to tell Raku to bomb out with a type mismatch rather than coercing the following? my uint16 $x = -1 65535 No, this is intentional behaviour on native

disable coercing?

Hi All, Is there a switch to tell Raku to bomb out with a type mismatch rather than coercing the following? > my uint16 $x = -1 65535 Many thanks, -T -- If I had a dime every time I didn't know what was going on, I'd be like, "Why is everyone giving

Re: who call raku?

On 2/8/24 14:25, ToddAndMargo via perl6-users wrote: On 2/8/24 13:19, Bruce Gray wrote: On Feb 8, 2024, at 15:12, ToddAndMargo via perl6-users wrote: Hi All, Is there one of those fancy system variables that will tell me who called/started raku? Ooops. I should have said "what c

Re: Session ID

On 2/6/24 17:50, ToddAndMargo via perl6-users wrote: Hi All Windows 10 and 11 Does Raku have a system call that will tell me my "session ID"? Many thanks, -T So far what I have come up with is a system call to "wmic": >raku -e "sleep 14" >wmic

Re: who call raku?

On 2/8/24 13:19, Bruce Gray wrote: On Feb 8, 2024, at 15:12, ToddAndMargo via perl6-users wrote: Hi All, Is there one of those fancy system variables that will tell me who called/started raku? raku -e 'say $*USER' bruce Actually, I am looking for the name of the calling

who call raku?

Hi All, Is there one of those fancy system variables that will tell me who called/started raku? Many thanks, -T -- ~~~ Serious error. All shortcuts have disappeared. Screen. Mind. Both are blank. ~~~

Session ID

Hi All Windows 10 and 11 Does Raku have a system call that will tell me my "session ID"? Many thanks, -T -- ~~ Computers are like air conditioners. They malfunction when you open windows ~~

Re: -c question

On 2/6/24 09:03, Bruce Gray wrote: On Feb 6, 2024, at 10:52, ToddAndMargo via perl6-users wrote: On 6 Feb 2024, at 00:39, ToddAndMargo via perl6-users wrote: Hi All, Is there a way to syntax a module? Sort of like the "-c" option on main programs? Many thanks, -T On 2/

pm6 naming convention

Hi All, I use AnyDesk for remoter customer support. Work rather well. The file transfer portion, which I adore, posts a Microsoft Office Publisher Icon (a big one) when it hits a .pm6 modules. Is there a different naming convention I can use for my modules that does not mimic some other

Re: -c question

On 6 Feb 2024, at 17:52, ToddAndMargo via perl6-users wrote: On 6 Feb 2024, at 00:39, ToddAndMargo via perl6-users wrote: Hi All, Is there a way to syntax a module? Sort of like the "-c" option on main programs? Many thanks, -T On 2/6/24 01:34, Elizabeth Mattijsen wrote:

Re: -c question

On 6 Feb 2024, at 00:39, ToddAndMargo via perl6-users wrote: Hi All, Is there a way to syntax a module? Sort of like the "-c" option on main programs? Many thanks, -T On 2/6/24 01:34, Elizabeth Mattijsen wrote: > $ raku -c foo.rakumod > Syntax OK > $ raku -c WinMess

-c question

Hi All, Is there a way to syntax a module? Sort of like the "-c" option on main programs? Many thanks, -T -- ~~ Computers are like air conditioners. They malfunction when you open windows ~~

Re: run on regex line?

On 1/20/24 01:42, William Michels via perl6-users wrote: On Jan 19, 2024, at 23:49, ToddAndMargo via perl6-users wrote: Hi All, Can I do a run on line with a regex like I just did with sed? $ zbarimg Screenshot.png | sed -e 's/.*?secret=//' -e 's/&.*//' Usually I just do two l

run on regex line?

Hi All, Can I do a run on line with a regex like I just did with sed? $ zbarimg Screenshot.png | sed -e 's/.*?secret=//' -e 's/&.*//' Usually I just do two lines in Raku. Many thanks, -T

Re: optimizer?

On 1/7/24 15:18, ToddAndMargo via perl6-users wrote: sub DirectoryExists( Str $DirPath --> Bool ) { return "$DirPath".IO.d.Bool; }  # $Full DirPath format is `H:\MyDocsBackup` Problem:  sometimes DirectoryExists lies about backup1 existing. Here is what I am up

Re: optimizer?

On 1/7/24 06:16, Parrot Raiser wrote: What's the reason behind the request? Hi Parrot, The reason is to eliminate the Optimizer as a source of weird problems. I have written a wrapper for Cobian Backup/Reflector that rotates backup sets. Cobain has is own database to keep track of backup

Re: optimizer?

On 7 Jan 2024, at 07:09, ToddAndMargo via perl6-users wrote: Hi All, Is there a switch on the command line to disable the code optimizer? Many thanks, -T On 1/7/24 04:24, Elizabeth Mattijsen wrote: > $ raku --help > > ... > --optimize=level use the given level of optimi

optimizer?

Hi All, Is there a switch on the command line to disable the code optimizer? Many thanks, -T

Re: initializing Pointer

On 12/23/23 00:21, Marcel Timmerman wrote: (perhaps already received but I'd got an error back saying '*Delivery has failed to these recipients or groups*' from.outl...@ifdog.com, So here it comes again.) Thanks Elizabeth and Todd; You are most welcome. I will set up my own

Re: initializing Pointer

On 12/20/23 11:12, Marcel Timmerman wrote: Hi, I would like to initialize a Pointer with some value but get an error. For example; my $a = Pointer[Str].new('text'); The error thrown: Default constructor for 'NativeCall::Types::Pointer[Str]' only takes named arguments The way I can do it

Re: Test not working so well

This is from my keeper on "match". It is the Perl 5 way of explaining things. It works really well for me. How did I do? To find a match of "any" of the following my $x="abc2def"; say so $x.match( / ^ <+[0..9] + [a..z]> ** 7 $ / ) my $x="abc2def"; say so $x.match( / ^ <+[0..9] + [a..z]> **

Re: Test not working so well

On 12/11/23 16:11, William Michels via perl6-users wrote: On Dec 11, 2023, at 15:54, ToddAndMargo via perl6-users wrote: On 12/11/23 15:48, William Michels via perl6-users wrote: On Dec 10, 2023, at 23:22, ToddAndMargo via perl6-users wrote: Is there a list somewhere of all

Re: Test not working so well

On 12/11/23 15:48, William Michels via perl6-users wrote: On Dec 10, 2023, at 23:22, ToddAndMargo via perl6-users wrote: On 12/10/23 22:26, William Michels via perl6-users wrote: Hi Bill, Yes it does help.  I am slowly getting there. If I do not know the length of the sting and have

Re: Test not working so well

On 12/11/23 15:48, William Michels via perl6-users wrote: On Dec 10, 2023, at 23:22, ToddAndMargo via perl6-users wrote: On 12/10/23 22:26, William Michels via perl6-users wrote: Hi Bill, Yes it does help.  I am slowly getting there. If I do not know the length of the sting and have

Re: .contains question

On 12/11/23 14:47, Andy Bach wrote:  I have found that when using `say` for debugging, it has been known to print out the previous value of a variable and not the current value.  `print` does not do this. That would certainly be a surprise to me. I'd think I was misunderstanding my program,

Re: Test not working so well

On 12/11/23 13:39, ToddAndMargo via perl6-users wrote: On 12/11/23 00:55, Kevin Pye wrote: Seriously Todd? "What is a digit?" The characters '0' to '9' are digits.   (Unicode probably has a whole lot of others, but those will do for the moment.) Yes seriously.  Does '9' have the a

Re: Test not working so well

On 12/11/23 00:55, Kevin Pye wrote: Seriously Todd? "What is a digit?" The characters '0' to '9' are digits. (Unicode probably has a whole lot of others, but those will do for the moment.) Yes seriously. Does '9' have the ascii value of 57 or the binary value of 9? Or do you mean a single

Re: .contains question

"so" will collapse the junction into a Bool. "say" will append a \n for you, so you don't have to. On 11 Dec 2023, at 01:52, ToddAndMargo via perl6-users wrote: On 10 Dec 2023, at 21:36, ToddAndMargo via perl6-users wrote: Hi All, my Str $x="abc3defg&qu

Re: Test not working so well

On 12/10/23 22:26, William Michels via perl6-users wrote: Inline: On Dec 10, 2023, at 12:25, ToddAndMargo via perl6-users wrote: On 12/9/23 22:49, William Michels via perl6-users wrote: f $x.match( / ^ <+[0..9] + [a..z]> ** 7 $ / ) { do something...}; What is the difference b

Re: Test not working so well

On 12/10/23 19:52, Kevin Pye wrote: On Mon, 11 Dec 2023, at 09:24, ToddAndMargo via perl6-users wrote: On 12/10/23 14:16, Kevin Pye wrote: Because you asked for a match with a string consisting entirely of exactly 8 digits. I am not following. :'( ^beginning of string <[0

Re: .contains question

On 10 Dec 2023, at 21:36, ToddAndMargo via perl6-users wrote: Hi All, my Str $x="abc3defg"; if $x.contains( "a" || "b" || "3" ) { print "True\n"; } else { print "False\n" }; True Is there a way to tell .contains that you want

Re: Test not working so well

On 12/10/23 14:16, Kevin Pye wrote: On Mon, 11 Dec 2023, at 07:31, ToddAndMargo via perl6-users wrote: [0] > my Str $x="abc3defg"; if $x.match( / ^ <[0..9]> ** 8 $ / ) { print "True\n"; } else { print "False\n" }; False "3" is in the st

.contains question

Hi All, my Str $x="abc3defg"; if $x.contains( "a" || "b" || "3" ) { print "True\n"; } else { print "False\n" }; True Is there a way to tell .contains that you want to know if any of a sequence characters is in a string other that repeating || over and over. Any [a..z] or [0..9] option?

Re: Test not working so well

On 12/10/23 12:25, ToddAndMargo via perl6-users wrote: On 12/9/23 22:49, William Michels via perl6-users wrote: f $x.match( / ^ <+[0..9] + [a..z]> ** 7 $ / ) { do something...}; What is the difference between     <+[0..9] and    <[0..9] And     / ^ <+[0..9] + [a..z]&

Re: Test not working so well

On 12/9/23 22:49, William Michels via perl6-users wrote: f $x.match( / ^ <+[0..9] + [a..z]> ** 7 $ / ) { do something...}; What is the difference between <+[0..9] and <[0..9] And / ^ <+[0..9] + [a..z]> ** 7 $ / does this mean that both [0..9] AND [a..z] have to be present. In

Re: Test not working so well

On 12/9/23 22:49, William Michels via perl6-users wrote: On Dec 9, 2023, at 22:12, ToddAndMargo via perl6-users wrote: On 12/9/23 21:32, ToddAndMargo via perl6-users wrote: On 12/9/23 19:42, William Michels via perl6-users wrote: On 12/9/23 17:44, Tom Browder wrote: > Try: say

Re: Test not working so well

On 12/9/23 21:32, ToddAndMargo via perl6-users wrote: On 12/9/23 19:42, William Michels via perl6-users wrote: On 12/9/23 17:44, Tom Browder wrote: > Try: say so $= > Would you give me a quick example? Hi Todd! In the Raku REPL (MoarVM 2023.05): [0] > my $x="abc

Re: Test not working so well

On 12/9/23 19:42, William Michels via perl6-users wrote: On 12/9/23 17:44, Tom Browder wrote: > Try: say so $= > Would you give me a quick example? Hi Todd! In the Raku REPL (MoarVM 2023.05): [0] > my $x="abc2def"; say  $x ~~ / ^ ** 7 $ /; ｢abc2def｣  alnum => ｢a｣  alnum => ｢b｣  

Re: Test not working so well

On Sat, Dec 9, 2023 at 18:22 ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: Hi All, What am I doing wrong here? my $x="abc2def"; say  $x=/ ^ <[0..9]> ** 7 $ /; / ^ <[0..9]> ** 7 $ / [0] > my $x="abc2def"; s

Re: Your idea on how to detect random directory names

What I have so far: #!/usr/bin/env perl6 #`{ Clean up the useless to a back up directories in Brave Browser $ ls ~/.config/BraveSoftware/Brave-Browser adcocjohghhfpidemphmcmlmhnfgikei GrShaderCache ... } use lib '/home/linuxutil/p6lib'; use RunNoShellLib :RunNoShell; use PrintColors

Test not working so well

Hi All, What am I doing wrong here? my $x="abc2def"; say $x=/ ^ <[0..9]> ** 7 $ /; / ^ <[0..9]> ** 7 $ / [0] > my $x="abc2def"; say $x=/ ^ <[l..z]> ** 7 $ /; / ^ <[l..z]> ** 7 $ / [0] > my $x="abc2def"; say $x~~/ ^ <[0..9]> ** 7 $ /; Nil [0] > my $x="abc2def"; say $x~~/ ^ <[l..z]>

Re: Your idea on how to detect random directory names

On 12/8/23 23:41, Paul Procacci wrote: On Sat, Dec 9, 2023 at 2:06 AM Bruce Gray <mailto:robertbrucegr...@gmail.com>> wrote: > On Dec 9, 2023, at 00:37, ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: > > Hi All, >

Re: Your idea on how to detect random directory names

On 12/8/23 23:41, Paul Procacci wrote: On Sat, Dec 9, 2023 at 2:06 AM Bruce Gray <mailto:robertbrucegr...@gmail.com>> wrote: > On Dec 9, 2023, at 00:37, ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: > > Hi All, >

Your idea on how to detect random directory names

Hi All, I am writing a clean up routine to relive my spot back ups of junk in Blink browser directories that are meaningless to a backup and that take up a lot of space. These directories are long and have random characters for files names, such as "adcocjohghhfpidemphmcmlmhnfgikei" How who

Re: Raku IO IceDrive bug

On Oct 22, 2023, at 06:02, ToddAndMargo via perl6-users wrote: spurt "$TestFile", "Old File Found\n"; spurt "$TestFile", "New File Opened\n"; On 11/5/23 12:08, William Michels via perl6-users wrote: > Won't adding a `\n` newline to the `spurt()`

Re: is there an AI on the beginner chat line?

On 10/27/23 04:35, Andinus via perl6-users wrote: ToddAndMargo via perl6-users @ 2023-10-27 03:19 -07: On 10/27/23 00:10, Andinus via perl6-users wrote: ToddAndMargo via perl6-users @ 2023-10-26 21:19 -07: [...] They have someone called "discord-raku-bot".  Some of the respo

Re: is there an AI on the beginner chat line?

On 10/27/23 00:10, Andinus via perl6-users wrote: ToddAndMargo via perl6-users @ 2023-10-26 21:19 -07: Hi All, Over onthe beginner's chat linbe: https://kiwiirc.com/nextclient/irc.libera.chat/#raku-beginner They have someone called "discord-raku-bot".  Some of the responses s

is there an AI on the beginner chat line?

Hi All, Over onthe beginner's chat linbe: https://kiwiirc.com/nextclient/irc.libera.chat/#raku-beginner They have someone called "discord-raku-bot".  Some of the responses sound a bit off.  By chance, is discord-raku-bot an AI robot? -T -- ~~ Computers are

Re: Raku IO IceDrive bug

On 10/16/23 06:54, Ralph Mellor wrote: if not FileExists( $WanIpFileName ) { $WanIpFileName.IO.open(:w); spurt "$WanIpFileName", "New File Opened"; } Afaik, depending on how you choose to look at things, there's a doc error (doc for `spurt` doesn't mention that it opens the file

Raku IO IceDrive bug

Hi All, Windows 10 22H2 Windows 11 22H2 RakudoMoar-2023.09.01-win-x86_64-msvc.msi https://github.com/AntonOks/rakudo-star-win/releases Note: zef requires git An IO bug with Windows Ice Drive to report. (I no longer report them the the bug reporter as I have zero luck.) Ice Drive is a cloud

Slow???

Hi All Fedora 38 $ raku -v Welcome to Rakudo™ v2023.06. Implementing the Raku® Programming Language v6.d. Built on MoarVM version 2023.06. Has the compiler gotten really, really, really slow lately? What normally takes 8 seconds is now dragging on for minutes, $ raku -c GetUpdates.pl6

Re: A question on AND

> On 30/06/2023 06:06, ToddAndMargo via perl6-users wrote: >> if @*ARGS.elems > 0 && "@*ARGS[0]".lc eq "debug" {...} On 6/30/23 02:40, Richard Hainsworth wrote: I tried this and it worked without any problem. And today is is working for me as

A question on AND

Hi All, This gets the finger wagged at me for a "Nil" when @*ARGS.elems equals zero: if @*ARGS.elems > 0 && "@*ARGS[0]".lc eq "debug" {...} I have to do this instead: if @*ARGS.elems > 0 { if "@*ARGS[0]".lc eq "debug" {...} } Do I misunderstand something? In an AND, is not the

Tip: my keeper example of qqx and match

Hi All, I wrote myself a nice example of how to use `qqx` and `m:` (match). It is pretty simple, so it is probably "way under" the heads of most of you. But it is a nice example for beginners: Notes: resplendence.com is the home of "Who Crashed": a great utility for Windows users.

Re: Is this a regex bug?

On 6/20/23 13:32, Bruce Gray wrote: On Jun 19, 2023, at 18:50, ToddAndMargo via perl6-users wrote: Hi All, Fedora 37 RakudoPkgFedora37-2023.05.01.x86_64.rpm https://github.com/nxadm/rakudo-pkg/releases The `/$0$1 $2/` is not coming out correct. Is this a bug or did I do something wrong

Is this a regex bug?

Hi All, Fedora 37 RakudoPkgFedora37-2023.05.01.x86_64.rpm https://github.com/nxadm/rakudo-pkg/releases The `/$0$1 $2/` is not coming out correct. Is this a bug or did I do something wrong? Many thanks, -T $ curl -L http://vpaste.net/pxRm6 -o - #!/bin/raku print "\n"; my Str $x =

Re: Need regex in the middle wildcard help

On 6/19/23 07:39, Richard Hainsworth wrote: HI Todd, Some more clean up: On 19/06/2023 12:41, ToddAndMargo via perl6-users wrote: This is my test program: #!/bin/raku print "\n"; my Str $x = Q[href="wike-2.0.1-1.fc38.noarch.rpm">wike-2.0.1-1.fc38.noarch.rpm

Re: Need regex in the middle wildcard help

On 6/19/23 03:03, ToddAndMargo via perl6-users wrote: On 6/18/23 05:38, ToddAndMargo via perl6-users wrote: Hi All, I know how to do this with several regex's and words. What I'd like to learn is how to remove something from the middle with regex using a wild card. And I can't figure it out

Re: Need regex in the middle wildcard help

On 6/18/23 05:38, ToddAndMargo via perl6-users wrote: Hi All, I know how to do this with several regex's and words. What I'd like to learn is how to remove something from the middle with regex using a wild card. And I can't figure it out #!/bin/raku print "\n"; my Str $x = Q[w

Need regex in the middle wildcard help

Hi All, I know how to do this with several regex's and words. What I'd like to learn is how to remove something from the middle with regex using a wild card. And I can't figure it out #!/bin/raku print "\n"; my Str $x = Q[wine-7.12-3.fc37.i686.rpm23-Jul-2022 19:11 11K print "1

  1   2   3   4   5   6   7   8   9   10   >