welinux.ru/Скрипты — Основы программирования на Perl (часть 2)

25.02.10 20:46 afiskon

Скрипты — Основы программирования на Perl (часть 2)

Ну вот дошли руки написать продолжение к посту Основы программирования на Perl. В этой части речь пойдет об условных операторах и циклах.

Похожие +9–

Теги: Perl script Study

digiwhite 25.02.10 20:49 # +1–

Почему-то не люблю посты-ссылки :).

exelens 25.02.10 21:20 # ↑ +1–

Я признаться тоже =))) Только ТСС.. а то скажут, что ханжа.

booley 25.02.10 22:03 # ↑ +0–

"Оформляй как пост-ссылку!"

: exelens 25.02.10 22:13 # ↑ +0–

Ну если мне не нравится это ведь не значит что не нравится всем.

: booley 25.02.10 22:04 # ↑ +0–

Я не люблю их в нынешней инкарнации. Astramak обещал поправить =)

afiskon 25.02.10 22:15 # ↑ +0–

Честно говоря, я тоже. Но в прошлом анонсе мне сказали выбирать - либо ссылка, либо копипаст. А из двух зол, как говорится... :)

exelens 25.02.10 22:16 # ↑ +0–

Копипаст со ссылкой на источник гораздо рульней даже с позиции seo. Ведь есть ссылка на оригинал =)

: afiskon 25.02.10 22:24 # ↑ +2–

На счет SEO не скажу, а здравый смысл подсказывает, что плодить копии одного и того же текста не есть гуд.

f_evgeny 26.02.10 11:29 # +0–

Мне кажется, в этой статье неплохо бы в самом начале упомянуть, что в Perl правда, а что ложь. (В смысле True/False)

booley 26.02.10 11:30 # ↑ +0–

Все лгут! Даже Perl! :D
0 - ложь, ЕМНИП?

f_evgeny 26.02.10 12:13 # ↑ +0–

0, "", undef - ложь, но 0.0 - правда
Остальное правда
Прим: Не на ту кнопочку нажал

: afiskon 26.02.10 12:32 # ↑ +0–

print "1111" if("0"); # ничего не выведет

: f_evgeny 26.02.10 12:13 # +0–

0, "", undef - ложь, но 0.0 - правда

afiskon 26.02.10 12:57 # +0–

Но больше всего я лублю в Perl возможность выполнять команды типа

perl -e 'for(<./*>) {print `md5 $_\n`;}'

afiskon 26.02.10 12:59 # ↑ +0–

Разумеется, в баше тоже есть глобы. Просто в perl операции с файлами могут быть сложнее. И да, я догадываюсь, что питон тоже так может :)

razum2um 28.02.10 14:27 # ↑ +0–

питон тоже так может :)

угу.
вот оно (однострочник, считает md5 всех файлов current dir рекурсивно и выдает список словарей {имя_файла : md5}):

python3 -c 'from functools import reduce; import os,hashlib; print(list(map (lambda x: {x : hashlib.md5(open(x, "rb").read()).hexdigest()}, [f for f in filter(os.path.isfile, map(lambda x: os.sep.join(x), reduce(lambda x,y: list(x)+list(y), map(lambda x: zip(*x), [((l[0],)*len(l[2]),l[2]) for l in os.walk(os.getcwd())]))))])))'

хотя это из спортивного интереса к функциональному подходу написана...
пока писал уже начал забывать как оно работает :)

digiwhite 28.02.10 16:11 # ↑ +0–

Помоему на bash`е это будет понятнее %)

: razum2um 28.02.10 16:41 # ↑ +0–

да просто

md5sum `find . -type f`

мало того: оно с башем и сишными прогами быстрее
я просто показал, что на python тоже можно в одну строку
%)

madgnu 26.02.10 16:36 # +1–

1
2
3 for(1..4) { print "$_"; }

можно еще проще:

1
2
3 for(1..4) { print; }

madgnu 26.02.10 16:39 # ↑ +0–

еще я очень люблю perl за работу с файлами:

1
2
3
4 my $file = open(LOGFILE, "< $logpath") or die("Log file cannot be opened!"); foreach (<LOGFILE>) { print; }

afiskon 26.02.10 16:43 # ↑ +1–

Тогда уж "print for 1..4;" или "print 1234;"
:)

: madgnu 26.02.10 16:44 # ↑ +0–

print 1..4
:)

—

Есть проблема! — «Chakra и ШГ» digiwhite — « Archlinux / появилась Archbang 2.00 RC2» exelens — « The Geek Stuff - переводы коротких статей с одноименного сайта. / Как найти и удалить пустые директории и файлы» digiwhite — « The Geek Stuff - переводы коротких статей с одноименного сайта. / Как найти и удалить пустые директории и файлы» MagoBuono — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.» digiwhite — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.» MagoBuono — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.» avpme — « Опросы / Какой дистрибутив вы используете, только честно!» Tirador — « Опросы / Какой дистрибутив вы используете, только честно!» ( -1 ) booley — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.» booley — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.» booley — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.» digiwhite — « The Geek Stuff - переводы коротких статей с одноименного сайта. / Как найти и удалить пустые директории и файлы» MagoBuono — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.» MagoBuono — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.» MagoBuono — « Измышления Мага / Измышления о глупости и фанатизме. Пилотный выпуск.»
Последние посты
Последние комментарии
Изменения
Черновики (все)
Избранное (всё)

Лучшие блоги (все 102) Tips & tricks (26) How-to`s (19) Есть вопрос! (18) Archlinux (18) Linux Games (13) KDE (13) Debian (12) Я рекомендую. (12) Vim (12) welinux (10)
Элита (все 2055 из 156 городов) muhas (183.5) Username (162.7) h0rr0rr_drag0n (97.65) Minoru (86) LeniH (81.4) ZogG (80.65) Astramak (75.5) Aesdana (67.9) cppmm (64.7) chemikadze (57.7)

В сети: goblinyara, digiwhite, Craftuser, exelens, Goury

Новенькие: rst-10h, sirnet, sherbakov, mrkot, kot