Значения с файла и запись в файл (WHILE)

@Freesty1er · Регистрация: 30.10.2011

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста, уже не знаю что делать. Три часа убил, так ничего и не сделал.
У меня есть файл со ссылками url.txt (вида http://ge.tt/*). Что нужно сделать, так это открыть этот файл, перейти по ссылкам и достать имя файла на том сайте. После этого, имя файла записать в следующий документ (name.csv, или *.txt - не важно), каждое имя с новой строки (можно и через запятую).
Так то программа вроде работает, но вот как взять ссылку из файла и записать в файл не знаю.

Lisp
1
2
3
4
(change-dir "c:/lisp")
(set 'downloadlink (find-all {(?<=\<span class\=\'filename\'\>).*(?=\<\/span\>)} (get-url "http://ge.tt/1gnq3JX/v/2")))
(print downloadlink)
(exit)

Скачал: newLISP v.10.4.5 on Win32 IPv4/6 UTF-8 libffi, читаю по нему справку: http://www.newlisp.org/downloa... rrent-line
не могу ничего сделать. Примеры, что там даны, не работают.

Lisp
1
2
3
4
(set 'in-file (open "url.txt" "read"))
(while (read-line in-file)
        (write-line))   
(close in-file)

Насколько я понял, ругается на команду: while
В результате получаю это:

Lisp
1
2
3
4
5
6
7
8
9
3
> 
ERR: missing parenthesis : "...(while (read-line in-file)\n         "
> 
2
 
ERR: missing parenthesis : "...        (write-line))   \n           "
> true
>

Мне бы хоть считать как-то построчно. А записал бы в файл через CMD

Code
1
newlisp extract_names.lsp > data.csv

Заранее благодарен за любую помощь.

@Catstail · 13.05.2013, 18:17

Сообщение от Freesty1er

missing parenthesis

- означает "опущены скобки". Может, в этом дело?

@Freesty1er · 13.05.2013, 21:15 **[ТС]**

Catstail, чет все-равно ничего не получается.
С While просто в 1 строчку перенес и заработало.
Но почему-то, когда запускаю, абсолютно не хочет ждать

И выдает только последнее значение.

Добавлено через 20 минут
Посоветуйте какой-то другой язык. А то у меня уже сил нету. Достали эти скобки.

Добавлено через 26 минут
Вся проблема была в скобках... ппц! Так кода капля, выкладывать стыдно.
Всем спасибо!

@helter · 14.05.2013, 00:19

Сообщение от Freesty1er

Достали эти скобки.

Юзайте нормальный редактор. С подсветкой парных скобок, с автозакрытием, с автоиндентацией. Ходят слухи, что в том же Питоне скобок не меньше. Вряд ли правда, однако: вызов функции - пара скобок, обращение к элементу - пара скобок... Причём в Лиспе они так мило кучкуются в концах строки...

http://www.thejach.com/imgs/lisp_parens.png (То ли img тут не работает?

)

Постите ещё! У вас какие-то real world problems, интересно.

Правда, newLISP - с чем его едят?.. Может, лучше Common Lisp?

@Freesty1er · 14.05.2013, 00:38 **[ТС]**

Да уже как-то настроил

Правда растянуть while на несколько строк у меня так и не вышло. Только если все в одной, тогда работает

С меня правда такой программист... пятикопеечный. Только iMacros'ом в браузере пользовался. Он он процессор грузит по-черному.

Lisp
1
(while (set 'gett (read-line in-file)) (println (find-all {Регулярка} (get-url gett 4000))))

@helter · 14.05.2013, 00:47

Попробуйте так, неужели не заработает.

Lisp
1
2
3
(while
  (set 'gett (read-line in-file))
  (println (find-all {Регулярка} (get-url gett 4000))))

Регексы искаропки - это хорошо. (Хотя для CL есть замечательная библиотека cl-ppcre.) Да и вообще много чего искаропки. Однако я посмотрел в вики - переменные только динамические... Это что, без замыканий жить? Хотя занятно, ничего не скажешь.

@Freesty1er · 14.05.2013, 01:19 **[ТС]**

Сообщение от helter

Попробуйте так, неужели не заработает.

Lisp
1
2
3
(while
  (set 'gett (read-line in-file))
  (println (find-all {Регулярка} (get-url gett 4000))))

Регексы искаропки - это хорошо. (Хотя для CL есть замечательная библиотека cl-ppcre.) Да и вообще много чего искаропки. Однако я посмотрел в вики - переменные только динамические... Это что, без замыканий жить? Хотя занятно, ничего не скажешь.

Работает..) Зря наговорил. Просто не в тех местах наверное разрывал.
Просто так намучался, то когда заработало, боялся дышать :-)

А у вас какой любимый язык программирования, если не секрет?

Добавлено через 23 минуты
И еще, такой вот вопрос. Все тут пишут, что LISP многопоточный.
Как это понимать? Можно запускать несколько программ одновременно, или можно мою программку написать как-то подругому, что бы работало в несколько потоков?
И интересно было бы узнать, как все же сделать вывод в файл, не посредством cmd (println), а напрямую.

@helter · 14.05.2013, 01:41

http://lambda-the-ultimate.org/node/257

Ругают...

@Freesty1er · 14.05.2013, 01:53 **[ТС]**

Вроде как работает

@Freesty1er · 16.05.2013, 03:45 **[ТС]**

В общем, больше всего грузит процессор из-за регулярки

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Freesty1er 2 / 2 / 0 Регистрация: 30.10.2011 Сообщений: 16
	13.05.2013, 21:15 [ТС]
	Catstail, чет все-равно ничего не получается. С While просто в 1 строчку перенес и заработало. Но почему-то, когда запускаю, абсолютно не хочет ждать И выдает только последнее значение. Добавлено через 20 минут Посоветуйте какой-то другой язык. А то у меня уже сил нету. Достали эти скобки. Добавлено через 26 минут Вся проблема была в скобках... ппц! Так кода капля, выкладывать стыдно. Всем спасибо! 1

@helter 4528 / 3522 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	14.05.2013, 01:41
	http://lambda-the-ultimate.org/node/257 Ругают... 0

@Freesty1er 2 / 2 / 0 Регистрация: 30.10.2011 Сообщений: 16
	14.05.2013, 01:53 [ТС]
	Вроде как работает 0

@Freesty1er 2 / 2 / 0 Регистрация: 30.10.2011 Сообщений: 16
	16.05.2013, 03:45 [ТС]
	В общем, больше всего грузит процессор из-за регулярки 0