Home Perl [Perl] Konwersja daty

[Perl] Konwersja daty

Email

Prawie w każdym logu w systemach linux jak i windows daty podawane są w formacie DD-Miesiąc słownie-RRRR , miesiąc słownie mam na myśli Jun, Jul, Dec....

do zamiany tego na układ DDMMRR (czy jak kto woli DDMMYY) używam takie oto funkcji:

przydaje się kiedy chcę wyparsować dane z logu i zapisać w pliku ze znacznikiem daty. np: nazwa_pliku_data.log0

sub konwersja_daty
{
# zamienia datę z 08/Aug/2010 na 080810

my $dt = shift;
my @mm = ("","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
my @data = split(/\//, $dt);# split m/d/y

......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: Share Link: Bookmark Google Yahoo MyWeb Del.icio.us Digg Facebook Myspace Reddit Ma.gnolia Technorati Stumble Upon
Poprawiony: poniedziałek, 07 lutego 2011 11:14  

Key Concepts

Login Form