The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Perl"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение [Проследить за развитием треда]

"Perl"
Сообщение от Sobolev Pavel emailИскать по авторуВ закладки on 24-Янв-01, 16:06  (MSK)
При попытке выполнения скрипта выходит ошибка 500. Apache настроен правильно. При изменении тестовых скриптов (которые с апачем шли) скрипты выполняются. Не могу понять в чем проблема. Догадка: апачь либо перл не понимает переноса строки. Скрипты писались под Win98. Просмотр конференций по этой проблеме никчему не привел.
Какие будут соображения?
Заранее всем ответившим СПАСИБО!!
  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

  • RE: Perl, Сергей, 17:12 , 25-Янв-01, (1)
    • RE: Perl, Serg, 20:07 , 25-Янв-01, (2)
      • RE: Perl, Sobolev Pavel, 19:29 , 27-Янв-01, (3)

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "RE: Perl"
Сообщение от Сергей Искать по авторуВ закладки on 25-Янв-01, 17:12  (MSK)
Тут в принципе все просто. Символ переноса строки в Виндах - 13/10, а в *никсе, где, как я понимаю, ты запускаешь скрипты, - просто 10.
Хинт: пиши сразу под *никсом.
Хинт 2: используй такой вот маленький скриптик:

#! /usr/bin/perl
unless(@ARGV){die "Usage: delcr file ....\n";}
foreach $file(@ARGV)
{
  if(! -r $file || ! -w $file)
   {
    print "$file: access denied\n";
   }
  else
   {
    open F," <$file"|| die "Cannot open $file $!\n";
    binmode F || die "Cannot binmode $file $!\n";
    @D=<F>;
    seek F,0,0;
    foreach(@D)
     {
      s/\r//g;
      print F;
     }
    truncate F,tell(F);
    close F;
   }
  }

В качестве параметра в командной строке передаешь ему имя файла, и он все пакости 13/10 у него отрезает.

  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "RE: Perl"
Сообщение от Serg Искать по авторуВ закладки on 25-Янв-01, 20:07  (MSK)
или просто
tr -d "\r" <inputfile.pl >outputfile.pl

>Тут в принципе все просто. Символ
>переноса строки в Виндах -
>13/10, а в *никсе, где,
>как я понимаю, ты запускаешь
>скрипты, - просто 10.
>Хинт: пиши сразу под *никсом.
>Хинт 2: используй такой вот маленький
>скриптик:
>
>#! /usr/bin/perl
>unless(@ARGV){die "Usage: delcr file ....\n";}
>foreach $file(@ARGV)
> {
>  if(! -r $file ||
>! -w $file)
>   {
>    print "$file:
>access denied\n";
>   }
>  else
>   {
>    open F,"
><$file"|| die "Cannot open $file
>$!\n";
>    binmode F
>|| die "Cannot binmode $file
>$!\n";
>    @D=<F>;
>    seek F,0,0;
>
>    foreach(@D)
>     {
>
>      
>s/\r//g;
>      
>print F;
>     }
>
>    truncate F,tell(F);
>
>    close F;
>
>   }
>  }
>
>В качестве параметра в командной строке
>передаешь ему имя файла, и
>он все пакости 13/10 у
>него отрезает.


  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "RE: Perl"
Сообщение от Sobolev Pavel Искать по авторуВ закладки on 27-Янв-01, 19:29  (MSK)
Спасибо!!
  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру