Просмотр сообщений
1
Perl / Узнать тип файла
« : 05 Апреля 2006, 19:01:50 »
Если всё так было просто. Хостер - гад, устанавливать не хочет...
Вот поэтому и спрашиваю, есть ли ещё способы?
Вот поэтому и спрашиваю, есть ли ещё способы?
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
2
Perl / Узнать тип файла
« : 05 Апреля 2006, 18:39:05 »
Опробовал. Но ему нужны еще и mime типы. А их нужно устанавливать отдельно. Вот что он пишет
You don\'t seem to have a mime-info database.
See http://freedesktop.org/Software/shared-mime-info
Есть ещё варианты?
You don\'t seem to have a mime-info database.
See http://freedesktop.org/Software/shared-mime-info
Есть ещё варианты?
3
Perl / Узнать тип файла
« : 05 Апреля 2006, 16:46:09 »
Возник вот какой вопрос, скажем загружаю на диск upload файлы или же я загружаю файлы из сети посредством LWP и сохраняю в виде "что-то-там.tmp". Как можно узнать какой именно файл сохранён, скажем картинка (jpg,gif,png), архив (zip, rar,arj, ha) или экзешник...
Спасибо.
Спасибо.
4
Perl / Реально ли скрыть код перл
« : 04 Апреля 2006, 17:41:02 »
Вот тут нашёл кое что. Помоему в тему:
http://search.cpan.org/~aar/Module-Crypt-0.04/Crypt.pm
Может кто выскажеться, можно ли это использовать и какие плюсы и минусы?
А вот и ещё...
http://search.cpan.org/~autrijus/Module-CryptSource-0.02/CryptSource.pm
http://search.cpan.org/~aar/Module-Crypt-0.04/Crypt.pm
Может кто выскажеться, можно ли это использовать и какие плюсы и минусы?
А вот и ещё...
http://search.cpan.org/~autrijus/Module-CryptSource-0.02/CryptSource.pm
5
Флейм / Интересно ваше мнение по поводу статьи
« : 23 Марта 2006, 18:47:59 »
Сабж.
Нашёл тут недавно интересную статью. Хоть и боян, но всё же интересно отношение Perl гуру данного форума к данному пакету. Имеет ли смысл его использовать вместо примера, который автор приводит в самом начале статьи и на сколько безопасно его использование.
И интересует вот что, я не понял, в самом начале приводиться пример, который может скажем экранировать различного рода кавычки (для защиты от sql иньъекций например), а сам-то этот модуль экранирует опасные символы или нет. Не врублюсь.
Сама статья находиться здесь
Спасибо.
Нашёл тут недавно интересную статью. Хоть и боян, но всё же интересно отношение Perl гуру данного форума к данному пакету. Имеет ли смысл его использовать вместо примера, который автор приводит в самом начале статьи и на сколько безопасно его использование.
И интересует вот что, я не понял, в самом начале приводиться пример, который может скажем экранировать различного рода кавычки (для защиты от sql иньъекций например), а сам-то этот модуль экранирует опасные символы или нет. Не врублюсь.
Сама статья находиться здесь
Спасибо.
6
Perl / Извечная проблема. Кукисы...
« : 23 Марта 2006, 18:27:09 »
Yahoooo РАБОТАЕТ!!! :-)
Всем большое спасибо.
А обьясните мне, я так понимаю, моя подпрограмма составляла время в неправильном формате? Или из-за чего ошибка?
Всем большое спасибо.
А обьясните мне, я так понимаю, моя подпрограмма составляла время в неправильном формате? Или из-за чего ошибка?
7
Perl / Извечная проблема. Кукисы...
« : 23 Марта 2006, 18:21:43 »
Тобишь, если я подставлю дату, которую возвращает expires в подпрограмму:
sub place_cookie {
my $exp_date = expires("+30d");
my $cookie="sid=$income_sid\\; expires=$exp_date\\;";
print "Content-Type: text/html\\n";
print "Set-Cookie: $cookie\\n\\n";
}
Кука поставиться... Во блин изврат :-)
Пошёл пробовать...
sub place_cookie {
my $exp_date = expires("+30d");
my $cookie="sid=$income_sid\\; expires=$exp_date\\;";
print "Content-Type: text/html\\n";
print "Set-Cookie: $cookie\\n\\n";
}
Кука поставиться... Во блин изврат :-)
Пошёл пробовать...
9
Perl / Извечная проблема. Кукисы...
« : 23 Марта 2006, 15:42:59 »
Так, взял скрипт из примера и немного его переделал:
sub place_cookie {
my ($income_sid) = @_;
#Количество секунд в 30-ти днях
my $d=2592000;
#Английские трехбуквенные обозначения
#дней недели и месяцев
my @weekdays=(\'Sun\',\'Mon\',\'Tue\',\'Wed\',\'Thu\',\'Fri\',\'Sat\');
my @months=(\'Jan\',\'Feb\',\'Mar\',\'Apr\',\'May\',\'Jun\',\'Jul\',\'Aug\',\'Sep\',\'Oct\',\'Nov\',\'Dec\');
my $t=time;
$t+=$d;
#Получаем значение конечных даты и времени в "обычном" виде
my ($SS,$MM,$HH,$DD,$MON,$YY,$WD);
($SS,$MM,$HH,$DD,$MON,$YY,$WD)=gmtime($t);
$YY=$YY+1900;
my $exp_date="$weekdays[$WD], $DD-$months[$MON]-$YY $HH:$MM:$SS GMT";
#Вставляем \'0\' перед числами <10, если они есть
my $z=\'0\';
$exp_date=~s/(\\D)(\\d{1})(\\D)/$1$z$2$3/g;
#my $cookie="sid=$income_sid\\; path=/\\; expires=$exp_date\\;";
my $cookie="sid=$income_sid\\; expires=$exp_date\\;";
print "Content-Type: text/html\\n";
print "Set-Cookie: $cookie\\n\\n";
}
И всё равно не работает...
Вызываю как:
place_cookie($sid);
Пробовал посмотреть через print. $income_sid и $exp_date выводяться отлично. Так почему не ставяться куки?
sub place_cookie {
my ($income_sid) = @_;
#Количество секунд в 30-ти днях
my $d=2592000;
#Английские трехбуквенные обозначения
#дней недели и месяцев
my @weekdays=(\'Sun\',\'Mon\',\'Tue\',\'Wed\',\'Thu\',\'Fri\',\'Sat\');
my @months=(\'Jan\',\'Feb\',\'Mar\',\'Apr\',\'May\',\'Jun\',\'Jul\',\'Aug\',\'Sep\',\'Oct\',\'Nov\',\'Dec\');
my $t=time;
$t+=$d;
#Получаем значение конечных даты и времени в "обычном" виде
my ($SS,$MM,$HH,$DD,$MON,$YY,$WD);
($SS,$MM,$HH,$DD,$MON,$YY,$WD)=gmtime($t);
$YY=$YY+1900;
my $exp_date="$weekdays[$WD], $DD-$months[$MON]-$YY $HH:$MM:$SS GMT";
#Вставляем \'0\' перед числами <10, если они есть
my $z=\'0\';
$exp_date=~s/(\\D)(\\d{1})(\\D)/$1$z$2$3/g;
#my $cookie="sid=$income_sid\\; path=/\\; expires=$exp_date\\;";
my $cookie="sid=$income_sid\\; expires=$exp_date\\;";
print "Content-Type: text/html\\n";
print "Set-Cookie: $cookie\\n\\n";
}
И всё равно не работает...
Вызываю как:
place_cookie($sid);
Пробовал посмотреть через print. $income_sid и $exp_date выводяться отлично. Так почему не ставяться куки?
10
Perl / Извечная проблема. Кукисы...
« : 23 Марта 2006, 15:13:00 »
Дык ему точную дату удаления кукисов надо???
А какой формат, если не секрет?
А какой формат, если не секрет?
11
Perl / Извечная проблема. Кукисы...
« : 23 Марта 2006, 14:50:41 »
Пишем элементарный код:
my $sid="qwejqhwjkhqjkuausdhahd";
print "Set-Cookie: sid=$sid; expires=+7d;\\n";
print "Content-type: text/html\\n\\n";
Вопрос в том, а почему не хочет ставиться кука?
my $sid="qwejqhwjkhqjkuausdhahd";
print "Set-Cookie: sid=$sid; expires=+7d;\\n";
print "Content-type: text/html\\n\\n";
Вопрос в том, а почему не хочет ставиться кука?
12
Perl / Perl: Не отображается рисунок при указании относительного пути к файлу-рисунку (логот
« : 23 Марта 2006, 12:07:36 »
Попробуй вынести логотип из директории cgi-bin. А потом укажи относительный путь. Должно работать.
13
Perl / Немогу понять что за ошибка.
« : 22 Марта 2006, 17:42:21 »
Ок спасибо...
А вот ещё что. Есть подпрограммка:
#------------------------------------------------------------------------------#
# Подпрограмма определения, от куда пришёл пользователь
#------------------------------------------------------------------------------#
# Вывод данных
# my ($user_referer, $user_from_site) = user_from_site();
sub user_from_site {
# Определяем от куда пришёл к нам пользователь
my $user_referer=$ENV{HTTP_REFERER};
my $site_domain=$siteconf{site_domain};
my $user_from_site = $user_referer =~ m|$site_domain|;
if ($user_from_site eq "1") {
$user_from_site="1"; # Если пользователь пришёл с нашего сайта
} else {
$user_from_site="0"; # Если пользователь пришёл от куда-то ещё
}
return ($user_referer, $user_from_site);
}
И ругается вот как:
Use of uninitialized value in pattern match (m//) at E:/www/czone/cgi-bin/users/auth.pl line 283.\\r
283 линией является строка:
my $user_from_site = $user_referer =~ m|$site_domain|;
А вот ещё что. Есть подпрограммка:
#------------------------------------------------------------------------------#
# Подпрограмма определения, от куда пришёл пользователь
#------------------------------------------------------------------------------#
# Вывод данных
# my ($user_referer, $user_from_site) = user_from_site();
sub user_from_site {
# Определяем от куда пришёл к нам пользователь
my $user_referer=$ENV{HTTP_REFERER};
my $site_domain=$siteconf{site_domain};
my $user_from_site = $user_referer =~ m|$site_domain|;
if ($user_from_site eq "1") {
$user_from_site="1"; # Если пользователь пришёл с нашего сайта
} else {
$user_from_site="0"; # Если пользователь пришёл от куда-то ещё
}
return ($user_referer, $user_from_site);
}
И ругается вот как:
Use of uninitialized value in pattern match (m//) at E:/www/czone/cgi-bin/users/auth.pl line 283.\\r
283 линией является строка:
my $user_from_site = $user_referer =~ m|$site_domain|;
14
Perl / Немогу понять что за ошибка.
« : 22 Марта 2006, 17:36:29 »
Вообщем есть подпрограммка:
sub moduleconf_reader {
# Открываем конфигурационный файл модуля
open (moduleconf,"config/moduleconf.cfg") || die "Немогу найти конфигурационный файл модуля";
my (%moduleconf);
while () {
chomp; # удаляем перевод строки
s/#.*//; # убираем комментарии
s/^\\s+//; # убираем начальные пробелы
s/\\s+$//; # убираем конечные пробелы
s/\\ s/\\>/\\>/g;
s/\\"/\\"/g;
s/:/\\&\\#58;/g;
s/\\\'/'/g;
s/\\`/`/g;
next unless length; # проверяем, не осталось ли чего
my ($var, $value) = split(/\\s*=\\s*/, $_, 2);
$moduleconf{$var} = $value;
}
close (moduleconf);
return (%moduleconf);
}
Выдаёт такую ошибку:
Unquoted string "moduleconf" may clash with future reserved word at E:/www/czone/cgi-bin/users/auth.pl line 100.\\r
Unquoted string "moduleconf" may clash with future reserved word at E:/www/czone/cgi-bin/users/auth.pl line 118.\\r
Я немогу понять, что не так. В чём ошибка?
sub moduleconf_reader {
# Открываем конфигурационный файл модуля
open (moduleconf,"config/moduleconf.cfg") || die "Немогу найти конфигурационный файл модуля";
my (%moduleconf);
while (
chomp; # удаляем перевод строки
s/#.*//; # убираем комментарии
s/^\\s+//; # убираем начальные пробелы
s/\\s+$//; # убираем конечные пробелы
s/\\ s/\\>/\\>/g;
s/\\"/\\"/g;
s/:/\\&\\#58;/g;
s/\\\'/'/g;
s/\\`/`/g;
next unless length; # проверяем, не осталось ли чего
my ($var, $value) = split(/\\s*=\\s*/, $_, 2);
$moduleconf{$var} = $value;
}
close (moduleconf);
return (%moduleconf);
}
Выдаёт такую ошибку:
Unquoted string "moduleconf" may clash with future reserved word at E:/www/czone/cgi-bin/users/auth.pl line 100.\\r
Unquoted string "moduleconf" may clash with future reserved word at E:/www/czone/cgi-bin/users/auth.pl line 118.\\r
Я немогу понять, что не так. В чём ошибка?
15
Perl / Коннект/Дисконнект к БД MySQL
« : 21 Марта 2006, 18:48:22 »
Варн поставил сразу. Молчит. Поэтому и сделал такой вывод. Что это глюк Фронта.