Re: d-mmm-yyyy to DOY (day of year)

[runrig]

Using Time::Piece:

print Time::Piece->strptime($date_str, "%d-%b-%Y")->yday(),"\n";