You could use glob with substr although it gives a warning.
johngg@shiraz ~/perl/Monks $ perl -Mstrict -Mwarnings -E ' my $str = q{0ae}; my $globStr = q/{/ . join( q{,}, 0 .. 9, q{a} .. q{f} ) . q/}/; for my $off ( 0 .. length( $str ) + 1 ) { my $new = $str; substr $new, $off, 0, $globStr; say for glob $new; }' 00ae 10ae 20ae 30ae 40ae 50ae 60ae 70ae 80ae 90ae a0ae b0ae c0ae d0ae e0ae f0ae 00ae 01ae 02ae 03ae 04ae 05ae 06ae 07ae 08ae 09ae 0aae 0bae 0cae 0dae 0eae 0fae 0a0e 0a1e 0a2e 0a3e 0a4e 0a5e 0a6e 0a7e 0a8e 0a9e 0aae 0abe 0ace 0ade 0aee 0afe 0ae0 0ae1 0ae2 0ae3 0ae4 0ae5 0ae6 0ae7 0ae8 0ae9 0aea 0aeb 0aec 0aed 0aee 0aef substr outside of string at -e line 7.
I hope this is useful.
Update: This gets rid of the warning.
johngg@shiraz ~/perl/Monks $ perl -Mstrict -Mwarnings -E ' my $str = q{0ae}; my $globStr = q/{/ . join( q{,}, 0 .. 9, q{a} .. q{f} ) . q/}/; for my $off ( 0 .. length $str ) { my $new = $str; substr $new, $off, 0, $globStr; say for glob $new; } $str .= $globStr; say for glob $str;' 00ae 10ae 20ae 30ae 40ae 50ae 60ae 70ae 80ae 90ae a0ae b0ae c0ae d0ae e0ae f0ae 00ae 01ae 02ae 03ae 04ae 05ae 06ae 07ae 08ae 09ae 0aae 0bae 0cae 0dae 0eae 0fae 0a0e 0a1e 0a2e 0a3e 0a4e 0a5e 0a6e 0a7e 0a8e 0a9e 0aae 0abe 0ace 0ade 0aee 0afe 0ae0 0ae1 0ae2 0ae3 0ae4 0ae5 0ae6 0ae7 0ae8 0ae9 0aea 0aeb 0aec 0aed 0aee 0aef 0ae0 0ae1 0ae2 0ae3 0ae4 0ae5 0ae6 0ae7 0ae8 0ae9 0aea 0aeb 0aec 0aed 0aee 0aef
Update 2: Shouldn't post late at night when brain already half asleep! The warning was because I was being an idiot, length( $str ) + 1 should be length $str of course :-/
johngg@shiraz ~/perl/Monks $ perl -Mstrict -Mwarnings -E ' my $str = q{0ae}; my $globStr = q/{/ . join( q{,}, 0 .. 9, q{a} .. q{f} ) . q/}/; for my $off ( 0 .. length $str ) { my $new = $str; substr $new, $off, 0, $globStr; say for glob $new; }' 00ae 10ae 20ae 30ae 40ae 50ae 60ae 70ae 80ae 90ae a0ae b0ae c0ae d0ae e0ae f0ae 00ae 01ae 02ae 03ae 04ae 05ae 06ae 07ae 08ae 09ae 0aae 0bae 0cae 0dae 0eae 0fae 0a0e 0a1e 0a2e 0a3e 0a4e 0a5e 0a6e 0a7e 0a8e 0a9e 0aae 0abe 0ace 0ade 0aee 0afe 0ae0 0ae1 0ae2 0ae3 0ae4 0ae5 0ae6 0ae7 0ae8 0ae9 0aea 0aeb 0aec 0aed 0aee 0aef
Cheers,
JohnGG
In reply to Re: Generate list of possibilities from incomplete input
by johngg
in thread Generate list of possibilities from incomplete input
by Pascal666
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |