Skip to content

Instantly share code, notes, and snippets.

Created June 30, 2015 07:50
Show Gist options
  • Save anonymous/79a7e59cf3160f6ac09e to your computer and use it in GitHub Desktop.
Save anonymous/79a7e59cf3160f6ac09e to your computer and use it in GitHub Desktop.
Proc::Async stdout tap issue
$ perl6 -v
This is perl6 version 2015.06-1-gdf0c3a3 built on MoarVM version 2015.06
$ perl6 pa.pl6
USER PID %CPU %MEM VSZ RSS TTY STAT START TIME COMMAND
root 1 0.0 0.0 33888 3180 ? Ss Jun27 0:01 /sbin/init
root 2 0.0 0.0 0 0 ? S Jun27 0:00 [kthreadd]
root 3 0.0 0.0 0 0 ? S Jun27 0:00 [ksoftirqd/0]
root 4 0.0 0.0 0 0 ? S Jun27 0:00 [kworker/0:0]
root 5 0.0 0.0 0 0 ? S< Jun27 0:00 [kworker/0:0H]
root 7 0.0 0.0 0 0 ? S Jun27 0:16 [rcu_sched]
root 8 0.0 0.0 0 0 ? S Jun27 0:08 [rcuos/0]
root 9 0.0 0.0 0 0 ? S Jun27 0:08 [rcuos/1]
root 10 0.0 0.0 0 0 ? S Jun27 0:08 [rcuos/2]
root 11 0.0 0.0 0 0 ? S Jun27 0:08 [rcuos/3]
root 12 0.0 0.0 0 0 ? S Jun27 0:00 [rcu_bh]
root 13 0.0 0.0 0 0 ? S Jun27 0:00 [rcuob/0]
root 14 0.0 0.0 0 0 ? S Jun27 0:00 [rcuob/1]
root 15 0.0 0.0 0 0 ? S Jun27 0:00 [rcuob/2]
root 16 0.0 0.0 0 0 ? S Jun27 0:00 [rcuob/3]
root 17 0.0 0.0 0 0 ? S Jun27 0:00 [migration/0]
root 18 0.0 0.0 0 0 ? S Jun27 0:01 [watchdog/0]
root 19 0.0 0.0 0 0 ? S Jun27 0:01 [watchdog/1]
root 20 0.0 0.0 0 0 ? S Jun27 0:00 [migration/1]
root 21 0.0 0.0 0 0 ? S Jun27 0:00 [ksoftirqd/1]
root 22 0.0 0.0 0 0 ? S Jun27 0:00 [kworker/1:0]
root 23 0.0 0.0 0 0 ? S< Jun27 0:00 [kworker/1:0H]
root 24 0.0 0.0 0 0 ? S Jun27 0:00 [watchdog/2]
root 25 0.0 0.0 0 0 ? S Jun27 0:00 [migration/2]
root 26 0.0 0.0 0 0 ? S Jun27 0:00 [ksoftirqd/2]
root 27 0.0 0.0 0 0 ? S Jun27 0:48 [kworker/2:0]
root 28 0.0 0.0 0 0 ? S< Jun27 0:00 [kworker/2:0H]
root 29 0.0 0.0 0 0 ? S Jun27 0:00 [watchdog/3]
root 30 0.0 0.0 0 0 ? S Jun27 0:00 [migration/3]
root 31 0.0 0.0 0 0 ? S Jun27 0:00 [ksoftirqd/3]
root 33 0.0 0.0 0 0 ? S< Jun27 0:00 [kworker/3:0H]
root 34 0.0 0.0 0 0 ? S< Jun27 0:00 [khelper]
root 35 0.0 0.0 0 0 ? S Jun27 0:00 [kdevtmpfs]
root 36 0.0 0.0 0 0 ? S< Jun27 0:00 [netns]
root 37 0.0 0.0 0 0 ? S< Jun27 0:00 [writeback]
root 38 0.0 0.0 0 0 ? S< Jun27 0:00 [kintegrityd]
root 39 0.0 0.0 0 0 ? S< Jun27 0:00 [bioset]
root 40 0.0 0.0 0 0 ? S< Jun27 0:01 [kworker/u9:0]
root 41 0.0 0.0 0 0 ? S< Jun27 0:00 [kblockd]
root 42 0.0 0.0 0 0 ? S< Jun27 0:00 [ata_sff]
root 43 0.0 0.0 0 0 ? S Jun27 0:00 [khubd]
root 44 0.0 0.0 0 0 ? S< Jun27 0:00 [md]
root 45 0.0 0.0 0 0 ? S< Jun27 0:00 [devfreq_wq]
root 46 0.0 0.0 0 0 ? S Jun27 0:55 [kworker/0:1]
root 48 0.0 0.0 0 0 ? S Jun27 0:00 [khungtaskd]
root 49 0.0 0.0 0 0 ? S Jun27 0:00 [kswapd0]
root 50 0.0 0.0 0 0 ? SN Jun27 0:00 [ksmd]
root 51 0.0 0.0 0 0 ? SN Jun27 0:07 [khugepaged]
root 52 0.0 0.0 0 0 ? S Jun27 0:00 [fsnotify_mark]
root 53 0.0 0.0 0 0 ? S Jun27 0:00 [ecryptfs-kthrea]
root 54 0.0 0.0 0 0 ? S< Jun27 0:00 [crypto]
root 66 0.0 0.0 0 0 ? S< Jun27 0:00 [kthrotld]
root 68 0
.0 0.0 0 0 ? S Jun27 0:00 [kworker/3:1]
root 87 0.0 0.0 0 0 ? S< Jun27 0:00 [deferwq]
root 88 0.0 0.0 0 0 ? S< Jun27 0:00 [charger_manager]
root 101 0.0 0.0 0 0 ? S Jun27 0:00 [kworker/2:1]
root 143 0.0 0.0 0 0 ? S Jun27 0:45 [kworker/3:2]
root 146 0.0 0.0 0 0 ? S Jun27 0:00 [scsi_eh_0]
root 147 0.0 0.0 0 0 ? S Jun27 0:00 [scsi_eh_1]
root 148 0.0 0.0 0 0 ? S Jun27 0:00 [scsi_eh_2]
root 149 0.0 0.0 0 0 ? S Jun27 0:00 [scsi_eh_3]
root 150 0.0 0.0 0 0 ? S Jun27 0:00 [scsi_eh_4]
root 151 0.0 0.0 0 0 ? S Jun27 0:00 [scsi_eh_5]
root 158 0.0 0.0 0 0 ? S< Jun27 0:00 [raid5wq]
root 178 0.0 0.
use v6;
my $p = Proc::Async.new( | < ps waxu > );
$p.stdout.tap: -> $s { $s.say };
await $p.start;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment