comment on

Hmmm, a fun chance to play with Entry validate, and to simplify a UI. I'm getting around 8 milliseconds for the look() call on a file with just over two million numbers in it, so it makes sense to call it whenever the number is valid, and thus no "Search" button is needed.


#!/usr/bin/perl

use Search::Dict;
use Tk;
use strict;

my $file = 'd.search'; # combined *sorted* file with phone numbers
open my $fh, '<', $file or die "$0: $! opening $file";

my $mw = new MainWindow;
my $label = $mw->Label( -font => 'fixed 40', -height => 3,
  )->pack(-fill => 'x');
$mw->Entry( -font => 'fixed 40', -validate => 'key', -vcmd => \&test,
  )->pack->focus;

test('');  # do once before first key

MainLoop;  ############################################

sub test
  {
  tr/0-9//cd for my $n = shift;
  $label->configure(
    length $n == 0 ? (-bg => 'gold', -text => 'enter number below') :
    length $n < 10 ? (-bg => 'yellow', -text => 'need more digits') :
    length $n > 10 ? (-bg => 'yellow', -text => 'too many digits') :
    look($fh, $n, 0, 0) >= 0 && <$fh> == $n
      ? (-bg => 'red', -text => 'DO NOT CALL !!')
      : (-bg => 'green', -text => 'go ahead and call'));
  return 1;
  }
[download]

In reply to Re^2: Searching text files by Anonymous Monk
in thread Searching text files by SteveS832001

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Think about Loose Coupling
	PerlMonks