Help for this page

Select Code to Download


  1. or download this
    $ perl -ce '$no_days = "(TO_DAYS(dateadded)-TO_DAYS(Now())>=-$newdatea
+dded)";'
-e syntax OK
  2. or download this
    $ perl -MO=Deparse,-p -e '$no_days = "(TO_DAYS(dateadded)-TO_DAYS(Now(
+))>=-$newdateadded)";'
($no_days = "(TO_DAYS(dateadded)-TO_DAYS(Now())>=-$newdateadded)");
-e syntax OK
  3. or download this
    $ perl -e '
    $newdateadded = "NDA";
...
    print $no_days;
'
(TO_DAYS(dateadded)-TO_DAYS(Now())>=-NDA)