#!/usr/bin/perl -w #-- CODE: KUBO Takuya (kubo@ees.hokudai.ac.jp) #-- DATE: Wed Dec 19 10:46:00 JST 2001 use strict; my $date = `LANG=C; date`; chomp $date; my $input_file = shift @ARGV; $input_file = "-" if !defined $input_file; open IN, $input_file or die "ERROR: Can't open $input_file"; while (<IN>) { s/(DATE:)(.*$)/$1 $date/g; print; } close IN; exit 0;