15.7 端末のビープ音を制御する

Perl Cookbook
  • "\a"文字を出力する
print "\aWake Up!\n";
  • "vb"端末機能を使用して、ビジュアルレベルを表示する
use Term::Cap;

$OSPEED = 9600;
eval {
  require POSIX;
  my $termios = POSIX::Termios->new();
  $termios->getatt;
  $OSPEED = $termios->getospeed;
};

$terminal = Term::Cap->Tgetent({OSPEED=>$OSPEED});
$vb = "";
eval {
  $terminal->Trequire("vb");
  $vb = $terminal->Tputs('vb', 1);
};

print $vb;