форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

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

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

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

Сообщения по теме

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ообщить модератору | Наверх

Удалить

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

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