Темы

16

Perl / Вывод названия файлов директории

« : 08 Августа 2002, 12:43:07 »

Делаю так

opendir (DIR, ".") or die "Cannot open current directory";
@list=join ("::", readdir(DIR));
closedir DIR;
for ($i=0;$i<@list;$i++)
  {
  ($name)=split(/::/,@list[$i]);
  print "$name";
  }

Это последний вариант, печатает или сплошняком или наоборот ничего, пробовал также glob, но она возвращает с полным путём тоже самое. Или проблема в том что не правильно в массив забиваю или достаю.... Надо показать просто директорию. Но что бы уже из массива, а не из

print join ("", glob(\'*\'));

Помогите!

17

Perl / Есть текст, как взять из него первые 10 слов?

« : 05 Августа 2002, 18:02:15 »

Кол-во слов конечно любое, требуется сделать prewievn топиков гостевой книги на начальной странице сайта.
Ещё вопросец, никто не подскажет где можно взять готовые шаблоны регулярных выражений с примерами, можно на англ.?

18

Флейм / Переход с win на unix

« : 05 Августа 2002, 15:56:47 »

Здесь бы опрос вставить, кто на чём работает, да видно это прирогатива администратора.
Я три раза (а может 33) пытался перейти на UNIX с WIN2000, в частности Linux 7,2, установил, немного поработал и забрасывал, т.к. не хватало программ. А то что было, ни в какое сравнение не шло с виндовскими. А перейти очень надо, т.к. уже 80-90% пишу только на перле скрипты, и всё под виндой. Вопрос, чем можно заменить такие проги in UNIX как:

Dreamweaver 3
Photoshop 5-6

19

Perl / Как проверить число на чётность?

« : 02 Августа 2002, 18:21:13 »

В поиске искал, ничего не нашёл
Приспичило вот таблицу в 2 столбика сделать, а как узнать что $i чет - не чёт не знаю........................

А это просто столбик картинок:
for ($i=0;$i<@list;$i++)
  {
         ($name,$image,$num)=split(/::/,$list[$i]);
         print "

";

  }
}

20

Поиск, изготовление скриптов и прочее... / Закачка, срочно, всё есть

« : 02 Августа 2002, 12:47:59 »

Скрипт закачки из FAQ точно ли рабочий?
http://progres.h1.ru/cgi-bin/up2.pl
не работает

Люди! Помогите! Я устал от этих закачек, 2 недили не могу настроить.... Есть сервер, пустой, на фри хостинге(http://ini.h1.ru). Скину пароли кто сможет хотя бы этот примитивный скрипт настроить там. Оплачу работу в этот же день, почтовым переводом. Мне очень очень надо чтобы была простая закачка - и тут же (ниже формы) обзор всей директории с галочками(кнопками) для удаления файла. Всё. По цене обговорим, напишите rec@ezmail.ru, по возможности отвечу сразу, на тех же условиях приму готовый скрипт

21

Perl / Опять защита скр.: подмена об. переменных длинными случ. перемеными.

« : 31 Июля 2002, 09:27:30 »

Идея эта здесь давно освещалась, когда скрипт написан и отлажен, хотелось бы все названия переменных поменять на названия с длинными названиями, т.е. было например $ip, а стало $gthjrgkmjrhkjrmnmthknmtkyjhrgklrfekhtlrkthlrtkhj .... красиво, не правда ли ? Ну и потом закачать на хостинг, чтобы твои скрипты особо по рукам не расходились.
Задача такая, менять все переменные на случ. сгенерированные, от 30 символов. За одним можно и перевод каретки убрать.
PS: переименовывание кроме переменных $ENV, $FORM и др.

Я это делал на Delphi, в Memo загонял скрипт, анализировал, сколько там чего, короче не получалось вычислить окончание переменной, да и ещё проблемы были, так и не дописал в итоге. Да и на паскале это очень громоздко получается.

Может кто поможет это на перле сделать?

22

Perl / Перевод IP в буквенный хост

« : 30 Июля 2002, 10:19:14 »

Видел на одном из форумов, написанном на PHP, вместо IP пользователя, добавившего сообщение, печатается его буквенный хост, кто знает, как это зделать (Perl), напишите pliase...

23

Perl / Закачка. Скрипт прилагается.

« : 19 Июля 2002, 09:14:13 »

Всех приветствую!
Встретился с такой проблемой, в первый раз решил использовать закачку файлов на сайте, сделал все по книге CGI-программирование, Павлова.
Форма на экран выводится, после заполнения полей и указания файла, нажимаю кнопку отправить. Браузер начинает отсчитывать секунды и минуты, и ни чего. Подскажите, в чём проблема?
Пользуюсь W2K, Apache 3.12, Perl, на локалхосте.


#!/usr/local/bin/perl
#fileput.pl
#############
#############
$datafile="fotos.txt"; #
$fotodir="."; #
$cgi = "http://127.0.0.8/cgi-bin/fileput.pl";
#############
#
#############
print "Content-type: text/html\\n\\n"; #
if($ENV{\'REQUEST_METHOD\'} eq \'GET\'){$query=$ENV{\'QUERY_STRING\'};}
else{sysread(STDIN,$query,$ENV{\'CONTENT_LENGTH\'});}
if($query eq \'\'){
print <

Èìÿ
Ìûëî
Êîìåíòàðèé
Ôîòî

FORM
}
else{
if($ENV{\'CONTENT_TYPE\'}=~/multipart/){
  ($bound)=($ENV{\'CONTENT_TYPE\'}=~/boundary=(\\S+)/);
  @parts=split(/\\n--$bound(-)*/,$query);
  @parts=grep($_ ne \'\' ,@parts);
  foreach(@parts){
    ($header,$body)=split(/\\n\\s*\\n/,$_,2);
    ($name)=(/name=\\"([^\\"]*)\\"/);
    $body=~s/\\n$//;
    $body=~s/\\r$//;
    ($filename)=(/filename\\"([^\\"]*)\\"/);
    if($name eq \'username\'){$username=$body;}
    if($name eq \'useremail\'){$useremail=$body;}
    if($name eq \'usercomment\'){$usercomment=$body;}
    if($name eq \'userfoto\'){$userfoto=$body;$userfilename=$filename;}
    }
  }
else{}
$userfilename1=$userfilename;
$filedup=0;
while(-e "$fotodir/$userfilename1"){
  $userfilename1="$filedup_$userfilename";
  $filedup++;
  }
open(F,">$fotodir/$userfilename1");
print F $userfoto;
close(F);
open(DATA,">>$datafile");
print DATA "$username::$useremail::$userfilename1::$usercomment\\n";
close(DATA);
print "";
print "!!!!!!!!!!!!!!!!!!!!!!";
print "";
}

24

Платный хостинг / Домен

« : 29 Мая 2002, 15:24:27 »

я только что хотел зарегить http://yuraz.com , было место свободно, пробивал через http://hosting.rbc.ru/ , ну и через 2 дня его заняли, не уж то на самом http://hosting.rbc.ru имена отлавливают, тех кто тестирует занятость?  Для модер. : Можно вынести эту тему(если это тема) в отдельную ветку.

25

Perl / Что такое скрипт запускаемый по крону?

« : 29 Мая 2002, 14:14:03 »

Отсылающий письмо. Если можно приведите простой пример, есть ли эта функция на халявных хостингах? Спасибо.

26

Perl / Как загнать данные в хэш

« : 14 Мая 2002, 11:50:28 »

Встретился с такой проблемой, нужно в @data ввести значения как в нижнем блоке, в нижнем болке в @data данные введены как постоянные, а надо что бы они считывались из файла..., считывается, разбивается, а в массив ввести не могу, что делаю не так?

*****************************************
# это пытаюсь вбить значения сам, не получается
open (T, "$txt");
          @line=;
          close (T);

for($i=0;$i<@line;$i++)
            {
                  ($d,$t)=split("::",$line[$i]);
                  $data{$d}  = $t;  #не правильно здесь
            }
****************************************
# это как постоянно вбитые значения, работает нормально
@data = (
           ["Yhjlh", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"],
           [ 6203,  3500,  3973,  2859,  3012,  3423,  1230]
        );
****************************************

27

Perl / Установка модуля GD и иже с ним...

« : 07 Мая 2002, 10:19:21 »

2.
установил библиотеку GD, для работы с графикой. Устанавливал ppm, командой install GD.ppm, сам пакет списался, а так же многие с ним модули. В итоге, сам GD работает, а вот если пишу
 
use GD::Graph;
use GD::Graph::bars;
use GD::Graph::Map;

т.е. любой модуль от него не работает и всё. В чём может быть дело? Может надо и каждый модуль как то объявлять?
Рядом с GD.pm (\\usr\\local\\site\\lib\\) есть директория GD, там файл Graph.pm, далее от сюда директория Graph, где находятся все эти файлы, bars.pm, Map.pm и др.

28

Perl / Вопрос по cookie, в частности их удаление

« : 06 Мая 2002, 09:04:42 »

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

%zoo = cookie(\'animals\');

@new = param(\'new_animals\');

foreach (@new) {
    if (param(\'action\') eq \'Add\') {              #добавляем 1
        $zoo{$_}++;
    } elsif (param(\'action\') eq \'Delete\') {    #удаляем 1
        $zoo{$_}-- if $zoo{$_};
        delete $zoo{$_} unless $zoo{$_};   #удаляем весь пункт
    } elsif (param(\'action\') eq \'Delete_all\') {
        delete $zoo{$_} ;
    }
}

29

Базы данных / SQL один ко многим и др., как в Перле реализ.

« : 26 Апреля 2002, 19:01:24 »

Всем доброго времени суток! Вот вроде и дошел как связать 2 и более таблицы. Сделал по своему, но это не то, связывать надо по ID а я просто по TXT полю, т.е. делаю так,

конектюсь, далее запрос для первой таблицы,

sub show{
$sqlstatement = "SELECT * FROM $tablename ORDER BY $sort";
$sth = $dbh->prepare($sqlstatement);
$sth->execute || die "Невозможно выполнить SQL-запрос.";
}

далее запрос для второй таблицы

sub firma
{
$sqlstatement2 = "SELECT * FROM $tablename2 ORDER BY firma_name";
$sth2 = $dbh->prepare($sqlstatement2);
$sth2->execute || die "Невозможно выполнить SQL-запрос.";
}

После чего вывожу в форму для ввода данных

sub add
  {
       &firma;
       print "
";
       print "";
       print "";
       print "";
       print "";
       print "";
       print "";
       print "";
       print "";
       print "";
       print "

Добавление товара
Имя: ";         while (@rowf=$sth2->fetchrow_array)         {         print "@rowf[1]";         }        print "";        print "Добавить фирму";        print "	ФИО:
Должность:	Адрес:
URL:	E-mail:

";
  }


Где подчеркнуто, там данные из другой таблицы. Т.е. я ссылаюсь на текст, который так же записывается , и дублируется много раз в главной таблице, а по идее там должны быть только индексы.
Тогда проблема с вводом, если @rowf[1] само название, то куда сдесь вставить индексы?

Как сделать ввод в гл. табл. и её вывод правильно?

Вот ещё вставил картинку, что и начал делать

Спасибо!

30

Базы данных / Неправильная сортировка русских слов в MySQL

« : 24 Апреля 2002, 12:11:49 »

Кто встречался с этим же? Только сейчас заметил, делаю простой запрос,
SELECT * FROM $tablename ORDER BY tip ASC
данные вывожу в таблицу, слова где первая буква Д, оказываются всегда в низу, или буква Р выше К. Остальное по алфавиту.