eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; # THE PRECEEDING STUFF EXECS perl via $PATH # -*-Fundamental-*- require 5.000; # $Id: //guest/michael_marks/perforce/utils/cvs2p4/test/norm#1 $ # # Richard Geiger # while (<>) { $_ =~ s/[0-9]{4}\/[0-9]{2}\/[0-9]{2}/yyyy\/mm\/dd/g; $_ =~ s/[0-9]{2}:[0-9]{2}:[0-9]{2}/hh:mm:ss/g; print; }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 631 | Michael Marks | No real description. |