Write command output to a csv file in perl

Question

I am trying to write a command output to a csv file .Below is the command i want to use to write the data into a csv file

ps -eo pid,comm,pmem,vsz | grep process  | awk '{print $1",",$2",",$3",",$4}'

How we can do this in Perl . Header of the csv file should have and then corresponding values for this :

pid,comm,pmem,vsz

I was trying to do something like this but it is not working for me :

echo "execution started.."

pid,comm,pmem,vsz >> out.txt

while [ true ]; do
    echo "running.."
    sleep 2
    ps -eo pid,comm,pmem,vsz | grep process  | awk '{print $1",",$2",",$3",",$4}' >> out.txt
done

Remember that the CSV format requires escaping any quotes that might appear in your data. — tadman
– tadman, Commented Aug 30, 2018 at 21:47
Which part of this are you having trouble with? The ps part, the grep part, or the awk part? Are you trying to do all of this in Perl without calling ps? — melpomene
– melpomene, Commented Aug 30, 2018 at 23:27
What exactly do you mean by "is not working"? Please provide a minimal reproducible example. Also, none of your code uses Perl, so how is this related to your question? — melpomene
– melpomene, Commented Aug 30, 2018 at 23:29

zdim · Accepted Answer · 2018-09-03 00:55:57Z

1

The link in the comment by tadman has a lot of information, but you can also do

ps -eo pid,comm,pmem,vsz | grep process_name | 
    perl -nE '
        BEGIN { say "pid,comm,pmem,vsz" }; 
        say join ",", split
    ' > ps_process.out

(broken into multiple lines for readability)

The BEGIN block is executed only in the compilation phase so it's not repeated in iterations.

edited Sep 3, 2018 at 0:55

answered Aug 30, 2018 at 23:31

zdim

67.2k5 gold badges59 silver badges87 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

beasy · Accepted Answer · 2018-08-31 18:31:58Z

0

Here is a straightforward way, using the -a switch to implicity create @F for each line piped in (it's a shortcut for saying @F = split /\s+\, $_)

echo pid,comm,pmem,vsz > out.csv
ps -eo pid,comm,pmem,vsz | perl -lnaE 'say join ",", @F' >> out.csv

answered Aug 31, 2018 at 18:31

beasy

1,2319 silver badges16 bronze badges

Collectives™ on Stack Overflow

Write command output to a csv file in perl

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related