how to write this in perl?

satya

New member
Can anyone tell me how to write this script in perl,
need to capture output a below which is written in shell.


cat /var/adm/messages | grep -i errors > /tmp/file1

cat /tmp/file1 | awk '{print $1, $2, $3}' > /tmp/file2
 
Back
Top