All pastes #139010 Raw Edit

Mine

public text v1 · immutable
#139010 ·published 2006-08-19 16:29 UTC
rendered paste body

#!/usr/bin/perl

%num2mon = qw(
        01      Jan
        02      Feb
        03      Mar
        04      Apr
        05      May
        06      Jun
        07      Jul
        08      Aug
        09      Sep
        10      Oct
        11      Nov
        12      Dec
);
open (THIS, "this");
s/\[(..)h:(..)m:(..)s_(..)\/(..)\/(..)\](.+)/"$num2mon{$4} $5 $1:$2:$3 $7"/eg
close (THIS);