Removing some part of string

Shaveta_Chawla has asked for the wisdom of the Perl Monks concerning the following question:

I need to remove some part from a line. The line is

::
$line = U.S. abc xyz , newyork, USA, Feb. 2-4
$line =pqr ffg , Long Beach, california, Sep. 12-14
$line = Hello , St. Louis, Missouri, Mar. 29-31
$line = hello, How are u

I need to remove the last part from the string which contains month information using a general regular expression, which is suitable for all the lines and the line which doesn't have any month information should remain as it is.

Comment on Removing some part of string

Replies are listed 'Best First'.
Re: Removing some part of string by Anonymous Monk on Oct 18, 2011 at 12:32 UTC
Your post does not contain Short, Self Contained, Correct Example So read perlintro and How do I post a question effectively? and adjust your post accordingly	[reply]
Re^2: Removing some part of string by pvaldes (Chaplain) on Oct 18, 2011 at 15:09 UTC
`while ($line){$_ =~ s/[ADFJMNOS][[:lower:]]{2}\.\s[0-3]{1,2}-\d{1,2}$//;}`	[reply] [d/l]
Re: Removing some part of string by zentara (Cardinal) on Oct 18, 2011 at 13:14 UTC
Split on commas each line into an array and regex the $array-1 ( last element) for Jan Feb Mar Apr.... etc. Smells like homework. I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply]
Re: Removing some part of string by trizen (Hermit) on Nov 02, 2011 at 13:18 UTC
`while (defined($_ = <DATA>)) { my (@array) = split(/,/, $_, 0); if ($array[-1] =~ /^\h*(?:Jan\|Feb\|Mar\|Apr\|May\|Jun\|Jul\|Aug\|Sep\|Oct\| +Nov\|Dec)\./) { splice @array, -1; } print join(',', @array) . "\n"; } __DATA__ $line = U.S. abc xyz , newyork, USA, Feb. 2-4 $line =pqr ffg , Long Beach, california, Sep. 12-14 $line = Hello , St. Louis, Missouri, Mar. 29-31 $line = hello, How are u` [download]	[reply] [d/l]