The Regex Library: Date Parser

Overview Home What's New? Contribute Feedback Credits Regex Samples Case Change Text->HTML HTML->Text Special Characters Valid HTML x-Platform EOL Perl Samples Date Parse Resources Links		The Regex Library

		Perl Samples Date Parsing #!/bin/perl -w ## parses scalar localtime for your enjoyment. ## useful for building timestamps, filenames, ## readable dates, etc. ## ex: $date = join ('',$3,$2,$7,'.txt'); $_ = ( scalar localtime ); if ( /(\w{3})\s+(\w{3})\s+(\d+)\s+(\d+)\:(\d{2})\:(\d{2})\s+(\d{4})/ ) { print "LOCALTIME: $_ \n"; print " Day: $1 \n"; print "Month: $2 \n"; print " Date: $3 \n"; print " Hour: $4 \n"; print " Min: $5 \n"; print " Sec: $6 \n"; print " Year: $7 \n"; } # squeak if ya don't parse else { warn "time string was not parseable! \n" }; "this is a bit I did once and ended up using a lot. it's nothing fancy, but it's nice to have. it's also what was on my desk at the time." - blankcaraboo at yahoo.com

		This site hand-coded for your protection.

The Regex Library