- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
while (<>)
{
chomp;
s/\r$//;
next unless $_;
my ($tag, $value) = split / /, $_, 2;
die "Font is not fixed width\n"
if $tag eq 'SPACING' and not $value =~ /[CM]/i;
$currentchar = $value if $tag eq 'ENCODING';
$minchar = $currentchar if not defined $minchar
or ($currentchar < $minchar && $currentchar >= 0);
$maxchar = $currentchar if not defined $maxchar
or ($currentchar > $maxchar && $currentchar >= 0);
Follow us!
Если считаешь перл говноязыком, то пости на сайте "Говноязык".
А здесь сайт "Говнокод".
Но он не говноязык.
Хоты бы потому:
PHP:
$i = -100;
for ($i = 0; $i <= 100; $i++) {
}
print $i;//выведет 100
===
Perl:
my $i = -100;
for (my $i = 0; $i <= 100; $i++) {
}
print $i;//выведет -100
==
В тоже время если в цикле "for" уберу слово "my", будет как в PHP
Если, по-вашему, это не говнокод, то мне вас жаль. Взять хотя бы это:
> print $i;//выведет 100
Да и вы ошиблись. Выведет 101. Так что не знаете языка, а лезете в спор :))))
У меня, кстати, было два плюса. Догадываюсь, кто отминусовал))
Насчёт этого:
chomp;
s/\r$//;
next unless $_;
Мб, говно, ибо заставляет думать каким переменным я обращаюсь.
Я так лично не пишу, я использую явные переменные. Если только не надо написать быстренькое приложение в 1-3 строчки, для себя, вот тут это полезно.
В перле:
$var =~ s/234/abc/g;
PHP:
preg_replace($var, '/234/g', 'abc');
В перле круче.
Да я уже заметил. В этом разделе перловщики друг другу плюсы раздают по делу и не по делу, даже когда явные ляпы со стороны перловщика, его забрасывают плюсами.
А не перловщика забрасывают минусами, не зависимо от того, о чем идет речь, даже если он и прав.
Так что объективность данных оценок = 0.
Но ваще везде, где идёшь против большинства.
Так, к слову.
Не знаю про кого он. Скажу: "я над вами не иронизировал".
Это так, к слову, чтоб правда восторжествовала.
Надо юзать явные переменные.
Но для себя неявные переменные использовать можно.
это даже и кодом то назвать сложно. бо логики там никакой нету. смеятся не с чего.
на пыхе/С++/С#/Жабе/етц ГК намного больше потому что пользователей (pun intended) всех мастей на порядок больше.
это откровенные хаки для CygWin. не больше, не меньше.
Допустим, Винда, grep`а нету. Надо просмотреть текущий каталог и надо отфильтровать нужные строки.
Делаю так:
dir | perl -nle 'print if /<слово в названии папки>$/';
Вот, в таких one-liner'ах, как раз удобно юзать неявные переменные.
Тут код надо быстрее написать и забыть.
вы бы еще математиков или химиков начали шпынять за "чё-то формулы у тебя больно муторные, не разберусь в них никак. по-людски не можешь что ли писать?" :)
Не забываем, что первоначально перл был не что иное, как помесь бульдога с носорогом сплав из баша, седа, авка и прочих специфических инструментов, которыми пользовались суровые бородатые дядьки, чихать хотевшие на рюшечки и финтифлюшечки. Перл был и остался языком с суровым (к новичкам и неопытным) синтаксисом, возможно даже чересчур суровым для нашего времени, поэтому и появился Пых, более узкоспециализированный и удобоваримый.
Пхп вырос из Перла и уверенно перенял эстафету, так что завязывайте перестрелку - она бессмысленна как и любой холивар.
php уебищен по архитектуре, хотя по синтаксису он и проще.
достаточно пол года плотной писанины на перле что бы начать создавать на нем удобоворимые программы (настолько, насколько без статической типизации и нормального ООП вообще их можно создавать).
но сколько не пиши на PHP -- все равно получится говно.
Потому что сложноватый (для современного школьника) синтаксис -- это конечно не хорошо.
Но дерьмовая архитектура -- в тысячу раз хуже.
И вообще: синтаксис си тоже не сахар, однако же никто не говорит что он -- говно.
------
вот у питона имхо отличный и синтаксис и архитектура
Вот-вот, давайте начнем сюда куски исходников unix-ядра выкладывать и дружно смеяться. Там, ведь, и goto попадаются. А сколько непонятного!
кстати, любителей микрософта тоже хочу расстроить: я видел некоторые скрипты из ресурс-китов и хранимки из ms-sql.
в редмонде тоже о красоте кода не много думают