1 #!/bin/sh 2 3 # Filters are not run for post-test check commands. 4 # Filter everything here. 5 6 echo "---Status---" 7 echo "::status" | /usr/bin/mdb vgcore.* | \ 8 perl -p -e 's/\(.*\) from \S*$/from .../' | \ 9 perl -0 -p -e 's/^file: .+?^(initial argv:)/$1/ms' | \ 10 sed '/^threading model:/ d' | \ 11 perl -p -e 's/addr=[0-9A-Fa-f]+/addr=......../g' 12 13 echo "\n---Stacks---" 14 echo "::stacks ! perl -p -e 's/^(\S+)\+.*/\$1/g'" | /usr/bin/mdb vgcore.* | \ 15 perl -p -e 's/^(THREAD)\s+(STATE)\s+(SOBJ)\s+(COUNT)\s*$/$1 $2 $3 $4\n/' | \ 16 perl -p -e 's/^(\d+)\s+(UNPARKED)\s+(\S+)\s+(\d+)/$1 $2 $3 $4/g' | \ 17 perl -p -e 's/^\s*libc.*.so.1/libc.so.1/g' | \ 18 perl -p -e 's/\+0x[0-9A-Fa-f]+//g' | 19 sed 's/^ *//g' 20