У меня есть сценарий, который работает на сервере, и я хочу, чтобы он теперь отправлял сообщения на мой компьютер. Я хочу отправить TCP или UDP-сообщения на какой-либо порт.Как подключиться к удаленному компьютеру через TCP и UDP с помощью Perl?
Каков наилучший способ сделать это (учебник будет замечательным)?
И есть ли какая-то клиентская программа, которую я могу запустить на своем ПК, которая будет слушать локальный порт для сообщений?
Существует много способов сделать это. Один из самых простых заключается в том, чтобы ваша программа отправила ваш электронный адрес. В Perl вы можете использовать, например, Email::Send. Другие способы включают сокеты или доступ к вашей веб-серверу на вашем ПК. Это зависит от того, какие объекты вы хотите использовать. Обычно я использую команду ssh для доступа к другим компьютерам по сети.
Вы можете использовать Net Send, если ваш на окнах, запись «Net Send Help» для получения дополнительной информации в CMD я не знаю Perl, но запустить CMD Net Send Message Computer
Убедитесь Тхет сеть сервис отправки является работает ... google it для получения дополнительной информации.
Net Send заблокирован в сети нашей компании –
И на sp3 по умолчанию заблокирован –
Стоит нарисовать: P – Peter
Клиент может отправить TCP и UDP сообщения, используя сокет, например:
use IO::Socket;
my $socket = IO::Socket::INET->new(PeerAddr => 'theserver',
PeerPort => '1234', Proto => 'tcp', Type => SOCK_STREAM);
print $socket "Hello server!";
close($socket);
сервер должен прослушивать порт и принимать сообщения, поступающие на него:
my $socket = new IO::Socket::INET (LocalHost => 'hostname',
LocalPort => '1234', Proto => 'tcp', Listen => 1, Reuse => 1);
my $incoming = $sock->accept();
while(<$incoming>) {
print $_;
}
close($incoming);
Это только верхушка айсберга, но, надеюсь, это поможет вам начать.
Знаете ли вы, что какой-нибудь портвейер, который может слушать мой порт? nНе тяжелые вещи, такие как wirehark ... –
Port sniffers отображает сетевой трафик, но они фактически не слушают. Существует утилита netcat, которая может слушать, например, 'nc -l -p 1234' http://www.catonmat.net/blog/unix-utilities-netcat/ – Andomar
Начинать с чтения документации perlipc - содержит примеры простых серверов и клиентов с множеством очень важных дополнений (например, как правильно демонировать).
Хотя немного устарел, вы хотите найти копию от Network Programming with Perl от Lincoln Stein. Кроме того, посмотрите на модули Perl с Socket в своих именах.
Я новичок в Perl, и у нас нет сервера smtp на этом сервере. –
Не совсем понятно, что вы хотите сделать, поэтому я не могу дать ясный ответ. – 2009-11-21 08:54:14
Я хочу отправить tcp или udp массаж в какой-то порт. –