Имеется такой вот кусок кода (цифры просто для нумерации строк):
.................
307 print "\\n\\n\\n-------------------------------------\\nMessage is $message:\\n\\n\\n\\n";
308 &logfile($logfile,"Parcing message...");
309 my $stripper = Email::MIME::Attachment::Stripper->new($message);
.................
Вывод дает такой вот:
-------------------------------------
Message is Return-Path:
X-Original-To: test@xxx.kiev.ua
Delivered-To: test@xxx.kiev.ua
Received: by xxx.skif.com.ua (Postfix, from userid 106)
id D824EFDC4; Wed, 13 Jul 2005 11:54:30 +0300 (EEST)
Received: from mersedes.avtoprofit.local (unknown [10.0.43.4])
by xxx.skif.com.ua (Postfix) with ESMTP id D8281FDBF
for ; Wed, 13 Jul 2005 11:54:23 +0300 (EEST)
To: test@xxx.kiev.ua
From: test@xxx.kiev.ua
Subject: NAKLAD-KLO: Wed Jul 13 11:54:22 2005
Date: Wed, 13 Jul 2005 11:54:24 +0300
X-Mailer: Perl script "nakladnaya.pl"
using Mail::Sender 0.8.10 by Jenda Krynicky, Czechlands
running on mersedes.avtoprofit.local (10.0.43.4)
under account "skif"
Message-ID: <20050713_085424_099591.test@xxx.kiev.ua>
MIME-Version: 1.0
Content-type: multipart/mixed;
boundary="Message-Boundary-by-Mail-Sender-1121244862"
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--Message-Boundary-by-Mail-Sender-1121244862
Content-type: text/plain; charset="US-ASCII"
Content-description: Mail message body
Content-transfer-encoding: 7BIT
Content-disposition: inline
Get URBD exchange file
Wed Jul 13 11:54:22 2005 |------------------------------------------|
Wed Jul 13 11:54:22 2005 Starting Exchange of nakladnaya for 1C...
Wed Jul 13 11:54:22 2005 |------------------------------------------|
Wed Jul 13 11:54:22 2005 Sending exchange file ...
Wed Jul 13 11:54:22 2005 Sending mail...NAKLAD-KLO: Wed Jul 13 11:54:22 2005
--Message-Boundary-by-Mail-Sender-1121244862
Content-type: application/octet-stream; name="exchange.urbd"; type=Unknown;
Content-description: exchange.urbd
Content-transfer-encoding: Base64
Content-disposition: attachment; filename="exchange.urbd"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTFcZGVmZjBcZGVmbGFuZzEwNDl7XGZvbnR0Ymx7XGYwXGZu
aWxcZmNoYXJzZXQwIDt9fQ0Ke1wqXGdlbmVyYXRvciBNc2Z0ZWRpdCA1LjQxLjIxLjI1MDA7fVx2
aWV3a2luZDRcdWMxXHBhcmRcbGFuZzEwMzNcZjBcZnMyMCBzYWRhc2Rhc2Rhc2Rhc2Rhc2RhXHBh
cg0Kc1xwYXINCmRccGFyDQphc1xwYXINCmRccGFyDQphc1xwYXINCmRccGFyDQphc1xwYXINCmRc
cGFyDQphc1xwYXINCmRccGFyDQphc2RccGFyDQphc2RccGFyDQp9DQoA
--Message-Boundary-by-Mail-Sender-1121244862--
:
Need a message at E:\\scripts\\1c_exch\\bin\\nakladnaya.pl line 309
E:\\scripts\\1c_exch\\bin>
В общем идет ошибка на 309 строку, хотя передаваемое значение $message (смотрите вывод) нормально отформатировано и имеет место быть, а кричит, что нету. Самое интересное, что под фрей этот кусок кода неоднократно использовался и работает без проблем....
Объясните почему такое может быть под виндой...