/[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

Contents of /bin/iselect.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 12 - (show annotations)
Thu Oct 25 15:50:56 2007 UTC (12 years, 1 month ago) by dpavlin
File MIME type: text/plain
File size: 448 byte(s)
first step into makeing it a module
1 #!/usr/bin/perl -w
2
3 use strict;
4
5 use blib;
6
7 use Term::ISelect;
8 use Data::Dump qw/dump/;
9
10 my $data = <<'EOF';
11 First line
12
13 {s}first selectable
14 {s}second selectable
15
16 a space....
17
18 ...infinity and beyond
19
20
21 {s}foo
22 {s}bar
23
24 bum
25
26 EOF
27
28 $data .= ( rand(10) < 5 ? '{s}' : '' ) . "foobar $_\n" foreach ( 1 .. 300 );
29
30 $data .= "\n--EOF--";
31
32 Term::ISelect->screen(
33 sub {
34 warn "## ",dump(@_);
35 },
36 split(/\n/, $data),
37 );
38

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26