modify tranform_num() for '666666666'

soracha · Jun 22, 2012 · 2675287 · 2675287
1 parent 7ab0f4e
commit 2675287
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/BankOCR.pm b/BankOCR.pm
@@ -34,6 +34,11 @@ sub tranform_num {
 			   " _| _| _| _| _| _| _| _| _|" .
 			   "                           " ;
 
+	my $str6 = " _  _  _  _  _  _  _  _  _ " .
+			   "|_ |_ |_ |_ |_ |_ |_ |_ |_ " .
+			   "|_||_||_||_||_||_||_||_||_|" .
+			   "                           " ;
+
 	if ( $input eq $str0 ) {
 		return "000000000" ;
 	}
@@ -58,6 +63,11 @@ sub tranform_num {
 		return "555555555" ;
 	}
 
+	elsif ( $input eq $str6)
+	{
+		return "666666666" ;
+	}
+
 	return "Not number" ;
 }