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

Тема в разделе "Perl программирование", создана пользователем emian, 26 авг 2010.

  1. emian

    emian Гость

    Здравствуйте всем!
    Пишу простейший скрипт, который берет по строчке из одного файла, и заносит эти строчки в новый файл, за исключением указанных в условии.
    Сам скрипт вот:
    Код (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 по идее должен создаться.
    В консоле получается вот что:
    Код (Text):
    ----------------------------------------------
    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>
    То ли я чего-то не понимаю, то ли...
    Прошу помощи...
     
Загрузка...

Поделиться этой страницей