Tadek’s Blog

A cool perl one-liners from Diego:

perl -ne ‘$name = $1 if /application name=(.);/; /text=(.(SELECT|INSERT|UPDATE|DELETE).*$)/i && print “$name => $1\n”;’ db2audit.txt | less

perl -ne ‘/text=(.(SELECT|INSERT|UPDATE|DELETE).$)/i && print “$1\n”‘ db2audit.txt

This entry was posted on Wednesday, October 27th, 2004 at 11:26 am and is filed under Databases, Perl. You can follow any responses to this entry through the RSS 2.0 feed. You can skip to the end and leave a response. Pinging is currently not allowed.