All pastes #138999 Raw Edit

Untitled

public text v1 · immutable
#138999 ·published 2006-08-19 16:16 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
);
s/\[(..)h:(..)m:(..)s_(..)\/(..)\/(..)\](.+)/"$num2mon{$4} $5 $1:$2:$3$7"/eg