iselect/bin/iselect.pl

#!/usr/bin/perl -w

use strict;

use blib;

use Term::ISelect;
use Data::Dump qw/dump/;

my $data = <<'EOF';
 First line

{s}first selectable
{s}second selectable

 a space....

                                    ...infinity and beyond


{s}foo
{s}bar

 bum

EOF

$data .= ( rand(10) < 5 ? '{s}' : '' ) . "foobar $_\n" foreach ( 1 .. 300 );

$data .= "\n--EOF--";

Term::ISelect->screen(
        sub {
                warn "## ",dump(@_);
        },
        split(/\n/, $data),
);

1	dpavlin	1	#!/usr/bin/perl -w
2
3			use strict;
4	dpavlin	12
5			use blib;
6
7			use Term::ISelect;
8	dpavlin	1	use Data::Dump qw/dump/;
9
10			my $data = <<'EOF';
11			First line
12
13	dpavlin	4	{s}first selectable
14			{s}second selectable
15	dpavlin	1
16			a space....
17
18			...infinity and beyond
19
20
21	dpavlin	4	{s}foo
22			{s}bar
23	dpavlin	1
24			bum
25	dpavlin	4
26	dpavlin	1	EOF
27
28	dpavlin	11	$data .= ( rand(10) < 5 ? '{s}' : '' ) . "foobar $_\n" foreach ( 1 .. 300 );
29	dpavlin	1
30	dpavlin	6	$data .= "\n--EOF--";
31
32	dpavlin	12	Term::ISelect->screen(
33			sub {
34			warn "## ",dump(@_);
35			},
36			split(/\n/, $data),
37			);
38	dpavlin	1