Help for this page

Select Code to Download


  1. or download this
    if ($mymobi =~ m/($myepub)/) {print "DUPLICATE FOUND !\n" ;
&movetodir($myfilt,$dupdir );     }
...
if ($mymobi eq $myepub) {print "DUPLICATE FOUND !\n" ;
&movetodir($myfilt,$dupdir );     }
#Works
  2. or download this
    sub typefiles( $tfile , $filetype ) { 
($tfile, $filetype ) = @_ ;
#etc...
}
  3. or download this
    sub typefiles { 
    ($tfile, $filetype ) = @_ ;
    # etc...
}