norm #1

  • //
  • guest/
  • rick_richardson/
  • perforce/
  • utils/
  • cvs2p4/
  • test/
  • norm
  • View
  • Commits
  • Open Download .zip Download (408 B)
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/rick_richardson/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 645 Rick Richardson Create banch for adding p4wrapper.