extracting year from date using regex

How would I extract the year from a date of the following format? Or where coudl I look to figure out answer?

11 July 2003

thanks.

Find more posts tagged with

Comments

Michael

Always a million ways to do stuff with regex -- here is one (not very good) suggestion which just takes the last four characters of the line
....$

A good place to look would be: http://www.oreilly.com/catalog/regexppr/

HTH

Cheers
Michael

PaulW

Sorry for being a lazy git. I found an answer. How would I do that on one line?

my $yearValue = $dateValue;
$yearValue =~ m/.* (\d\d\d\d)/;
$yearValue = $1;

I also found a cool interactive regex validator. check out: http://www.weitz.de/regex-coach/

Michael

I don't know how with one line sorry. Someone else?

Two line options include:

$dateValue =~ m/.* (\d\d\d\d)/;
my $yearValue = $1;

my $yearValue = $dateValue;
($yearValue) = m/.* (\d\d\d\d)/;

hth

Cheers
Michael

Jeremy

Here is an answer:

$dateValue = "11 July 2003";
($yearValue = $dateValue ) =~ s|.*(\d{4})|$1|;

$yearValue should now be "2003" and dateValue should remain unchanged.

Think that'll work!

Edited by Jeremy on 09/18/03 04:25 AM (server time).

MikeD

To add onto Jeremy's post, you could use the regexp (\d+)\s(\w+)\s(\d{4}). This should split the date string into it's three logical parts; date, month, and year.

(\d+) - 1 or more digits. can be referenced as $1.
\s - a single white space
(\w+) - 1 or more letters. can be referenced as $2.
\s - a single white space
(\d{4}) - 4 digits. can be referenced as $3.

$dateValue = "18 September 2003";
($dayValue = $dateValue) =~ s|(\d+)\s(\w+)\s(\d{4})|$1|;
($monthValue = $dateValue) =~ s|(\d+)\s(\w+)\s(\d{4})|$2|;
($yearValue = $dateValue) =~ s|(\d+)\s(\w+)\s(\d{4})|$3|;

Once again, $dateValue remains unchanged.

Michael D. Reynolds
CapTech Ventures

Adam Stoller

dateValue = "18 September 2003";
($dayValue = $dateValue) =~ s|(\d+)\s(\w+)\s(\d{4})|$1|;
($monthValue = $dateValue) =~ s|(\d+)\s(\w+)\s(\d{4})|$2|;
($yearValue = $dateValue) =~ s|(\d+)\s(\w+)\s(\d{4})|$3|;Why run the same regex 3 times?

dateValue = "18 September 2003";
if ($dateValue !~ /^(\d{1,2})\s*(\w+)\s*(\d{4})$/){
    # error?
}
my($dayValue, $monthValue, $yearValue) = ($1, $2, $3);

Although if you want to be able to parse dates in a variety of different possible formats - skip the regex and use Date::Manip ...

--fish
(Interwoven Senior Technical Consultant)