/[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 14 by dpavlin, Thu Oct 25 17:24:33 2007 UTC revision 18 by dpavlin, Thu Oct 25 19:32:24 2007 UTC
# Line 30  $data .= ( rand(10) < 5 ? '{s}' : '' ) . Line 30  $data .= ( rand(10) < 5 ? '{s}' : '' ) .
30  $data .= "\n--EOF--";  $data .= "\n--EOF--";
31                    
32  my @lines = split(/\n/, $data);  my @lines = split(/\n/, $data);
33  warn "lines = ", dump( @lines );  #warn "lines = ", dump( @lines );
34    
35  my $iselect = Term::ISelect->new({  my $iselect = Term::ISelect->new({
36          lines => [ @lines ],          lines => [ @lines ],
Legend:
Removed from v.14  
changed lines
  Added in v.18
  ViewVC Help
Powered by ViewVC 1.1.26