http://rulinux.net/ http://rulinux.net/ http://rulinux.net/rss_icon.png https://rulinux.net/message.php?newsid=42438&page=1#215286 https://rulinux.net/message.php?newsid=42438&page=1#215286 Wed, 02 Mar 2016 17:11:16 +0300 Настя забей на перл, он прав))) Но Common Lisp (Наверно о нем шла речь))) Тебе тоже не нужен)))

Юзай Python, это откровение Творца нашего выраженного через ЯП, а Гвидо пророк его)))

]]> https://rulinux.net/message.php?newsid=42438&page=1#215271 https://rulinux.net/message.php?newsid=42438&page=1#215271 Wed, 02 Mar 2016 15:18:13 +0300 Настя забей на перл, леарн липс ит ис форева.

]]> https://rulinux.net/message.php?newsid=42438&page=1#215255 https://rulinux.net/message.php?newsid=42438&page=1#215255 Tue, 01 Mar 2016 18:38:13 +0300 а какую ошибку?

]]> https://rulinux.net/message.php?newsid=42438&page=1#215254 https://rulinux.net/message.php?newsid=42438&page=1#215254 Tue, 01 Mar 2016 18:16:21 +0300 Из под рута запускать надо!

]]> https://rulinux.net/message.php?newsid=42438&page=1#215252 https://rulinux.net/message.php?newsid=42438&page=1#215252 Tue, 01 Mar 2016 17:57:03 +0300 Спасибо большое! Только почему-то ошибку выдает. Буду пробовать разобраться.

]]> https://rulinux.net/message.php?newsid=42438&page=1#215250 https://rulinux.net/message.php?newsid=42438&page=1#215250 Tue, 01 Mar 2016 12:25:16 +0300 решение первого задания:

[vilfred@localhost ~]$ perl -e 'while(<*.*>){$c++; do{ print "$_ \n"; $a++} if -s $_ > 1024*1024}; print "all: $c \t big: $a\n"'

]]> https://rulinux.net/message.php?newsid=42438&page=1#215249 https://rulinux.net/message.php?newsid=42438&page=1#215249 Tue, 01 Mar 2016 12:09:57 +0300 это и есть самый что ни на есть перл, только боюсь препо этот синтаксис не поймет

]]> https://rulinux.net/message.php?newsid=42438&page=1#215248 https://rulinux.net/message.php?newsid=42438&page=1#215248 Tue, 01 Mar 2016 09:19:04 +0300 Вообще-то на форумах люди обычно помогают с задачами, обсуждают их и делятся идеями и полезными ссылками. А визуально не очень на Perl похоже :)

]]> https://rulinux.net/message.php?newsid=42438&page=1#215247 https://rulinux.net/message.php?newsid=42438&page=1#215247 Tue, 01 Mar 2016 08:51:46 +0300 cat "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see' или как-то так

PS: за тебя никто домашнее задание делать не будет.

]]> https://rulinux.net/message.php?newsid=42438&page=1#215245 https://rulinux.net/message.php?newsid=42438&page=1#215245 Tue, 01 Mar 2016 08:26:51 +0300 Товарищи, знакомые с языком Perl! Помогите, пожалуйста, с написанием однострочников. Третий день уже разбираюсь, но не получается :( Только по 2 задаче кое-что смогла написать, но не работает: perl -lnaF':' -e 'for ($j=0; $j<@F; $j++) {if( $F[$j] > 10 ){ print $F, $j }}'

Вот задания:

1. Написать однострочную программу на perl, которая на вход получает список файлов выводимых командой ls -l или dir и распечатывает на экран имена тех файлов размер которых больше 1 мегабайта. Последней строкой должна быть выведена информация по общему количеству файлов и количеству файлов размер которых больше 1 мегабайта.

2. Написать однострочную программу, которая прочитает со стандартного входа файл в виде таблицы, где поля разделены двоеточием ":". И выведет на экран номера строк и столбцов значение ячеек, которых больше 10.

3 Написать программу которая возьмёт файл из задания 2 и построит структуру данных в виде массива массивов, после чего распечатает его при помощи модулей DDP и Data::Dumper

4. Провести отладку скрипта написанного в задании 3. Создать файл сценарий для отладчика. Заранее большое спасибо за помошь!!!

]]>