57 |
$selectable_line->{$l}++; |
$selectable_line->{$l}++; |
58 |
$foo = '*'; |
$foo = '*'; |
59 |
} |
} |
60 |
warn "$l: $foo $lines[$l]\n"; |
# warn "$l: $foo $lines[$l]\n"; |
61 |
} |
} |
62 |
|
|
63 |
# select first selectable line |
# select first selectable line |
64 |
|
|
65 |
if ( $selectable_line ) { |
if ( $selectable_line ) { |
66 |
$sel_pos = (sort keys %$selectable_line)[0]; |
$pos = $sel_pos = (sort { $a <=> $b } keys %$selectable_line)[0]; |
67 |
warn "selected first selectable line $pos"; |
warn "selected first selectable line $sel_pos"; |
68 |
} |
} |
69 |
|
|
70 |
sub full_line { |
sub full_line { |