does `copy` have a recursive option?

2017-03-27 Thread ToddAndMargo
Hi All, Looking at https://docs.perl6.org/routine/copy It does not look like there is a `recursive` option. It that correct? Any work arounds? If not, I have already written a recursive delete on an FTP server that could be easily adapted to "copy". (The sub does a directory loop, if it

Re: What module do I use to create a "windows"?

2017-03-27 Thread ToddAndMargo
On 03/27/2017 12:40 PM, Timo Paulssen wrote: On 03/27/2017 09:25 PM, ToddAndMargo wrote: Hi Timo, Thank you! Just out of curiosity -- I don't need it now -- is there a similar module for Windows? -T GTK::Simple is already portable across linux, mac os, and windows. Here's someone who

Re: tip on using /etc/crontab

2017-03-27 Thread ToddAndMargo
On 03/24/2017 06:56 PM, ToddAndMargo wrote: Hi All, Fedora Core 25 (Linux) I just found out the hard way that if us use use Inline::Perl5; use Email::Simple:from; your program will run from the command line, but when run from /etc/crontab, your program will just disappear. Mind

Re: gtk::simple progress bar?

2017-03-27 Thread ToddAndMargo
On 03/27/2017 12:46 PM, Timo Paulssen wrote: On 03/27/2017 09:40 PM, ToddAndMargo wrote: Hi All, Can GTK::Simple do a progress bar? Not seeing an example here: https://github.com/perl6/gtk-simple/tree/master/examples -T It's not documented, but it's implemented:

Re: gtk::simple progress bar?

2017-03-27 Thread Timo Paulssen
On 03/27/2017 09:40 PM, ToddAndMargo wrote: > Hi All, > > Can GTK::Simple do a progress bar? > > Not seeing an example here: > https://github.com/perl6/gtk-simple/tree/master/examples > > -T > It's not documented, but it's implemented:

gtk::simple progress bar?

2017-03-27 Thread ToddAndMargo
Hi All, Can GTK::Simple do a progress bar? Not seeing an example here: https://github.com/perl6/gtk-simple/tree/master/examples -T -- ~~ Computers are like air conditioners. They malfunction when you open windows ~~

trivia question on zef

2017-03-27 Thread ToddAndMargo
Hi All, I do prefer Zef over Panda. Trivia question; the stuff I see happening at the beginning of a zef install, what is that? Perhaps a "C" compiler? -T -- ~ I am Windows I am the Blue Screen of Death No one hears your screams ~

Re: What module do I use to create a "windows"?

2017-03-27 Thread ToddAndMargo
On 27/03/17 20:52, ToddAndMargo wrote: Hi All, RHEL 7.2 and Fedora 25. I would like to create a window that presents the user with a dynamically generated list for him to choose from, along with a "next" and a "cancel" button. What module do I use to create this? Many thanks, -T On

Re: What module do I use to create a "windows"?

2017-03-27 Thread Timo Paulssen
Do it with GTK::Simple, or shell out to zenity On 27/03/17 20:52, ToddAndMargo wrote: > Hi All, > > RHEL 7.2 and Fedora 25. > > I would like to create a window that presents the user > with a dynamically generated list for him to choose from, > along with a "next" and a "cancel" button. > > What

What module do I use to create a "windows"?

2017-03-27 Thread ToddAndMargo
Hi All, RHEL 7.2 and Fedora 25. I would like to create a window that presents the user with a dynamically generated list for him to choose from, along with a "next" and a "cancel" button. What module do I use to create this? Many thanks, -T -- Yesterday it worked.

Re: regex and performance question

2017-03-27 Thread ToddAndMargo
On 03/27/2017 10:43 AM, Brandon Allbery wrote: On Mon, Mar 27, 2017 at 1:10 PM, ToddAndMargo > wrote: Am I reintroducing a "regex" It's a junction, not a regex. But junctions are even slower than regexes: they are, in effect, trying to

Re: regex and performance question

2017-03-27 Thread Brandon Allbery
On Mon, Mar 27, 2017 at 1:10 PM, ToddAndMargo wrote: > Am I reintroducing a "regex" It's a junction, not a regex. But junctions are even slower than regexes: they are, in effect, trying to emulate a quantum computer. I suspect it's doubly slow because not only are

Re: "not" question

2017-03-27 Thread ToddAndMargo
On 03/27/2017 10:36 AM, Timo Paulssen wrote: On 27/03/17 19:26, ToddAndMargo wrote: and `none("789")` is the opposite of `contains`? Nah, the fact that anything in the junction means "contains" is just because you're feeding the junction through the contains method. Junction evaluation

Re: "not" question

2017-03-27 Thread Timo Paulssen
On 27/03/17 19:26, ToddAndMargo wrote: > and `none("789")` is the opposite of `contains`? Nah, the fact that anything in the junction means "contains" is just because you're feeding the junction through the contains method. Junction evaluation happens with something we call "autothreading" (even

Re: "not" question

2017-03-27 Thread ToddAndMargo
On 27/03/17 19:11, Timo Paulssen wrote: !"789" is just False. On 27/03/17 18:53, ToddAndMargo wrote: Hi All, What am I doing wrong in my "AND not 789"? $ perl6 -e 'my $x="abc123def456"; my $y="123"; if $x.contains( $y & "abc" & ! "789" ) {say "Yes"} else {say "no"};'

Re: "not" question

2017-03-27 Thread Timo Paulssen
Oh, I should have pointed out how to do what you actually meant to do: perl6 -e 'my $x = "abc123def456"; my $y = "123"; if $x.contains($y & "abc" & none("789")) { say "Yes" } else { say "No" }' Yes This uses a "none" junction, which takes part in the whole

Re: regex and performance question

2017-03-27 Thread Timo Paulssen
Yeah, junctions are super useful, but not very fast. compare these two pieces of code: so "hello how are you today?".contains("hello" & "u t") for ^1_000_000 and my $target = "hello how are you today?"; so $target.contains("hello") && $target.contains("u t") for ^1_000_000 On my

Re: "not" question

2017-03-27 Thread Timo Paulssen
!"789" is just False. On 27/03/17 18:53, ToddAndMargo wrote: > Hi All, > > What am I doing wrong in my "AND not 789"? > > $ perl6 -e 'my $x="abc123def456"; > my $y="123"; if $x.contains( $y & "abc" & ! "789" ) > {say "Yes"} else {say "no"};' > > no > > -T >

Re: exit code: 141 causes Perl 6 to exit.

2017-03-27 Thread Rob Hoelz
FWIW, 141 is SIGPIPE. (signal 13 + WIFSIGNALED flag (128)) So something's happening in your RUN script that's causing it to write to a closed pipe. I hope this helps! -Rob On Mon, 27 Mar 2017 11:51:03 +0300 Gabor Szabo wrote: > Putting > > CATCH { default { put .^name,

Re: exit code: 141 causes Perl 6 to exit.

2017-03-27 Thread Gabor Szabo
Putting CATCH { default { put .^name, ': ', .Str } }; in the While loop helped with the restarting, but I am still not sure if this is the expected behavior or not. run.pl: while True { say "Starting"; shell("perl6 a.pl"); CATCH { default { put .^name, ': ', .Str } }; }

exit code: 141 causes Perl 6 to exit.

2017-03-27 Thread Gabor Szabo
The lack of open filehandles seem to be fixed. The server now stays up for quite long time, but I've just seen the following on the command line: The spawned command './RUN' exited unsuccessfully (exit code: 141) in block at wrap.pl6 line 5 I'd like to understand what this exit code: 141