From 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Tue, 14 Sep 1999 14:50:50 +0000
Subject: *** empty log message ***

---
 perl-install/common.pm | 47 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 46 insertions(+), 1 deletion(-)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 5fa40e2b1..d30906a21 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -14,12 +14,18 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $printable_chars $sizeof_int $bitof_int
 );
 @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
 
+
+#-#####################################################################################
+#- Globals
+#-#####################################################################################
 $printable_chars = "\x20-\x7E";     
 $sizeof_int      = psizeof("i");    
 $bitof_int       = $sizeof_int * 8; 
 $SECTORSIZE      = 512;             
 
-1;
+#-#####################################################################################
+#- Functions
+#-#####################################################################################
 
 sub fold_left(&@) {
     my $f = shift;
@@ -264,7 +270,24 @@ sub setVarsInSh {
     $l->{$_} and print F "$_=$l->{$_}\n" foreach @fields;
 }
 
+
+sub best_match {
+    my ($str, @lis) = @_;
+    my @words = split /\W+/, $str;
+    my ($max, $res) = 0;
+    
+    foreach (@lis) {
+	my $count = 0;
+	foreach my $i (@words) {
+	    $count++ if /$i/i;
+	}
+	$max = $count, $res = $_ if $count >= $max;
+    }
+    $res;
+}
+
 sub bestMatchSentence {
+
     my $best = -1;
     my $bestSentence;
     my @s = split /\W+/, shift;
@@ -277,3 +300,25 @@ sub bestMatchSentence {
     }
     $bestSentence;
 }
+
+# count the number of character that match
+sub bestMatchSentence2 {
+
+    my $best = -1;
+    my $bestSentence;
+    my @s = split /\W+/, shift;
+    foreach (@_) {
+	my $count = 0;
+	foreach my $e (@s) { 
+	    $count+= length ($e) if /$e/i;
+	}
+	$best = $count, $bestSentence = $_ if $count > $best;
+    }
+    $bestSentence;
+}
+
+
+#-######################################################################################
+#- Wonderful perl :(
+#-######################################################################################
+1; # 
-- 
cgit v1.2.1