0:
1: %A=('r'=>"\n","\t"=>'#','/'=>
2: 's','f'=>'p',"b"=>'n');@C=qw (e
3: ! r/ / e );foreach $k (sort keys
4: %A){ @B=(" ",'u','i',"\b",'l');$s
5: .=qq{$k$B[$x++]$A{$k}$C[$x] \b};if
6: ($x==1){$t=$k.$B[$x-1].$A{$k};}#ops
7: } print$A{r}.$s;#i h8 left over \s's
8:
9:
10: I hate it when I need to complete a
11: line in these with comments... :o)
12:
13:
In reply to #!/usr/bin/perl by BBQ
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |