Не открывается файл для записи

  • Автор темы emian
  • Дата начала
E

emian

#1
Здравствуйте всем!
Пишу простейший скрипт, который берет по строчке из одного файла, и заносит эти строчки в новый файл, за исключением указанных в условии.
Сам скрипт вот:
C++:
sysopen(input,"input.txt",O_RDONLY) || die;
sysopen(output,"output.txt",O_WRONLY|O_TRUNC|O_CREAT) || die;
while ($l = <input>)
{
if (length($l)>=11)
{
if (substr($l,0,1)=="¦" && substr($l,2,1)==" " && substr($l,10,1)==" ")
{
print output "DELETED\n";
}
else
{
print output $l."\n";
}
}
else
{
print output $l."\n";
}
}
close(input);
close(output);
Файл input.txt лежит рядом со скриптом. output.txt по идее должен создаться.
В консоле получается вот что:
Код:
----------------------------------------------
Welcome to Strawberry Perl Portable Edition!
* URL - http://www.strawberryperl.com/
* see README.portable.TXT for more info
----------------------------------------------
Perl executable: S:\perl\perl\bin\perl.exe
Perl version  : 5.12.1
Microsoft Windows [Версия 5.2.3790]
(С) Корпорация Майкрософт, 1985-2003.
S:\perl>perl ex.pl
Died at ex.pl line 2.
S:\perl>
То ли я чего-то не понимаю, то ли...
Прошу помощи...