[perl] parametri

Imam eno skriptico

#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new("smtp.burek.si");

$smtp->mail("nagios\@burek.si");
$smtp->to("sms\@burek.si");
$smtp->data();
$smtp->datasend("SUBJECT: NAGIOS alarm \n\n ". $ARGV[0]  ."\n\n");
$smtp->dataend();
$smtp->quit();

skripto poklicem

./skripta.pl "test1\n\ntest2\n\ntest3"

vendar mi tiste \n\n v parametru ne spremeni v line feed-e

Pomoc?

Mogoce je se kak drugacen nacin, ampak tale deluje:

x.pl:

#! /usr/bin/perl

my $input = join('', <STDIN>);
print $input;

uporaba:

> echo -e "asaas\n\n" | ./x.pl
asaas


>