cmd/echo.pl

   1 #
   2 # echo the line passed to the output decoding certain
   3 # "escape" sequences on the way
   4 #
   5 # Copyright (c) 2002 Dirk Koopman G1TLH
   6 #
   7 # $Id$
   8 #
   9
  10 my ($self, $line) = @_;
  11
  12 $line =~ s/\\t/\t/g;                    # tabs
  13 $line =~ s/\\a/\a/g;                    # beeps
  14 my @out = split /\\[n]/, $line;
  15 return (1, @out);