gaspar@STL-08SIMA.ARMY.MIL (Al Gaspar) (04/16/91)
Sometime back I complained that in the perl debugger the help information scrolled by too quickly (unless I'm on my Sun and can use the scrollbar ;-). Larry Wall suggested an alias that worked great: = h system "sed -n '/^T/,/^command/p' $INC[0]/perldb.pl | less"; I have attempted to put it in my .perldb file as: $DB'alias{'h'} = 'system "sed -n \'/^T/,/^command/p\' $INC[0]/perldb.pl | less"' This works, but... The but is that the h command scrolls through the help information with less just fine; however when you quit out of less the help information gets catted across your screen before you see the perldb prompt again. Is there some way that I can get the two aliases to work the same as in the first example. I do notice that when I do an = or a print on %DB'alias, it looks quite different depending on whether the alias comes from the .perldb file or not. Below is a screen print of both. The 'h' alias came from the .perldb file; the 'hh' alias was done at the perldb prompt with the = command. DB<5> = h system "sed -n '/^T/,/^command/p' $INC[0]/perldb.pl | less" hh = system "sed -n '/^T/,/^command/p' $INC[0]/perldb.pl | less" DB<5> print $DB'alias{h} system "sed -n '/^T/,/^command/p' $INC[0]/perldb.pl | less" DB<6> print $DB'alias{hh} s~hh~system "sed -n '/^T/,/^command/p' $INC[0]/perldb.pl | less"~ I have tried this both on a SPARCstation under perl 4.0/3 and on a Unisys 5000/80 under perl 3.0/41. The results were identical. Thanks-- Al -- Al Gaspar <gaspar@stl-08sima.army.mil> USAMC SIMA, ATTN: AMXSI-TTC, 1222 Spruce St., St. Louis, MO 63103-2834 COMMERCIAL: (314) 331-4354 AUTOVON: 555-4354 uunet.uu.net!stl-08sima.army.mil!gaspar No domain servers here...