передать перл скрипту переменную телнетом.

покажи скрипт

В такой комплектации у меня все работает из xinetd точно так же,
как из командной строки:

$ cat /home/Onanim/test.pl 
#!/usr/bin/perl

use warnings;
use strict;

use IO::Handle;

open(LOG, '>>/tmp/test.pl.log')  or die "cannot open: $!\n";
LOG->autoflush(1);
 
while (<STDIN>) {
    tr/\r\n//d;
    print LOG ">>>$_<<<\n";
}
$
$
$ cat /etc/xinetd.d/test 
service test
{
    type                = UNLISTED
    socket_type         = stream
    protocol            = tcp
    wait                = no
    server              = /home/Onanim/test.pl
    port                = 12345
    user                = root
    disable             = no
}
$

Так что давай скрипт показывай.

HTH

>Хожу на этот порт, скрипт ожидает ввода и чтобы я ни ввел, он вылетает, потому что переменная оказывается пустой.

Вроде телнет в начале согласовывает параметры терминала, соответственно скрипт в начале получит не вашу строку, а служебную информацию, поэтом если нужно просто передать строку в tcp-соединение, то лучше использовать nc.

vot kusok skripta;

#!/usr/bin/perl

use strict;
use Log::Handler;

#Параметр передаем через ключи ком.строки, иначе ожидаем с STDIN (таймаут 20 сек).
if (!$ARGV[0]) {
vec(my $rin = '',fileno(STDIN),1) = 1;
    if ( select($rin,undef,undef,20) ) {
    $value =<STDIN>;chomp $value;
} else {
    print "Timeout\n";
    exit;
}
} else {
$value=$ARGV[0];
}

print ("your variable is: $value");
exit;

$ARGV[0] какие ж там могут быть аргументы командной строки? там только stdin stdout stderr

#!/usr/bin/perl
use warnings;
use strict;

vec(my $rin = '',fileno(STDIN),1) = 1;

if ( select($rin,undef,undef,5) ) {
    my $value = <STDIN>;
    $value =~ s/\r\n//; #удаляем \r\n
    print `ls` if ($value eq 'ls'); #выводим результат некоторых команд
    print `date` if ($value eq 'date'); #^
} else {
    print "Timeout\n";
}
exit 0;

> Вроде телнет в начале согласовывает параметры терминала,
> соответственно скрипт в начале получит не вашу строку, а служебную
> информацию, поэтом если нужно просто передать строку в tcp-
> соединение, то лучше использовать nc.

Обычно

- When connecting to a non-standard port, telnet omits any
- automatic initiation of TELNET options.
-

(from man telnet).

$value =~ s/\r\n//; #удаляем \r\n
Помогла эта строчка.
Если писать просто chomp $value то не помогает.
Так что теперь все работает!
Спасибо.