Re: awk?

On 04/13/2018 04:13 AM, Fernando Santagata wrote: "There's More Than One Way To Do It" The definition of Perl! :-)

Re: awk?

018 at 12:31 PM, Shlomi Fish wrote: Hi Todd, On Fri, 13 Apr 2018 03:00:22 -0700 ToddAndMargo wrote: echo "total kB 1804482980 112" | awk '{print $4}') shlomif[Perl6]:$trunk$ echo "total kB 1804482980 112" | perl6 -n -e &#

Re: awk?

On Fri, Apr 13, 2018 at 12:31 PM, Shlomi Fish <mailto:shlo...@shlomifish.org>> wrote: Hi Todd, On Fri, 13 Apr 2018 03:00:22 -0700 ToddAndMargo mailto:toddandma...@zoho.com>> wrote: > echo "total kB 1804482980 112" | awk 

Re: awk?

On 04/13/2018 03:31 AM, Shlomi Fish wrote: Hi Todd, On Fri, 13 Apr 2018 03:00:22 -0700 ToddAndMargo wrote: echo "total kB 1804482980 112" | awk '{print $4}') shlomif[Perl6]:$trunk$ echo "total kB 1804482980 112" | perl6 -n -

Re: awk?

lue, > instead of the separator: > > $ echo "total kB 1804482980 112" |perl6 -n -e 'say > .comb(/\d+/)[1]' > 2980 > > > On Fri, Apr 13, 2018 at 12:31 PM, Shlomi Fish > wrote: > > > Hi Todd, > > > > On Fri, 13

Re: awk?

Todd, > > On Fri, 13 Apr 2018 03:00:22 -0700 > ToddAndMargo wrote: > > > echo "total kB 1804482980 112" | awk '{print $4}') > > shlomif[Perl6]:$trunk$ echo "total kB 1804482980 112" | > perl6 > -n -e 's

Fw: awk?

Begin forwarded message: Date: Fri, 13 Apr 2018 13:31:12 +0300 From: Shlomi Fish To: perl6-users@perl.org Subject: Re: awk? Hi Todd, On Fri, 13 Apr 2018 03:00:22 -0700 ToddAndMargo wrote: > echo "total kB 1804482980 112" | awk '{print $4}') shlo

Re: awk?

Hi Todd, On Fri, 13 Apr 2018 03:00:22 -0700 ToddAndMargo wrote: > echo "total kB 1804482980 112" | awk '{print $4}') shlomif[Perl6]:$trunk$ echo "total kB 1804482980 112" | perl6 -n -e 'say .split(/\s+/)[3]'

awk?

Hi All, How to I translate this to Perl 6? I am looking to be able to dig out the fourth (or any) data point. #!bin/bash $x=$(echo "total kB 1804482980 112" | awk '{print $4}') echo $x 2980 Many thanks, -T

Re: Need awk print sub

On 08/04/2017 03:42 PM, Brandon Allbery wrote: On Fri, Aug 4, 2017 at 6:28 PM, ToddAndMargo > wrote: Here is my last attempt: ip -o -f inet addr show | perl6 -e 'for ( lines ) -> $I { if ( $I ~~ /enp/ ) { say "Interface <" ~ .words[1] ~ ">\nIP<" ~ .word

Re: Need awk print sub

On Fri, Aug 4, 2017 at 6:28 PM, ToddAndMargo wrote: > Here is my last attempt: > > ip -o -f inet addr show | perl6 -e 'for ( lines ) -> $I { if ( $I ~~ /enp/ > ) { say "Interface <" ~ .words[1] ~ ">\nIP<" ~ .words[3] ~ ">"; } }' > No such method 'words' for invocant of type 'Any' > in block at

Re: Need awk print sub

"a b c d" | awk '{print $2}' b $ echo "a b c d" | perl6 -n -e 'say lines ~ "\n" ~ .words[2];' ( c) without "-n" ".words" doesn't work. With "-n" "lines" doesn't work Ye

Re: Need awk print sub

On 08/04/2017 02:31 PM, Elizabeth Mattijsen wrote: On 4 Aug 2017, at 22:53, ToddAndMargo wrote: On 08/04/2017 01:26 PM, Elizabeth Mattijsen wrote: echo "a b c d" | perl6 -e 'say words[1]’ Tears. :'( $ echo "a b c d" | perl6 -e 'say words[1]' ===SORRY!=== Error while compiling -e Callin

Re: Need awk print sub

> On 4 Aug 2017, at 22:53, ToddAndMargo wrote: > > On 08/04/2017 01:26 PM, Elizabeth Mattijsen wrote: >> echo "a b c d" | perl6 -e 'say words[1]’ > > > Tears. :'( > > $ echo "a b c d" | perl6 -e 'say words[1]' > > ===SORRY!=== Error while compiling -e > Calling words() will never work with

Re: Need awk print sub

(back on the desktop for the moment...) On Fri, Aug 4, 2017 at 5:04 PM, ToddAndMargo wrote: > On 08/04/2017 01:00 PM, ToddAndMargo wrote: > >> How do I do this with a perl one liner? >> >> $ echo "a b c d" | awk '{print $2}' >> b >> >

Re: Need awk print sub

On 08/04/2017 01:00 PM, ToddAndMargo wrote: Hi All, How do I do this with a perl one liner? $ echo "a b c d" | awk '{print $2}' b Many thanks, -T And it is getting weirder: $ echo "a b c d" | perl6 -n -e 'say lines ~ "\n" ~ .words[2];' (

Re: Need awk print sub

On 08/04/2017 01:53 PM, ToddAndMargo wrote: $ echo "a b c d" | perl6 -e 'say words[1]' And with the . before words $ echo "a b c d" | perl6 -e 'say .words[1]' No such method 'words' for invocant of type 'Any' in block at -e line 1

Re: Need awk print sub

>> Hi All, >> >> How do I do this with a perl one liner? >> >> $ echo "a b c d" | awk '{print $2}' >> b >> >> Many thanks, >> -T On 08/04/2017 01:31 PM, Patrick R. Michaud wrote: How about... $ echo "a b c d&q

Re: Need awk print sub

On 08/04/2017 01:26 PM, Elizabeth Mattijsen wrote: echo "a b c d" | perl6 -e 'say words[1]’ Tears. :'( $ echo "a b c d" | perl6 -e 'say words[1]' ===SORRY!=== Error while compiling -e Calling words() will never work with any of these multi signatures: ($what, $limit = Inf, *%named) at -

Re: Need awk print sub

How about... $ echo "a b c d" | ./perl6 -n -e '.words[1].say' b Pm On Fri, Aug 04, 2017 at 01:00:52PM -0700, ToddAndMargo wrote: > Hi All, > > How do I do this with a perl one liner? > > $ echo "a b c d" | awk '{print $2}' > b > > Many thanks, > -T

Re: Need awk print sub

> On 4 Aug 2017, at 22:00, ToddAndMargo wrote: > > Hi All, > > How do I do this with a perl one liner? > > $ echo "a b c d" | awk '{print $2}' > b echo "a b c d" | perl6 -e 'say words[1]’ Note array indices in Perl 6 are 0 based.

Need awk print sub

Hi All, How do I do this with a perl one liner? $ echo "a b c d" | awk '{print $2}' b Many thanks, -T