mirror of https://github.com/GnoConsortium/gno.git
26 lines
497 B
Perl
Executable File
26 lines
497 B
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
$months[0] = '';
|
|
$months[1] = 'January';
|
|
$months[2] = 'February';
|
|
$months[3] = 'March';
|
|
$months[4] = 'April';
|
|
$months[5] = 'May';
|
|
$months[6] = 'June';
|
|
$months[7] = 'July';
|
|
$months[8] = 'August';
|
|
$months[9] = 'September';
|
|
$months[10] = 'October';
|
|
$months[11] = 'November';
|
|
$months[12] = 'December';
|
|
|
|
while (<>) {
|
|
if (m,\$Date: 1999/02/21 23:37:13 $,) {
|
|
$year = $1;
|
|
$month = $2;
|
|
$day = $3;
|
|
$_ = $` . $day . ' ' . $months[int($month)] . ' ' . $year . $';
|
|
}
|
|
print;
|
|
}
|