in reply to flatten record data

I just threw this together, mostly because I wanted to try qwinsta. It does what you seem to want on my system. 

qwinsta.exe |perl -ne "push @who, qq{$1=$2} if /^.{19}(\S+)\s+\d+\s+(\
+S+)/; END {print join',',@who}"

[download]

Replies are listed 'Best First'.
Re^2: flatten record data
by gowf67 (Initiate) on Sep 09, 2011 at 17:10 UTC
    Thanks! I knew there should be a one-liner for this but struggled to figure it out. Thank you also to the others that replied, I will try to be more specific next time. My apologies. Perl is the BEST!
[reply]

In Section Seekers of Perl Wisdom