Hi All,

I have a perl script named if3.pl pls. see below contents:

------------------------------------------------------
#!/usr/bin/perl -w

$today = `date | awk '{print \$1}'`;

if (($today eq 'Sat') or ($today eq 'Tue'))
{
$do = "Its saturday or tuesday";
}
else
{
$do = "Work!";
}

print "$do\n";
print "$today\n";
------------------------------------------------------

When I ran that script, these are the result.

------------------------------------------------------
$ perl if3.pl
Work!
Tue

------------------------------------------------------

I am expecting "Its saturday or tuesday" since the $today variable has "Tue".

But I have a hint that $today is not only having a value of "Tue" but as well as the extra line after Tue.

------------------------------------------------------
$ perl if3.pl
Work!
Tue
<THIS IS THE EXTRA LINE>
------------------------------------------------------

Any idea how to remote the extra line from $today variable ?


Many Thanks in advance!
- Von

chomp($today=`date | awk '{print \$1}'`);

Why would one call 'awk' from Perl in the first place ?

agree with Sergei, you could have user
`date +%a`

or even kept it in perl

$today = (split(" ", localtime()))[0];

If we are talking about Perl and date/time manipulation, a good place to start from is: http://datetime.perl.org/?Modules .