On Fri, Mar 15, 2019 at 11:52:15AM +0200, Peter Pentchev wrote: [snip] > 3. The standard input stream in Perl 6 is called $*IN (think of it as > mostly equivalent to what <<>> and <> would read from in Perl 5,
...sorry about this part, I know it's not correct.
> and pretty much the same thing as Perl 5's STDIN.
...this is the correct statement.
> sub is-ours($line) {
> $line ~~ /^ \s* $<pid> = [\d+] \s+ "zsh" \s .* \s+ $<elapsed> = [ <[-
> \d :]> + ] $/
> ?? (~$/<pid> => pad-elapsed $/<elapsed>)
> !! Any
> }
Of course, you may need to modify this a bit if you don't want to look
for "zsh" processes... :)
G'luck,
Peter
--
Peter Pentchev roam@{ringlet.net,debian.org,FreeBSD.org} [email protected]
PGP key: http://people.FreeBSD.org/~roam/roam.key.asc
Key fingerprint 2EE7 A7A5 17FC 124C F115 C354 651E EFB0 2527 DF13
signature.asc
Description: PGP signature
