UPDATED: Editing Hash Array Content

Question

In my array I've got stuff that looks like this; that is, the format is like this:

Monday, June 12

I want to get rid of the

Monday, <--- n.b.: There is a space after this comma.

part. What I'm used to doing is just regexing the tags and then filtering them like this:

foreach my $temp (@bad_array)
{
        push @good_array, $temp =~ /MY BEAUTIFUL PATTERN/g;
}

This gave me an idea. I thought I could just do this, but modify the code a bit with the symbols

->as_text

and

[$i]

sprinkled around somehow. Not sure how though. Maybe there is an obvious way to do this more efficiently... Here is the background story of Mr. @bad_array:

my $tree_of_knowledge = HTML::Tree->new();
$tree_of_knowledge->parse($documentary);

my @bad_array = $tree_of_knowledge->look_down(
        _tag => 'DESPAIR',
        bgcolor => 'A VERY SAD COLOR'
);

Oh, also, here is what's happening with @bad_array eventually:

my $happy_time = Time::Piece->strptime($bad_array[0]->as_text . " " . $year, $format);

---

MAYBE THIS CAN BE MODIFIED:

foreach ( @bad_array )
{
        print $_->as_text, "\n";
}

---

IS THIS IT?

foreach $temp( @bad_array )
{
        push @good_array, $temp->as_text =~ /MY BEAUTIFUL PATTERN/g;
        #THIS IS SIMPLY RIDICULOUS
}

OR IS IT THIS?

foreach( keys %hash ) {
  $hash{$_} =~ s/something/something_else/g;
}

(SOURCE: http://www.perlmonks.org/?node_id=477712)

PERHAPS THIS?

foreach (values %hash) { s/[A-Z][a-z]*, //g  };

Where my %hash = @bad_array;, right? No, that can't be it, that's working with a copy...

---

HERE ARE THE RESULTS:

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
use Time::Piece;
use HTML::Tree;

print "Enter either \"today\" or a date (January 01 14): ";
my $userdate = <STDIN>;
chomp $userdate;
exit 0 if ($userdate eq "");

my $url0 = 'http://www.registrar.ucla.edu/calendar/acadcal13.htm';
my $url1 = 'http://www.registrar.ucla.edu/calendar/acadcal14.htm';
my $url2 = 'http://www.registrar.ucla.edu/calendar/acadcal15.htm';
my $url3 = 'http://www.registrar.ucla.edu/calendar/acadcal16.htm';
my $url4 = 'http://www.registrar.ucla.edu/calendar/acadcal17.htm';
my $url5 = 'http://www.registrar.ucla.edu/calendar/sumcal.htm';

my $document0 = get($url0);
my $document1 = get($url1);
my $document2 = get($url2);
my $document3 = get($url3);
my $document4 = get($url4);
my $document5 = get($url5);

my $tree0 = HTML::Tree->new();
$tree0->parse($document0);

my @juice_box0 = $tree0->look_down(
    _tag => 'td',
    bgcolor => '#FAE9F7'
);

my $tree1 = HTML::Tree->new();
$tree1->parse($document1);

my @juice_box1 = $tree1->look_down(
        _tag => 'td',
        bgcolor => '#FAE9F7'
);

my $tree2 = HTML::Tree->new();
$tree2->parse($document2);

my @juice_box2 = $tree2->look_down(
        _tag => 'td',
        bgcolor => '#FAE9F7'
);

my $tree3 = HTML::Tree->new();
$tree3->parse($document3);

my @juice_box3 = $tree3->look_down(
        _tag => 'td',
        bgcolor => '#FAE9F7'
);

my $tree4 = HTML::Tree->new();
$tree4->parse($document4);

my @juice_box4 = $tree4->look_down(
        _tag => 'td',
        bgcolor => '#FAE9F7'
);

my $tree5 = HTML::Tree->new();
$tree5->parse($document5);

my @juice_box5 = $tree5->look_down( #IT'S GOT 30 ELEMENTS
        _tag => 'td',
        width => '140'
);

my $date_tree = HTML::Tree->new();
$date_tree->parse($document5);

my @nectar_pod = $date_tree->look_down(
    _tag => 'h4'
);

foreach ( @juice_box0 )
{
    print $_->as_text, "\n";
}
print "\n\n";
foreach ( @juice_box1 )
{
        print $_->as_text, "\n";
}
print "\n\n";
foreach ( @juice_box2 )
{
        print $_->as_text, "\n";
}
print "\n\n";
foreach ( @juice_box3 )
{
        print $_->as_text, "\n";
}
print "\n\n";
foreach ( @juice_box4 )
{
        print $_->as_text, "\n";
}
print "\n\n";
foreach ( @juice_box5 )
{
        print $_->as_text, "\n";
}

my $input_format = '%A, %B %d %y';
my $output_format = '%B %d %y';

#WHAT IS WRONG WITH THESE DATES? THEY ARE NOT PARSING...

my $t0 = Time::Piece->strptime($juice_box0[1]->as_text . ' ' . 13, $input_format)->strftime($output_format); #13
my $t1 = Time::Piece->strptime($juice_box0[5]->as_text . ' ' . 13, $input_format)->strftime($output_format); #13
my $t2 = Time::Piece->strptime($juice_box0[7]->as_text . ' ' . 14, $input_format)->strftime($output_format); #14
my $t3 = Time::Piece->strptime($juice_box0[11]->as_text . ' ' . 14, $input_format)->strftime($output_format); #14
my $t4 = Time::Piece->strptime($juice_box0[13]->as_text . ' ' . 14, $input_format)->strftime($output_format); #14
my $t5 = Time::Piece->strptime($juice_box0[17]->as_text . ' ' . 14, $input_format)->strftime($output_format); #14

my $u0 = Time::Piece->strptime($juice_box1[1]->as_text . ' ' . 14, $input_format)->strftime($output_format); #14
my $u1 = Time::Piece->strptime($juice_box1[5]->as_text . ' ' . 14, $input_format)->strftime($output_format); #14
my $u2 = Time::Piece->strptime($juice_box1[7]->as_text . ' ' . 15, $input_format)->strftime($output_format); #15
my $u3 = Time::Piece->strptime($juice_box1[11]->as_text . ' ' . 15, $input_format)->strftime($output_format); #15
my $u4 = Time::Piece->strptime($juice_box1[13]->as_text . ' ' . 15, $input_format)->strftime($output_format); #15
my $u5 = Time::Piece->strptime($juice_box1[17]->as_text . ' ' . 15, $input_format)->strftime($output_format); #15

my $v0 = Time::Piece->strptime($juice_box2[1]->as_text . ' ' . 15, $input_format)->strftime($output_format);
my $v1 = Time::Piece->strptime($juice_box2[5]->as_text . ' ' . 15, $input_format)->strftime($output_format);
my $v2 = Time::Piece->strptime($juice_box2[7]->as_text . ' ' . 16, $input_format)->strftime($output_format);
my $v3 = Time::Piece->strptime($juice_box2[11]->as_text . ' ' . 16, $input_format)->strftime($output_format);
my $v4 = Time::Piece->strptime($juice_box2[13]->as_text . ' ' . 16, $input_format)->strftime($output_format);
my $v5 = Time::Piece->strptime($juice_box2[17]->as_text . ' ' . 16, $input_format)->strftime($output_format);

my $w0 = Time::Piece->strptime($juice_box3[1]->as_text . ' ' .  16, $input_format)->strftime($output_format);
my $w1 = Time::Piece->strptime($juice_box3[5]->as_text . ' ' . 16, $input_format)->strftime($output_format);
my $w2 = Time::Piece->strptime($juice_box3[7]->as_text . ' ' . 17, $input_format)->strftime($output_format);
my $w3 = Time::Piece->strptime($juice_box3[11]->as_text . ' ' . 17, $input_format)->strftime($output_format);
my $w4 = Time::Piece->strptime($juice_box3[13]->as_text . ' ' . 17, $input_format)->strftime($output_format);
my $w5 = Time::Piece->strptime($juice_box3[17]->as_text . ' ' . 17, $input_format)->strftime($output_format);

my $x0 = Time::Piece->strptime($juice_box4[1]->as_text . ' ' . 17, $input_format)->strftime($output_format);
my $x1 = Time::Piece->strptime($juice_box4[5]->as_text . ' ' . 17, $input_format)->strftime($output_format);
my $x2 = Time::Piece->strptime($juice_box4[7]->as_text . ' ' . 18, $input_format)->strftime($output_format);
my $x3 = Time::Piece->strptime($juice_box4[11]->as_text . ' ' . 18, $input_format)->strftime($output_format);
my $x4 = Time::Piece->strptime($juice_box4[13]->as_text . ' ' . 18, $input_format)->strftime($output_format);
my $x5 = Time::Piece->strptime($juice_box4[17]->as_text . ' ' . 18, $input_format)->strftime($output_format);

my $y0 = Time::Piece->strptime($juice_box5[0]->as_text . ' ' . 12, $output_format);
my $y1 = Time::Piece->strptime($juice_box5[9]->as_text . ' ' . 12, $output_format);
my $y2 = Time::Piece->strptime($juice_box5[10]->as_text . ' ' . 13, $output_format);
my $y3 = Time::Piece->strptime($juice_box5[19]->as_text . ' ' . 13, $output_format);
my $y4 = Time::Piece->strptime($juice_box5[20]->as_text . ' ' . 14, $output_format);
my $y5 = Time::Piece->strptime($juice_box5[29]->as_text . ' ' . 14, $output_format);

my $date;

#THESE NEVER PRINT.

print "\n\n";
print $juice_box4[1]->as_text . ' ' . 17;
print "\n\n";
print $juice_box5[29]->as_text . ' ' . 14;
print "\n\n";

if( $userdate == 'today' ) # WHY IS THIS NOT RIGHT? I GET AN ERROR HERE.
{
    $date = localtime->strftime('%B %d %y'); #USED TO HAVE %A, 
}
else
{
    $date = Time::Piece->strptime($userdate, $input_format)->strftime($output_format);
}

if( ($t0->julian_day <= $date && $date <= $t1->julian_day) || ($u0->julian_day <= $date && $date <= $u1->julian_day) || ($v0->julian_day <= $date && $date <= $v1->julian_day) || ($w0->julian_day <= $date && $date <= $w1->julian_day) )
{
        print "You are in the Fall Quarter. \n";
}
elsif( ($t2->julian_day <= $date && $date <= $t3->julian_day) || ($u2->julian_day <= $date && $date <= $u3->julian_day) || ($v2->julian_day <= $date && $date <= $v3->julian_day) || ($w2->julian_day <= $date && $date <= $w3->julian_day) )
{
        print "You are in the Winter Quarter. \n";
}
elsif( ($t4->julian_day <= $date && $date <= $t5->julian_day) || ($u4->julian_day <= $date && $date <= $u5->julian_day) || ($v4->julian_day <= $date && $date <= $v5->julian_day) || ($w4->julian_day <= $date && $date <= $w5->julian_day) )
{
        print "You are in the Spring Quarter. \n";
}
elsif( ($y0->julian_day <= $date && $date <= $y1->julian_day) || ($y2->julian_day <= $date && $date <= $y3->julian_day) || ($y4->julian_day <= $date && $date <= $y5->julian_day)  )
{
       print "You are in the Summer Quarter. \n";
}
else
{
        print "You are on break. \n";
}

Answer 1

Use Time::Piece's strftime method to re-format the date:

use Time::Piece;

my $input_format  = '%a, %b %d %Y';
my $output_format = '%b %d %y';

my $year       = '2014';
my $input_date = "Monday, June 12 $year";

my $output_date = Time::Piece->strptime( $input_date, $input_format )->strftime( $output_format );

print $output_date;

In your case:

my $happy_time = Time::Piece->strptime( $bad_array[0]->as_text . " " . $year, $format )->strftime( '%b %d %y' );

Answer 2

You could do this:

my @good = map { s/Monday,//; $_ } @bad_array;