VPF::Perl - недостатки и приемущества(?)

pento

Дата 30.1.2007, 05:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 14.1.2007
Где: Россия

Репутация: нет
Всего: 4

Цитата(Сумасшедший @ 30.1.2007, 03:43

)

Мда? Ты ещё скажи что вместо регэкспоп пользуешься стандартными пхп..

Это не совсем хороший аргумент, потому как всё хорошо в меру - в том числе и регекспы. Если нет реальной необходимости, то лучше (работать будет быстрее) использовать строковые функции.

nerezus

Дата 30.1.2007, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Вселенский отказник

Профиль
Группа: Участник
Сообщений: 3330
Регистрация: 15.6.2005

Репутация: 13
Всего: 43

Цитата

Ты ещё скажи что вместо регэкспоп пользуешься стандартными пхп

Регекспы нужны только там, где они нужны, и нехрен их в каждую дырку пихать ;)

Цитата

или стартовые скрипты для никсов. без знания sh пишутся на пыхе?

А это при чем? Болеешь? smile

Ну если ты начал про это, то их можно писать абсолютно на чем угодно. Хоть на джаве.
Только вот навряд ли найдется человек, который будет делать это "без знания sh".

Цитата

А вообще,имхо, просто леность и любовь к быстрым и лёгким победам не позволяют найти в перле красоту и умиротворение.

Настоящий пионер любит трахаться стоя, причем в гамаке?

Добавлено @ 09:58
P.S. А вообще,имхо, просто леность и любовь к быстрым и лёгким победам не позволяют найти в brainfuck'е красоту и умиротворение.

--------------------

Сообщество художников Artsociety.ru

MAKCim

Дата 30.1.2007, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 8
Всего: 207

Цитата(nerezus @ 30.1.2007, 09:56

)

P.S. А вообще,имхо, просто леность и любовь к быстрым и лёгким победам не позволяют найти в brainfuck'е красоту и умиротворение.

для кого brainfuck, а для кого быстрое решение задачи

--------------------

Ах, у елі, ах, у ёлкі, ах, у елі злыя волкі ©

GoodBoy

Дата 30.1.2007, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: нет
Всего: 83

nerezus, напиши мне вот это на ТВОЁМ любимом языке:

Код

$opendata=join ".",reverse split /-/,$opendata if $opendata=~/^\d{4}-\d{2}-\d{2}$/;

другой вариант того же самого:

Код

$opendata="$3.$2.$1" if $opendata=~/^(\d{4})-(\d{2})-(\d{2})$/;

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

nerezus

Дата 30.1.2007, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Вселенский отказник

Профиль
Группа: Участник
Сообщений: 3330
Регистрация: 15.6.2005

Репутация: 13
Всего: 43

GoodBoy, не на любимом языке написал, а на пхп.

Код


$opendata = preg_replace("/^(\d{4})-(\d{2})-(\d{2})$/", "$3-$2-$1", $opendata);

Добавлено @ 12:54
P.S. Ты специально пробелы не ставишь, чтобы код меньше казался, или ты просто perldoc perlstyle не читал?

--------------------

Сообщество художников Artsociety.ru

pythonwin

Дата 30.1.2007, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 2529
Регистрация: 18.4.2006
Где: за компом

Репутация: 1
Всего: 36

Цитата(Hidrag @ 29.1.2007, 13:42

)

Java/Delphi/C#

эти языки компилируемые и сравнивать Perl с этими языками неправильно. IMHO smile

GoodBoy, пожалуйста, дай постановку задачи, а то не понятно - прошу простить - Perl не знаю.

в питоне есть и join и split и регулярные варажения smile

а у nerezus любимых языков много smile

PS прошу простить, что втреваю в беседу smile

--------------------

портал по Python
раздел на винграде по Python
язык Python

nerezus

Дата 30.1.2007, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Вселенский отказник

Профиль
Группа: Участник
Сообщений: 3330
Регистрация: 15.6.2005

Репутация: 13
Всего: 43

Цитата

а у nerezus любимых языков много

Нету у меня любимых, т.к. я люблю применять языки по отношению к области, для которой они предназначены ;)

Цитата

в питоне есть и join и split и регулярные варажения

Да это везде есть ;)

--------------------

Сообщество художников Artsociety.ru

GoodBoy

Дата 30.1.2007, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: нет
Всего: 83

Цитата(nerezus @ 30.1.2007, 12:52

)

не на любимом языке написал, а на пхп

Воспользовавшись PCRE... Браво!!! smile

Цитата(pythonwin @ 30.1.2007, 13:04

)

пожалуйста, дай постановку задачи, а то не понятно

А задача такая: сконвертировать дату из формата "ГГГГ-ММ-ДД" в формат "ДД.ММ.ГГГГ", если она в формате "ГГГГ-ММ-ДД" и ничего не менять в противном случае.

Добавлено @ 13:12

Цитата(nerezus @ 30.1.2007, 12:52

)

Ты специально пробелы не ставишь, чтобы код меньше казался, или ты просто perldoc perlstyle не читал

я ещё и скобки не ставлю... :-)))

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

nerezus

Дата 30.1.2007, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Вселенский отказник

Профиль
Группа: Участник
Сообщений: 3330
Регистрация: 15.6.2005

Репутация: 13
Всего: 43

Цитата

Воспользовавшись PCRE... Браво!!!

Ну и? А в чем прикол? Разве они только в перле есть?

--------------------

Сообщество художников Artsociety.ru

GoodBoy

Дата 30.1.2007, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: нет
Всего: 83

Цитата(nerezus @ 30.1.2007, 13:15

)

Ну и? А в чем прикол

Расшифровку аббревиатуры знаешь??

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

nerezus

Дата 30.1.2007, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Вселенский отказник

Профиль
Группа: Участник
Сообщений: 3330
Регистрация: 15.6.2005

Репутация: 13
Всего: 43

GoodBoy, и что с того?
Т.е. я не должен этим пользоваться из-за того, что в расшифровке есть слово perl?

Добавлено @ 13:47
Т.е. я имею ввиду то, что перл в использовании re не имеет преимуществ, т.к. они есть и в других языках/программах.

--------------------

Сообщество художников Artsociety.ru

amg

Дата 30.1.2007, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: нет
Всего: 50

Мне Perl нравится, среди прочего, тем, что он позволяет очень быстро, прямо из консоли, делать довольно нетривиальные вещи. Например

Код


# Получить список IP, отметившихся на сервере
perl -lane '$s{$F[0]}++ || print $F[0]' access_log

arto

Дата 30.1.2007, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: нет
Всего: 40

"4) Тормоз. Очень медленный. К примеру питон быстрее более чем в 2 раза(тесты сам проводил, могу дать ссылку)." -- ссылочку можно?

nerezus

Дата 30.1.2007, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Вселенский отказник

Профиль
Группа: Участник
Сообщений: 3330
Регистрация: 15.6.2005

Репутация: 13
Всего: 43

http://ruinst.net.ru/ner/iprange_test.7z

Т.е. чисто логика, без модулей.

--------------------

Сообщество художников Artsociety.ru

GoodBoy

Дата 30.1.2007, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: нет
Всего: 83

nerezus, а теперь, пардон за шалость, я сравнил быстродействие моего перл-примера и твоего РНР-примера. Были сделаны 2 программы:

Код

<?
$opendata = '2006-12-23';
$i=0;
echo time() . "<br>";

while ($i<1000000) {
    $opendata1 = preg_replace("/^(\d{4})-(\d{2})-(\d{2})$/", "$3.$2.$1", $opendata);
    $i++;
}

echo time() . "<br>";
echo "$opendata1 - $i";
?>

Код

#!/usr/bin/perl

print "Content-type: text/html\n\n";

$opendata = '2006-12-23';
$opendata1 = $opendata;
$i=0;

print time() . "<br>";

while ($i<1000000) {
    $opendata1="$3.$2.$1" if $opendata=~/^(\d{4})-(\d{2})-(\d{2})$/;
    $i++;
}
print time() . "<br>";
print "$opendata1 - $i";

как видно из текста использовался 1 миллион итераций сопоставления по шаблону... Резальтаты теста дали следующую картину:
РНР (установленный как модель Апача) отрабатывал в среднем за 18 секунд
Перл (загружаемый отдельным процессом) отрабатывал в среднем за 5 секунд

Это к вопросу о тормознутости, кстати... Комментарии будут??

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

Правила ведения Религиозных войн
	1. Уважайте собеседника 2. Собеседник != враг 3. Старайтесь воздерживаться от тем вида "Windows Rulez" или "Linux Rulez" С уважением, Smartov.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Религиозные войны \| Следующая тема »