This is great example of how not to get people to help you. No info about what you're doing with this, and no script.

The line of code you did send works for me:

#!perl-w

$day=22;
$month=7;
$year=104;

print "$day\-".($month+1)."-".($year+1900)."\n";

[download]

Without the rest of the script, it's impossible to tell where it's breaking exactly, though my guess is the variables don't contain what you think.

But I'd like to take the opportunity to suggest a couple of optimisations:

Using a '.' to join strings in a print() statement is expensive - you are doing 2 operations when 1 is enough. print() expects a comma separated list, so:

print $day,"\-",($month+1),"-",($year+1900),"\n"; # less expensive

[download]

looks the same on output but behind the scenes is less expensive to use, just how much less expensive? 

#! perl-w 


$day=22;
$month=7;
$year=104;
$count=-5;


use Benchmark qw(:all) ;

$results = timethese($count, 
            {
                'Concatinated' => sub { print $day."\-".($month+1)."-"
+.($year+1900)."\n";},
                'Commafied' => sub { print $day,"\-",($month+1),"-",($
+year+1900),"\n"; },
            },
            'none'
        );
        cmpthese( $results ) ;

[download]

running the above code I got this

       
                 Rate    Commafied Concatinated
Commafied     74894/s           --         -71%
Concatinated 260000/s         247%           --

[download]

that's means print()ing with commas is over 300% faster.

Using quotes (") on a variable with a print() statement is likewise usually a bad idea because perl has to convert the same information to a string twice, once because of the quotes, the second time to print it.

print $day."\-".($month+1)."-".($year+1900)."\n"; # less expensive

[download]

Benchmarking this is less dramatic than the concatination Vs commas test - it shows an improvement of 6%. However if you're looking to speed up an script these are the kinds of things you should check for first.

You spend twenty years learning the spell that makes nude virgins appear in your bedroom, and then you're so poisoned by quicksilver fumes and half-blind from reading old grimoires that you can't remember what happens next.

In reply to Re: Answer: How do I find today's date? by Sol-Invictus
in thread How do I find today's date? by vroom

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.