Странная конструкция
вот кусок выдранного кода
я новичек в программирование perl, но мне надобно разобраться в чем может быть ошибка в этой строке:
$args{'message'} = do { local (@ARGV, $/); <> };
Как видно из коменьтариев данный скрипт принимает из коммандной строки путь к письму (у меня по умолчанию C:\Inetpub\mailroot\Drop) и что то с ним делает. Раставив warn-ы по всему скрипту я узнал, что далее именно этой строки скрипт не хочет выполняться, то есть почему то зависает в ней. Сам не могу понять в чем здесь может быть проблема, но скрипт упорно зависает. Помогить плз умы перла.
Код:
use strict;
use Getopt::Long;
use LWP::UserAgent;
use constant EX_TEMPFAIL => 75;
my %opts;
GetOptions( \%opts, "queue=s", "action=s", "url=s", "jar=s", "help", "debug", "extension=s", "timeout=i" );
if ( $opts{help} ) {
require Pod::Usage;
import Pod::Usage;
pod2usage("RT Mail Gateway\n");
exit 1; # Don't want to succeed if this is really an email!
}
for (qw(url)) {
die "$0 invoked improperly\n\nNo $_ provided to mail gateway!\n" unless $opts{$_};
}
my $ua = LWP::UserAgent->new();
$ua->cookie_jar( { file => $opts{jar} } );
my %args = (
queue => $opts{queue},
action => $opts{action},
SessionType => 'REST', # Surpress login box
);
warn @ARGV;
# Read the message in from STDIN
$args{'message'} = do { local (@ARGV, $/); <> };
unless ( $args{message} =~ /\S/ ) {
print STDERR "$0: no message passed on STDIN!\n";
exit 0;
}
use Getopt::Long;
use LWP::UserAgent;
use constant EX_TEMPFAIL => 75;
my %opts;
GetOptions( \%opts, "queue=s", "action=s", "url=s", "jar=s", "help", "debug", "extension=s", "timeout=i" );
if ( $opts{help} ) {
require Pod::Usage;
import Pod::Usage;
pod2usage("RT Mail Gateway\n");
exit 1; # Don't want to succeed if this is really an email!
}
for (qw(url)) {
die "$0 invoked improperly\n\nNo $_ provided to mail gateway!\n" unless $opts{$_};
}
my $ua = LWP::UserAgent->new();
$ua->cookie_jar( { file => $opts{jar} } );
my %args = (
queue => $opts{queue},
action => $opts{action},
SessionType => 'REST', # Surpress login box
);
warn @ARGV;
# Read the message in from STDIN
$args{'message'} = do { local (@ARGV, $/); <> };
unless ( $args{message} =~ /\S/ ) {
print STDERR "$0: no message passed on STDIN!\n";
exit 0;
}
я новичек в программирование perl, но мне надобно разобраться в чем может быть ошибка в этой строке:
$args{'message'} = do { local (@ARGV, $/); <> };
Как видно из коменьтариев данный скрипт принимает из коммандной строки путь к письму (у меня по умолчанию C:\Inetpub\mailroot\Drop) и что то с ним делает. Раставив warn-ы по всему скрипту я узнал, что далее именно этой строки скрипт не хочет выполняться, то есть почему то зависает в ней. Сам не могу понять в чем здесь может быть проблема, но скрипт упорно зависает. Помогить плз умы перла.