Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - Billi

Страницы: [1] 2
1
Perl / Кодировки
« : 29 Декабря 2004, 18:27:44 »
Сообщения одного из пользователей форума сохраняются в кодировке KOI8, в то время как сообщения других пользователей сохраняются в кодировке win.
Почему это происходит и как исправить данную ситуацию?
На сколько я понимаю надо определить в какой кодировке пользователь от сылает сообщение и декодировать его, но как узнать в какой кодировке отсылается сообщение?
Заранее спасиб.

2
Всё о Html / Данные формы не кешируются
« : 02 Сентября 2004, 17:07:51 »
Такая ситуация пользователь заполняет форму и
отправляет данные, ели они не корректны ему выводится
сообщение об ошибке и ссылка на предыдущую страницу,
на некоторых серверах при переходе на зад форма появляется с уже заполненной и пользователю надо исправить лишь некорректно заполненное поле формы, а на некоторых форма появляется пустой :(
Отчего это может зависеть??

3
Perl / Обработка ошибок
« : 11 Августа 2004, 17:19:15 »
Возможноли на перл, перехватить ошибку возникающую в
обекте и обработать ее самому (try .. except как в C или Delphi)?

4
Perl / Perl ни начто не годен?
« : 30 Июля 2004, 15:12:53 »
Сегодня наткнулся на статейку в CityForum,(http://www.citforum.ru/programming/digest/lang_test/).
интерсно ваше мнение относительно этого теста.
Помоемому ихмо бред полный Особенно

логика + конкатенация строки: интерпретатор не справился с выполнением теста. Тест выполнялся более десяти минут. Мне надоело ждать, и я прекратил его выполнение.  

5
Perl / Определить место положения файла
« : 28 Июля 2004, 17:10:08 »
Есть скрипт проверяющий несколько сайтов, и отчет об этой проверке сохроняет в файл(файл на ходится в одной директории со скриптом). Если просто запусть его
все ок, при запуске через corn отчет не сохраняется, повсей видимостит скрипт не может открыть файл, так ли это?
Если это так то как можно из скрипта определить его место положение (полный путь)?

Я провел простой  тест

#!/usr/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
 $mon=$mon+1;
 $year=$year+1900;
 $s=" $mday.$mon.$year $hour:$min:$sec";
  open  FILE,">>crontest.dat";
  print FILE "$s\\n";
  close FILE;

Результат аналогичный :(

6
Perl / Создание 2d массива
« : 12 Июля 2004, 16:18:17 »
Уменя есть таблица в тестовом файле я разбиваю, в 2d массив для сортировки и т.д.
...
@a3=split(/t2>t3t12>t13\'
$index=0;
foreach(@a3)
{
 @{$a3[$index]}=split(/>/,$a3[$index]);
 $index++;
}
...
Все рабоет, но насколько это грамотно написано, нельзяли сделать лучше (бустрее, оптимальнее)  ?

7
Perl / Как удалить из начала строки
« : 26 Мая 2004, 11:44:52 »
Как удалить из начала строки последовательность символов
(пробелов)?
Я использую
$s=~s/(\\A[\\n\\s]+)//;
правильно ли это?

8
Perl / Как узнать сколько ресурсов занимает скрипт
« : 13 Мая 2004, 15:24:08 »
Можно ли узнать сколько памяти занимает скрипт, из самого скрипта?

9
Perl / Зоны видимости (my local)
« : 08 Мая 2004, 19:34:42 »
Чем отличаются отределения переменых my и local?
я провел небольшой тест и разници не увидел
sub test($)
{ my $data="Stels$_[0]"; return(\\$data);}
$empty=test(21);
print "Stels21 = ${$empty}\\n";
$empty2=test(22);
print "Stels22 = ${$empty2}\\n";
print "Stels22 = ${$empty}\\n"; #Странно выходит после вызова память не чистится
===================
Stels21 = Stels21
Stels22 = Stels22
Stels22 = Stels21
===================
Результат получился одинаковым как c my так и с local

И еще один вопросик, из демки вдно что при очередном вызове функции выделяется память подновые переменные
а старая не чистится или я четот не понял?

10
Perl / opendir
« : 04 Марта 2004, 17:56:53 »
Команда
opendir($d,".");
для открытия текужей директории
выдает ошибку
Bad symbol for filehandle
В чем может быть проблема?

11
Интернет реклама / Индексирование *.pl скрипта в поисковых машинах
« : 03 Марта 2004, 15:44:41 »
Есть доска обьявлений, обьявления выдаются из базы perl
скриптом (тк доска достточно часто редактируется), поисковые машины на отрез отказываются ее индексировать, в чем может быть проблема?

12
Perl / IO::Socket error
« : 27 Февраля 2004, 15:33:12 »
Простейший скрипт
use IO::Socket;
print "Content-type: text/html\\n\\n";
print "Hello\\n";
$host = "www.litvinuke.hut.ru";

$doc  = "/articles/perlhttp.htm";
$conn = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => $host,
PeerPort   => 80);
die "cant connect $host $!" if (!$conn);
$conn->autoflush(1);
print $conn "HEAD $doc HTTP/1.0\\n\\n";
while (<$conn>) { print; }
close $conn;
Выдает ошибку
.... No such file or directory at
в чем может быть проблема
perl perl5.005_03
на  perl perl5.005_04
все ок

13
Perl / Как установить модули без утилиты ppm
« : 13 Февраля 2004, 21:48:27 »
Вот такая ситуация написал скрипт использующий MIME модули для разбора почты, а на сервере где он должен исполнятся модулей нет, и устанавливать  их админы не особо горят желанием, как можно решить эту проблему.

14
Perl / Оптимизация сортировки
« : 02 Декабря 2003, 14:35:21 »
Соритрую 2-х мерный массив по 2м ключам, соритровка выполняется давольно длительное время (4000 значений сортируюся приблезительно 4 секунды)
Исходник ......
................
@finally = map {$_->
  • ;}

sort{$a_->[1] cmp $b_->[1] || $a_->[2] <=> $b_->[2]}
map{[$_,$_->
  • ,$_->[2]]}@finded;

.................
Можноли как то ускорить данный процесс?

15
Perl / Modification of a read-only value attempted
« : 26 Ноября 2003, 21:41:01 »
Есть 2-х мерный массив, его при его сортирвке возникает ошибка Modification of a read-only value attempted ...
.....
for() #Создание и работа с массивом
{}
.......
@persons = map {[$_,$_->
  • ,$_->[1]]@finded;#error tut

@sort__ = sort {   $a->[2] cmp $b->[2]
                   ||
                   $b->[1] cmp $a->[1]
                  } @persons;
@finally = map {
               $_->
  • ;

               } @sort__;
......
Пиричем если убрать предыдущие циклы ошибки не будет.
(Сортировка происходит не в цикле)
В чем может быть проблема?

Страницы: [1] 2