Help for this page

Select Code to Download


  1. or download this
    $ perl ./a
Useless use of numeric gt (>) in void context at /work/tmp/a line 4.
  2. or download this
    #!/usr/bin/perl
use warnings;
my $flag=  ((-M '/tmp/a') > (-M '/tmp/b'));          #no warnings
my $flag2= $flag and ((-M '/tmp/c') > (-M '/tmp/d')); #warning at here
  3. or download this
    if(-f $file1 and  ((-M _) > (-M $file2))){ ...