Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

temp.pl

By: a guest on Jun 2nd, 2012  |  syntax: Perl  |  size: 0.18 KB  |  hits: 27  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use DateTime;
  5.  
  6. print DateTime->new(year=>'2010',month=>'10',day=>'01')->delta_days(DateTime->new(yea
  7. r=>'2010',month=>'10',day=>'10'))->days . "\n";
create a new version of this paste RAW Paste Data