From: fredrik Date: Thu, 15 May 2008 18:20:21 +0000 (+0000) Subject: Print matches asynchronously. X-Git-Url: http://git.dolda2000.com/gitweb/?a=commitdiff_plain;ds=sidebyside;h=d865a9082a348e93d66f7a2f6e99f9407fcab6e4;p=utils.git Print matches asynchronously. git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@1112 959494ce-11ee-0310-bf91-de5d638817bd --- diff --git a/tel2name b/tel2name index f9744bc..7e01302 100755 --- a/tel2name +++ b/tel2name @@ -95,6 +95,8 @@ match: while() { for $prev (@matches) { next match if $prev eq $_; } + print "$_\n"; + flush; push @matches, $_; } match: while() { @@ -102,9 +104,7 @@ match: while() { for $prev (@matches) { next match if $prev eq $_; } + print "$_\n"; + flush; push @matches, $_; } - -for $match (@matches) { - print "$match\n"; -}