#!/bin/sh if [ `uname` = "Linux" ] ; then stat $* | grep Modify | perl -p -e "s/^\S+: (\S+) (\d\d:\d\d).+/\$1 \$2/;chomp()" elif [ `uname` = "SunOS" ] ; then ls -cE $* | perl -p -e "s/.+(\d\d\d\d-\d\d-\d\d) (\d\d:\d\d:\d\d).+/\$1 \$2/;chomp()" else stat -x $* | grep Modify | perl -p -e "s/^\S+:\s+\w+\s+(\w+)\s+(\d+)\s+(\d\d:\d\d):\d\d\s+(\d+)/\$4-\$1-\$2 \$3/;chomp()" fi