/[iselect]/bin/iselect.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/iselect.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by dpavlin, Thu Oct 25 15:50:56 2007 UTC revision 14 by dpavlin, Thu Oct 25 17:24:33 2007 UTC
# Line 28  EOF Line 28  EOF
28  $data .= ( rand(10) < 5 ? '{s}' : '' ) . "foobar $_\n" foreach ( 1 .. 300 );  $data .= ( rand(10) < 5 ? '{s}' : '' ) . "foobar $_\n" foreach ( 1 .. 300 );
29    
30  $data .= "\n--EOF--";  $data .= "\n--EOF--";
31            
32    my @lines = split(/\n/, $data);
33    warn "lines = ", dump( @lines );
34    
35  Term::ISelect->screen(  my $iselect = Term::ISelect->new({
36            lines => [ @lines ],
37    });
38    
39    $iselect->loop(
40          sub {          sub {
41                  warn "## ",dump(@_);                  warn "## ",dump(@_);
42          },          },
         split(/\n/, $data),  
43  );  );
44    
Legend:
Removed from v.12  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.26