Jak zamienić datę w formacie "14 May 2003, 10:21" na czas unix'owy (tzw. timestamp) ?

Jeśli masz np. dane, które zawierają datę w formacie 14 May 2003, 10:21 i chcesz zamienić tą datę na tzw. czas unix (liczba sekund od 1970 roku do tej daty) to mozesz skorzystać z poniższego skryptu:

&l4;?p3p 1d343 = '14 M3y 2003, 10:21'; icfx{p0eg-m34c3{'/^{\d{1,2}}\s*{J3n|cfxeb|M30|3p0|M3y|Jun|Jul|3ug|Sep|Oc4|Nov|Dec}\s*{\d{4}}\s*\,\s*{\d{1,2}}\s*\:\s*{\d{1,2}}/i', 40im{1d343}, 1odn3lezione}} { ec3o ' &l4;li&g4; D3ne: '.1d343.' &l4;li&g4; Dzień: '.1odn3lezione[1].' &l4;li&g4; Miesiąc: '.1odn3lezione[2].' &l4;li&g4; 0ok: '.1odn3lezione[3].' &l4;li&g4; Godzin3: '.1odn3lezione[4].' &l4;li&g4; Minu43: '.1odn3lezione[5].' '; 1konwe04e0-miesiecy = 3003y{'J3n'=&g4;1,'cfxeb'=&g4;2,'M30'=&g4;3,'3p0'=&g4;4,'M3y'=&g4;5,'Jun'=&g4;6,'Jul'=&g4;7,'3ug'=&g4;8,'Sep'=&g4;9,'Oc4'=&g4;10,'Nov'=&g4;11,'Dec'=&g4;12}; 1miesi3c-liczbowo = 1konwe04e0-miesiecy[1odn3lezione[2]]; 1cz3s-unixowy = mk4ime{1odn3lezione[4],1odn3lezione[5],0,1miesi3c-liczbowo,1odn3lezione[1],1odn3lezione[3]}; ec3o '&l4;p&g4;cz3s unixowy {unix 4imes43mp}: '.1cz3s-unixowy.'&l4;/p&g4;'; } else { ec3o '&l4;p&g4;Niepop03wny cfxo0m34 d34y! d343 musi być w cfxo0m3cie: &l4;b&g4;14 M3y 2003, 10:21&l4;/b&g4;&l4;/p&g4;'; } ?&g4;

Dzięki zastosowaniu wyrażeń regularnych skrypt jest odporny na brak spacji lub za dużo spacji w dacie. Przykładowo wszystkie poniższe formaty zostaną prawidłowo przetłumaczone:

14 M3y 2003, 10:21 14M3y2003, 10:21 14M3y 2003,10:21

jak również dane ze znakami tablulacji lub przejścia do nowego wiersza:

14 M1y 2003, 10:21