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

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


Темы - Hob

Страницы: [1]
1
Perl / аля phpmyadmin
« : 11 Апреля 2007, 14:02:15 »
Здравствуйте,

не подскажите, есть ли какой нибудь модуль для работы с SQL?

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

Спасибо.

2
Perl / Новые топики в форме
« : 31 Января 2007, 16:11:01 »
Здравствуйте,

Может пишу не в этом разделе, но всё же...

Вопрос:
как лучше реализовать определение новых топиков на форуме?

Т.е при входе на форум должна быть пометка новый ли топик или нет.

Реализация:
1. При регистрации пользователя создавать для него в базе записи по всем имеющимся топикам.
2. Дальше, при создании новых постов/топиков обновлять/добавлять эти записи для всех пользователей в базе.

Правильный ли алгоритм или есть что-то лучше?

Спасибо.

3
Perl / Дата в формате RFC 822
« : 16 Января 2007, 13:40:23 »
Привет,

Есть дата в формате Timestamp...

Никто не знает, как привести эту дату к формату RFC 822 (Thu, 21 Dec 2000 16:01:07 +0300) ?

4
Perl / Копирование картинки
« : 26 Декабря 2006, 19:10:17 »
Здравствуйте, не подскажете как скопировать картинку \'http://...../image.gif\' на сервер сайта?

На сколько я понимаю нужно считать контент этой картинки и просто сохранить его в файл.
Только вот как считать этот контент?

5
Perl / Сортировка массива хэшей
« : 01 Декабря 2006, 19:16:00 »
Здравствуйте,

Есть массив такого вида:

push @users, {\'ID\'=>$userid, \'USER\'=>$usernick, \'STATUS\'=>$status, \'N\'=>$n};

Создал функцию:

sub sortmh {
 my ($mas,$key) = @_;
 $mas = [ sort {$a->{$key}<=>$b->{$key}} @$mas ];
}

sortmh(\\@users, \'N\');

Не подскажете, почему он неправильно сортирует?

6
Perl / Принятие данных
« : 22 Ноября 2006, 20:18:55 »
Здравствуйте,

У меня есть форма в js ф-ии, которая в цикле создаёт поля:

html += \'<FORM name="ordersubmit" method="post" action="....">\';

for(var i = 0; i < myArray.length; i++)  html += \'<INPUT type="text" name="amount\'+ i +\'">\'; 

html += \'<BR><INPUT type="submit" value="Подтвердить">\';
html += \'</FORM>\';


как можно принять все эти поля в pl скрипте?

7
Perl / аплоад + вирус
« : 06 Сентября 2006, 17:57:30 »
Здравствуйте,

не подскажете, можно ли как-нибудь отсканировать загружаемую на сервер картинку на наличие вирусов?

8
Perl / Resize картинки
« : 30 Августа 2006, 18:45:55 »
Здравствуйте,

не подскажите, в чём может быть проблема?

закачиваю на сервер картинку, далее пытаюсь ее уменьшить с помощью:

my ($ix, $iy) = (80, 80);

my $thumb = Image::Magick->new;
$thumb->Read("$file");
   
my ($ox, $oy, $oc, $ic, $nx, $ny, $geo);
($ox,$oy) = $thumb->Get(\'columns\',\'height\');
if (($ox > $ix)||($oy > $iy)) {
 $oc = $ox/$oy; $ic = $ix/$iy;
 if ($oc < $ic) {$ny = $iy; $nx = int(($ox/$oy)*$iy);}
 elsif ($oc > $ic) {$nx = $ix; $ny = int(($oy/$ox)*$ix);}
 else {$nx = $ix; $ny = $iy;}
}
else {$nx=$ox;$ny=$oy;}

$geo = \'geometry\';
$thumb->Resize(geometry=>$geo, width=>$nx, height=>$ny);
$file = $path_image."i".$tv[1].".".$tv[0];

$thumb->Write("$file");

Картинка уменьшается на пару кб, но размер не меняется.

9
Perl / Аплоад картинок
« : 07 Июня 2006, 20:51:09 »
Здравствуйте,

Не подскажете почему ф-ия image_upload при аплоаде создаёт пустые файлы (0 кб) ?


my $path_image = "C:\\\\WebServers\\\\home\\\\localhost\\\\www\\\\images\\\\photo_tmp\\\\";

....
my $albumid = exists $form{\'id\'} ? $form{\'id\'} : \'\';
my $image = exists $form{\'image\'} ? $form{\'image\'} : \'\';
my $imgname = exists $form{\'imgname\'} ? $form{\'imgname\'} : \'\';
....

sub image_upload {

 my @tv = ();
 my $file = 0;
 $tv[0] = $image;
 $tv[0] =~ s/.*((png)|(gif)|(jpg))$/$1/gi;
 $tv[0] = lc($tv[0]);
 if ($tv[0] eq \'\') {error(0);}
 
 my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host",$user, $password) || die $DBI::errstr;

 $dbh->do("INSERT INTO galleryimages (id, albumid, name, type_image) VALUES(\'\', \'$albumid\', \'$imgname\', \'$tv[0]\')");
 $tv[1] = $dbh->{\'mysql_insertid\'};

 $dbh->disconnect;

 $file = $path_image.$tv[1].".".$tv[0];
 open (IMG, ">$file") or die ("Cannot open file $file");
 binmode IMG;
 flock ($file, 2);
 print IMG while (<$image>);
 close (IMG);
 chmod 0644, $file;

}

10
Perl / Несколько вопросов
« : 19 Января 2006, 14:01:55 »
1. Нужно ли делать LOCK TABLE при апдейте таблицы?
Одни говорят, что mysql и так всё это сам делает, другие говорят, что нифига подобного и своими глазами видели, как запросы от двух пользователей выполнялись одновременно...
2. Изредка получается, что при добавлении новости на мою новостную ленту получается дублирование(сохраняются сразу 2). Из-за чего может такое быть?
3. Хочу вести счётчик комментариев каждого пользователя на новостной ленте, как лучше сделать: добавить еще 1 поле в базу и при сохранении каждого коммента увеличивать счётчик в базе или при выводе комментво считать?
Пока всё...

11
Perl / LWP - 500 Can\'t connect to ... (connect: Unknown error)
« : 02 Декабря 2005, 18:05:20 »
Здравствуйте, не подскажите в чём может быть проблема:
написал скрипт, который считывает со страницы одного сайта инфу и воводит ее на моём сайте в нужном мне варианте. Запускал на локалхосте и на своём сайте, выдаёт постоянно ошибку.
Но если прогнать скрипт дебаггером, который входит в прогу ActiveState Komodo, то выдаётся правильная инфа, без ошибок. Почему такая фигня?:(

12
Perl / logout
« : 23 Сентября 2005, 12:08:35 »
Здравствуйте,
подскажите плиз, почему не хочет работать logout:
...
elsif ($action eq "logout"){
 my $query = CGI->new;
 print $query->redirect(
  -Location => "$ENV{\'HTTP_REFERER\'}" ,
  -Cookie => [
   $query->cookie(
    -name => \'id\',
    -value => \' \',
    -expires => \'+1s\'
   ),
   $query->cookie(
    -name    => \'regcode\',
    -value   => \' \',
    -expires => \'+1s\'
   )
  ]
 );
}

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