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

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


Темы - Inecs

Страницы: [1] 2
1
Perl / Узнать тип файла
« : 05 Апреля 2006, 16:46:09 »
Возник вот какой вопрос, скажем загружаю на диск upload файлы или же я загружаю файлы из сети посредством LWP и сохраняю в виде "что-то-там.tmp". Как можно узнать какой именно файл сохранён, скажем картинка (jpg,gif,png), архив (zip, rar,arj, ha) или экзешник...
Спасибо.

2
Сабж.
Нашёл тут недавно интересную статью. Хоть и боян, но всё же интересно отношение Perl гуру данного форума к данному пакету. Имеет ли смысл его использовать вместо примера, который автор приводит в самом начале статьи и на сколько безопасно его использование.

И интересует вот что, я не понял, в самом начале приводиться пример, который может скажем экранировать различного рода кавычки (для защиты от sql иньъекций например), а сам-то этот модуль экранирует опасные символы или нет. Не врублюсь.

Сама статья находиться здесь

Спасибо.

3
Perl / Извечная проблема. Кукисы...
« : 23 Марта 2006, 14:50:41 »
Пишем элементарный код:

my $sid="qwejqhwjkhqjkuausdhahd";
print "Set-Cookie: sid=$sid; expires=+7d;\\n";
print "Content-type: text/html\\n\\n";

Вопрос в том, а почему не хочет ставиться кука?

4
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

Я немогу понять, что не так. В чём ошибка?

5
Perl / Коннект/Дисконнект к БД MySQL
« : 21 Марта 2006, 18:23:32 »
Вот возник ещё один вопрос. Есть две подпрограммы:

sub DBconnect {
our $dbh = DBI->connect("DBI:mysql:$DBconf{DBname}:$DBconf{DBserver}:$DBconf{DBport}", $DBconf{DBuser}, $DBconf{DBpassword});
              }

sub DBdisconnect {
our $dbh->disconnect;
                 }

Которые отвечают за коннект к БД.
Коннектимся просто отлично. Но через MySQLFront видно, что после коннекта и запуска подпрограммы дисконнекта остаётся sleep процесс. Вопрос в следующем, как принудительно закрыть коннект.
Или у меня руки кривоваты. Мож подправите, если что не так. Спасибо.

6
Господа, подскажите пожалуйста, как можно явно указать в perl переменную. Например:
из $test = "1"; в $test (int) = "1";
Спасибо.

7
Скриптик не работает и всё. Что с ним не так?

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw (fatalsToBrowser);

&usertime;

#---------------------------------------------------------------------
sub usertime() {

my ($time_sec, $time_min, $time_hour, $time_mday, $time_mon, $time_year, $time_wday, $time_yday, $time_isdst);
($time_sec, $time_min, $time_hour, $time_mday, $time_mon, $time_year, $time_wday, $time_yday, $time_isdst) = localtime (time);

$time_year=$time_year+1900;
$time_mon=$time_mon+1;

my $time_full_now="$time_year-$time_mon-$time_mday $time_hour:$time_min:$time_sec";
my $time_unix_now=time;
         }
#---------------------------------------------------------------------

my ($time_full_now, $time_unix_now);
print "Content-Type: text/html\\n\\n";
print "Full time: $time_full_now\\n
Full unix time: $time_unix_now\\n
";

Выводит строки Full time: и Full unix time:
И всё. А почему не выводяться значения?

8
Perl / Ну очень интересный вопрос
« : 06 Февраля 2006, 19:32:47 »
Сабж!
Скажем, у нас есть в переменной $data какая-то html страница, есть другая переменная, в которой содержиться id сессии ($sid). Как можно ко всем ссылкам на странице, которые содержат имя домена (скажем pupkin.com), в зависимости от последнего символа в ссылке, подставить вот что:

Ссылка, которая содержится в $data:
http://pupkin.ru/test.pl?qwe=qwe
Подставить:
http://pupkin.ru/test.pl?qwe=qwe&$sid

Ссылка, которая содержится в $data:
http://pupkin.ru/test.pl?qwe=qwe&abc=abc
Подставить:
http://pupkin.ru/test.pl?qwe=qwe&abc=abc&$sid

Ссылка, которая содержится в $data:
http://pupkin.ru/test.pl
Подставить:
http://pupkin.ru/test.pl?$sid

и так далее…

А так же, если найден тег содержащий слово form, то после него подставить скрытое поле  

Просто если написать данный парсер, тогда можно будет не терять посетителей без куков. Исходник я потом выложу на всеобщее обсуждение. Вот застрял на этом парсере и всё. ПОМОГИТЕ ЧЕМ МОЖИТЕ! Спасибо!

9
PHP / Странно... А работать должно.
« : 29 Января 2006, 19:29:53 »
Попробовал переправить и не работает. Мож кто подскажет почему?

Было:


// Select box
$rated  .= "
$lang[yrate] ";
$options = array("$excellent", "$good", "$fair", "$poor", "$useless");


$rated  .= "\\n";
$rated  .= "\\n";
$rated  .= "\\n";
$rated  .= "
\\n";


Стало:


// Select box
$options = array("$excellent", "$good", "$fair", "$poor", "$useless");

$rated  .= "\\n";
$rated  .= "\\n";

for ($i = 0; $i < count($options); $i++) { $this_rate = 5-$i;
 $rated  .= " $options[$i]\\n";
}

10
PHP / Народ, что не так в скрипте?
« : 23 Января 2006, 22:03:14 »
Сабж. Не хочет делать маленькие картинки.
Поправьте меня, если что не так.

$gd_version = 2;

class thumbnail
{
   var $img;
    var $watermark_image_light;
    var $watermark_image_dark;

   function thumbnail($imgfile)
   {
      //detect image format
      $this->img["format"]=ereg_replace(".*\\.(.*)$","\\\\1",$imgfile);
      $this->img["format"]=strtoupper($this->img["format"]);
      if ($this->img["format"]=="JPG" || $this->img["format"]=="JPEG") {
         //JPEG
         $this->img["format"]="JPEG";
         $this->img["src"] = ImageCreateFromJPEG ($imgfile);
      } elseif ($this->img["format"]=="PNG") {
         //PNG
         $this->img["format"]="PNG";
         $this->img["src"] = ImageCreateFromPNG ($imgfile);
      } elseif ($this->img["format"]=="GIF") {
         //GIF
         $this->img["format"]="GIF";
         $this->img["src"] = ImageCreateFromGIF ($imgfile);
      } else {
         //DEFAULT
         echo "Not Supported File! Thumbnails can only be made from .jpg and .png images!";
         exit();
      }
      $this->img["lebar"] = imagesx($this->img["src"]);
      $this->img["tinggi"] = imagesy($this->img["src"]);
      $this->img["lebar_thumb"] = $this->img["lebar"];
      $this->img["tinggi_thumb"] = $this->img["tinggi"];
      //default quality jpeg
      $this->img["quality"]=90;
   }

function size_auto($size=100)
{ global $gd_version;

      if ($this->img["lebar"] < $size AND $this->img["tinggi"] < $size ) {
      $this->img["lebar_thumb"] = $this->img["lebar"];
      $this->img["tinggi_thumb"] = $this->img["tinggi"];
      return 0;
   } elseif ($this->img["lebar"]>=$this->img["tinggi"])
      {
          $this->img["lebar_thumb"]=$size;
          $this->img["tinggi_thumb"] = ($this->img["lebar_thumb"]/$this->img["lebar"])*$this->img["tinggi"];
      } else {
          $this->img["tinggi_thumb"]=$size;
          $this->img["lebar_thumb"] = ($this->img["tinggi_thumb"]/$this->img["tinggi"])*$this->img["lebar"];
    }

   if($gd_version==1)
          {
           $this->img["des"] = imagecreate($this->img["lebar_thumb"],$this->img["tinggi_thumb"]);
          @imagecopyresized ($this->img["des"], $this->img["src"], 0, 0, 0, 0, $this->img["lebar_thumb"], $this->img["tinggi_thumb"], $this->img["lebar"], $this->img["tinggi"]);
         }
   elseif($gd_version==2)
           {
            $this->img["des"] = imagecreatetruecolor($this->img["lebar_thumb"],$this->img["tinggi_thumb"]);
           @imagecopyresampled ($this->img["des"], $this->img["src"], 0, 0, 0, 0, $this->img["lebar_thumb"], $this->img["tinggi_thumb"], $this->img["lebar"], $this->img["tinggi"]);
           }

   $this->img["src"] = $this->img["des"];
   return 1;
}

function jpeg_quality($quality=90)
   {
      //jpeg quality
      $this->img["quality"]=$quality;
   }

function save($save="")
{

       if ($this->img["format"]=="JPG" || $this->img["format"]=="JPEG") {
         //JPEG
         imageJPEG($this->img["src"],"$save",$this->img["quality"]);
      } elseif ($this->img["format"]=="PNG") {
         //PNG
         imagePNG($this->img["src"],"$save");
      } elseif ($this->img["format"]=="GIF") {
         //GIF
         imageGIF($this->img["src"],"$save");
      }

      imagedestroy($this->img["src"]);
}


function show ()
{
      if ($this->img["format"]=="JPG" || $this->img["format"]=="JPEG") {
         //JPEG
         imageJPEG($this->img["src"],"",$this->img["quality"]);
      } elseif ($this->img["format"]=="PNG") {
         //PNG
         imagePNG($this->img["src"]);
      } elseif ($this->img["format"]=="GIF") {
         //GIF
         imageGIF($this->img["src"]);
      }

      imagedestroy($this->img["src"]);
}
?>

11
Perl / От куда пришёл пользователь
« : 21 Сентября 2005, 17:58:06 »
Господа, возник следующий вопрос. Скажем я знаю, с какого некий урл, но как мне вытащить конкретное название сайта, например урл http://blablabla.perl.ru?qwe=qwe&sdf=sdf или http://perl.ru?qwe=qwe&sdf=sdf вытащить именно perl.ru Интересует именно регулярка. Спасибо.

12
Perl / Опять regex`пы
« : 16 Сентября 2005, 10:32:58 »
Господа, возник вопрос по регуляркам. Скажем есть страница http://plasmapanel.ru/model_217_14_1.htm Скачиваю её при помощи LWP, как выдернуть параметры, такие как Диагональ, Разрешение, Формат, Размеры, Вес, Контрастность, Цена. Интереует именно сама строчка регулярки.

13
Perl / Многоуровневое меню
« : 15 Сентября 2005, 17:48:09 »
Народ, тут возник один вопросец, как можно организовать многоуровневое меню с неограниченным вложением? Интересует алогритм действий

14
Господа. Я что-то немогу понять. Допустим я сделал форму ввода многострочного текста и кнопку, при нажатии на которую мне нужно скажем записать данные введённые в форму в текстовый файл. Как это сделать?
Интересует именно Perl/Tk

15
Perl / Дока или книжка на русском по Perl/TK
« : 22 Августа 2005, 18:19:05 »
Подскажите где можно взять сабж?

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