#!/usr/bin/perl
use strict;
use warnings;
open (TALK, "|write root ttyp3");
print TALK "hi man\n";
close (TALK);
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: Системное программирование > Передача сообщения на терминал |
| Автор: DiverD 2.1.2006, 11:59 |
| Есть переменная $msg='DEMO' и значение ее нужна отправить по средствам write или talk. пробовал так my @array = `write root ttyp4`; print "$msg",@array; получается не то что нада.. |
| Автор: DiverD 2.1.2006, 12:17 |
| Сам сделал, вас пока дождешся #!/usr/bin/perl use strict; use warnings; open (TALK, "|write root ttyp3"); print TALK "hi man\n"; close (TALK); |