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--";
        
my @lines = split(/\n/, $data);
#warn "lines = ", dump( @lines );

my $iselect = Term::ISelect->new({
        lines => [ @lines ],
});

$iselect->loop(
        sub {
                warn "## ",dump(@_);
        },
);

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	dpavlin	14
32			my @lines = split(/\n/, $data);
33	dpavlin	18	#warn "lines = ", dump( @lines );
34	dpavlin	6
35	dpavlin	14	my $iselect = Term::ISelect->new({
36			lines => [ @lines ],
37			});
38
39			$iselect->loop(
40	dpavlin	12	sub {
41			warn "## ",dump(@_);
42			},
43			);
44	dpavlin	1