PHP vs Perl. URL2HTML

Просто поглядеть на то как это делают 2 языка.

PHP:

<?php
$a=’http://ya.ru
http://rambler.ru’;
$b=explode("\n",$a);
foreach ($b as $c) {
    $c=trim($c);
    echo"<a href=’".$c."’>".$c."</a>\n";
}
?>

Perl:

#!perl
while (<DATA>)
    {print ‘<a href="’.$_.’>’.$_."</a>\n";
    }
__DATA__
http://ya.ru
http://rambler.ru

Зметим следующее:

В perl мы не создаем ни одной переменной,в PHP у нас 4.Давайте оптимизируем по размеру и перемнным PHP

<?php
foreach (explode("\n",’http://ya.ru
http://rambler.ru’) as $c) {
    echo"<a href=’".trim($c)."’>".trim($c)."</a>\n";
}
?>

Да, исходник стал меньше, но срашно уроццкий. Потому что в Perl мы используем приемущество то что в самом файле скрипты мы можем хранить данные, поэтому наши данные аккуратно лежат в самом конце скрипта. А теперь оптимизируем Perl до Perl 5.010 и немного еще упростим, получиться:

#!perl
use 5.010;
while (<DATA>)
    {say “<a href=\"$_\”>$_</a>"
    }
__DATA__
http://ya.ru
http://rambler.ru

Получилась конфета, единственное пришлось использовать use, чтобы сообщить перлу что мы хотим использовать новые фичи с версии 5.010.

Казалось бы вот тебе рас, с Перле все аккуратно и красиво а PHP лучше код не оптимизировать, ибо потом действительно хрен без бутылки не разбереш. Лично мне нравится больше Perl, в нем нет функций на каждый чих длинной в 7 букв. На Perl мы можем использвовать конечно свои библиотечки. или уже 20 раз готовые, чего в PHP вообще нету. Но иногда с PHP прощще тем что в нем опять же все функции что надо и не надо уже в  коробке сидят. Например file_put_contents – очень полезная функция.