On Sunday 03 April 2016, Хихин Руслан wrote:

> А считайте всё в массив и сравните, то что выдаёте и что читаете. 
> Кстати, как вы перевод строки обозначаете?

Да сравнил уже. Собственно говоря, там сравнивать нечего особо:

    my $message="";
    my $n="";

    while (<STDIN>) {
        chomp;
        $message=$message . $n . $_ ;
        $n="\n";
    }

В общем, переделал на запись собщения в файл и cat. Работает.
С SMS::Send, может, потом поковыряюсь.

-- 
С уважением, Сергей
[email protected]
_______________________________________________
Sysadmins mailing list
[email protected]
https://lists.altlinux.org/mailman/listinfo/sysadmins

Ответить