Substring Syntax Check

[drodinthe559]

Here's a date I'm having the user enter in to get the month and the year, so I can create a folder with the month name and year. I wasn't sure how to handle the splitting of the date. I tried using split, but it didn't like the / as a delimitter. Any input would be appreciated. Thanks, Dave:)

print "Enter EOM date (MM/DD/YY)?";
chomp(my $eomdate = <STDIN>);
my ($month,$year) = (substr($eomdate,0,2), substr($eomdate,-2));

my $month_t = (qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[$m
+onth -1];
print $month_t . " " . $year . "\n";

[JavaFan]

I tried using split, but it didn't like the / as a delimitter.

I've no problem using / to split:

$ perl -wE '$_ = "12/13/14"; @x = split "/"; say for @x'
12
13
14
$

[drodinthe559]

That worked. Thank you.

[dragonchild]

When parsing user input, I first look for a parser that someone else wrote, look at writing my own parser, and then I reach for regexes. I would never use split to handle user input.

Luckily, dates and times are something that have a lot of work put into them already. DateTime is always what I first reach for, but Date::Calc has several parsing routines that would work perfectly here. Date::Manip is the other date module on CPAN that is pretty good.

[ikegami]

Here's a date I'm having the user enter in to get the month and the year, so I can create a folder with the month name and year.

Is it the current month and year?

my ($y,$m) = (localtime)[5,4];
$m+=1;
$y+=1900;

I tried using split, but it didn't like the / as a delimitter.

split first argument is a regular expression. / has a special meaning in regular expressions, so you need to escape it.

split /\//

Update: Said | where I meant /. Fixed.

[jwkrahn]

/ has a special meaning in regular expressions

No, it doesn't.

$ perl -le'
$_ = "one/two/three/four";
print m,/, ? "true" : "false";
$re = "/";
print $_ =~ $re ? "true" : "false";
'
true
true

Only ?, *, +, [, {, (, ), | and . have special meaning in a regular expression.

[ikegami]

ack, the post originally said | was special, cause I thought the OP said |. I fixed the post rather blindly. True, / is only special if / is the delimiter.

[drodinthe559]

Unfortunely, it isn't the the current month. I always have to take the last month to create the directory. For example, if I had to run it today, it would make a folder in the users directory labeled Aug08. However, I could take the current month and subtract one from it, but I'm thinking the results may potentially be incaccurate when I have to run this in January. It seems like your helping me again. I appreciate your help. I'll give the split a shot. Dave

[toolic]

the results may potentially be incaccurate when I have to run this in January

I agree. So, your choice is to add code to handle the corner case for January, or to use one of the CPAN modules that can probably do this cleanly for you. It looks like you can subtract a month using the Add_Delta_YM function from Date::Calc.