Help for this page

Select Code to Download


  1. or download this
    perl -ne '$lines++;$common++ if ($seen{$_} .= @ARGV) =~ /10$/; END{pri
+ntf("%.2f",$common/$lines*200)}' file1.txt file2.txt
  2. or download this
    perl -ne '$lines++;$common++ if ($seen{$_} .= @ARGV) eq "10"; END{prin
+tf("%.2f",$common/$lines*200)}' file1.txt file2.txt