anonymous@RULINUX.NET~# | Last login: 2024-12-28 21:49:17 |
Регистрация Вход | Новости | Разметка | Пользователи | Галерея | Форум | Статьи | Неподтвержденное | Трекер | Правила форума | F.A.Q. | Ссылки | Поиск |
Форум - General | [RSS] |
Товарищи, знакомые с языком 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
|
|
|
Скрыть
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 (нужна помощь!)решение первого задания: vilfred(*)(2016-03-01 16:25:16)
Отредактировано vilfred по причине "не указана" Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:42.0) Gecko/20100101 Firefox/42.0 |
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 |
vilfred(*)(2016-03-01 22:38:13)
Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:42.0) Gecko/20100101 Firefox/42.0 |
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 (нужна помощь!)Настя забей на перл, он прав))) Но Common Lisp (Наверно о нем шла речь))) Тебе тоже не нужен))) 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 |
Re:Однострочники на Perl (нужна помощь!)
cat "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see' или как-то так
PS: за тебя никто домашнее задание делать не будет.