年を指定しない文字列に暗黙の年を追加するにはどうすればよいですか？

Question

ウェブサイトから多くのテキストファイルをダウンロードする必要があります。それから私は、MySQLデータベースにそれを置くために持っていますが、ファイルの形式の行を持っています

02/04 15:00 Some strings 

03/03 15:00 other strings 

01/12/2010 12:00 other strings 

03/04 15:00 more strings 

... 

年が明示的に書かれていない場合は、それが現在の年であることを意味します。だから私はファイルを行ごとに解析し、フォームdd/mmのすべての日付を、データベースに入れる前に、dd/mm/yyyyの形式の日付に変換する必要があります（ここで、yyyyは当然の年です）。
どうすればいいですか？

Answer 1

awk -v year=$(date +%Y) 'match($1, "^[0-9][0-9]/[0-9][0-9]$") {$1 = $1"/"year} 1'

又は

awk -v year=$(date +%Y) 'split($1, a, "/") == 2 {$1 = $1"/"year} 1'

Answer 2

year=`date +%Y` 
sed "s|^\([0-9][0-9]/[0-9][0-9]\) |\1/$year |" filename 

Answer 3

#!/usr/bin/perl 
use strict; 
use warnings; 
use Time::Piece; 

my $pattern = qr(^(\d\d/\d\d));#month/day at start of line followed by space 
my $year = localtime->year; 

while (<DATA>){ 
    s/$pattern/$1\/$year /; 
    print; 
} 
__DATA__ 
02/04 15:00 Some strings 
03/03 15:00 other strings 
01/12/2010 12:00 other strings 
03/04 15:00 more strings 

Answer 4

$ awk 'BEGIN{y=strftime("%Y")}length($1)==5{$1=$1"/"y}1' file 
02/04/2011 15:00 Some strings 
03/03/2011 15:00 other strings 
01/12/2010 12:00 other strings 
03/04/2011 15:00 more strings 

$ ruby -ane '$F[0].size==5 && $F[0]=$F[0]+"/"+Time.now.year.to_s;puts $F.join(" ")' file 

Answer 5

少しgolfy Perlの溶液：

perl -MTime::Piece -pe '$yy=localtime->year; s{^(\d{2}/\d{2})(\s)}{$1/$yy$2}' input