Perl xfsstat.sh

for i in `/usr/bin/xfs_stats.pl | tr -d .`;do
    echo $i
done
 
 
echo "Inodes not found in cache"
expr `cat /proc/fs/xfs/stat | grep ig |  awk '{print $5}'` - `cat /proc/fs/xfs/stat | grep ig |  awk '{print $3}'`
 
echo "Average KB per Read"
expr `cat /proc/fs/xfs/stat | grep xpc | awk '{print $4}'` /  `cat /proc/fs/xfs/stat | grep rw | awk '{print $3}'` / 1024
echo "Average KB per write"
expr `cat /proc/fs/xfs/stat | grep xpc | awk '{print $3}'` / `cat /proc/fs/xfs/stat | grep rw | awk '{print $2}'` / 1024