|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Igor Nikolaev 2:5030/266 04 May 2000 17:43:25 To : "Denis Poznyakov" Subject : Re: some q -------------------------------------------------------------------------------- Denis Poznyakov <pvdenis@puzo.net> wrote: >> > Hу а сам показал бы на что способен :) >> У тебя денег то хватит? :-) > Hу и сколько ты ломишь за столь простые скрипты ?! Вопрос оплаты - вопрос интересный. Я обычно сейчас пытаюсь оценить работу исходя из возможных затрат времени принимая, что спокойный день оверхеда должен приносить порядка $100, а минимальный квант это неделя (пять дней). Заниматься мелочёвкой особого желания нет, лучше я в эху нафакаю ;-) > Ладно , побывал я и у тебя на странице :) обхахочешься! Какую из? Поделись url'ем, запамятовал... Я в тексте писем никакие из своих url не рекламирую. Готовые скрипты наверное тебе будут малоинтересны, они достаточно unix специфичны, вдобавок привязаны к решаемым задачам. Потому как в основном выполняют функцию обвязки. Hаверное ты всё-таки адресом ошибся. >> >> sub zapisi { >> Hу типа того, что в какой-то момент писать >> надоело, а с утра всё что ниже стало под >> программой ;-) > М-да , и это человек который кричит что он самый крутой в перле > ????!!!!...не разобравшись Hу дык и объясни, зачем тебе понадобилась подпрограмма, которая вызывается ровно один раз, записана строго под программой, заканчивающейся вызовом этой самой &zapisi; вызов происходит без передачи параметров etc. При этом локализацией переменных ты не пользуешься, массивов немеряных размеров не определяешь, вызовов по ссылке не видать. Может просто достаточно было блок { } нарисовать, сущностью меньше стало бы? Hу тупой я и недогадливый, объясни нам, зачем она нужна то? >> У меня сложилось впечатление, что ты привёл >> свой монументальный труд в качестве образца. > Вовсе нет :) , а кто берет для его образца и хорошо Кому хорошо то? Стиль дикий, текст нечитабельный, язык бедный, комментарии бессмысленные, структура отсутствует, то что можно сделать в полсотне строк кода занимает семь сотен, результат сомнителен, при использовании приведённых в тексте рекомендаций (допустимость upload) - просто опасен? >> Что это за мистические переменные? >> : # Максимальное количество хранения записей в базе >> : $max_zap=1250; > В общем если хочешь дальше спамить в эху (из-под лина) пожалста И кто такой лин? > Hо на сколько я понял ты парень не только в перле не разбираешься но и в > чужем коде разобраться не можешь :)) Мне казалось, что этот код заглатывается самым простым и незатейливым способом, без каких-либо проверок: % grep cfg *.pl pvdgb.pl:require "pvdgb.cfg"; upgrade.pl:require "pvdgb.cfg"; % И чем он после этого не perl? Если учесть, что большая его часть состоит из пар var=value то мне не понять, почему всё это хозяйство просто не всосать в ассоциативнй массив, вот работающий пример: % cat par.pl #!/usr/local/bin/perl -w use strict; my %conf; # configuration array and filename my $config_file = substr ( $0, 0, rindex ( $0, '.' ) ) . '.cfg'; open ( CONF, $config_file ) or die "Can't open $config_file $!"; while ( <CONF> ) { chomp; next if /^#/; my ( $key, $value ) = split '=', $_, 2; unless ( $value ) { while ( <CONF> ) { chomp; last if $_ eq '='; $value .= $_; } } ( $conf { $key } = $value ) =~ s/\\n/\n/go; } close ( CONF ); # print configuration paramethers foreach my $key ( sort keys %conf ) { print "$key=$conf{$key}=\n"; } % cat par.cfg # просто мария тётя=Мария Простовна # васю почему-то удобнее записать так дядя= Василий Иванович = # несколько строк строки= ни\nдня\nбез\nстрочки\nтолько\n . . . = % ./par.pl дядя=Василий Иванович= строки=ни дня без строчки только ...= тётя=Мария Простовна= % Вопросы, комментарии? > Denis Poznyakov -- Игорь Hиколаев --- ifmail v.2.12.os.sensi * Origin: И эти люди будут нас учить ковырять в носу? (2:5030/266@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1341612fc2f45.html, оценка из 5, голосов 10
|