[Perl] Извлечение текста

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
[Perl] Извлечение текста

Опции темы

Поиск в этой теме

Опции просмотра

[Perl] Извлечение текста

07.04.2010, 13:49

apofis

Познающий

Регистрация: 23.02.2009

Сообщений: 35

С нами: 9059503

Репутация: 0

[Perl] Извлечение текста

Приветсвую!

Хочу спросить, можно ли как-нибудь извлечь текст?

Например, как можно извлечь стих, отсюда?

ASPuskin У лукоморья дуб зеленый;
Златая цепь на дубе том:
И днем и ночью кот ученый
Все ходит по цепи кругом;
Идет направо - песнь заводит,
Налево - сказку говорит. end

Т.е. нужно извлечь текст от "ASPuskin " до " end".

𝕏 Twitter Reddit Telegram Копировать ссылку

07.04.2010, 13:55

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

С нами: 10021597

Репутация: 905

Регуляркой

Код:

$text =~ /ASPuskin (.+?) end/smi;

07.04.2010, 18:52

apofis

Познающий

Регистрация: 23.02.2009

Сообщений: 35

С нами: 9059503

Репутация: 0

Ок, спасибо!

09.04.2010, 14:30

apofis

Познающий

Регистрация: 23.02.2009

Сообщений: 35

С нами: 9059503

Репутация: 0

Есть еще один вопрос. Как можно извлечь этот же текст из файла, который, например называется stih.txt и находится в одной папке со скриптом?

09.04.2010, 14:54

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

С нами: 10021597

Репутация: 905

Код:

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open qw /:std :utf8/;

$\ = "\n";
die "wrong param count" unless scalar @ARGV == 1;
open my $F, '<', $ARGV[0] or die "open() error: $!";
my $text;
$text .= $_ while <$F>;
close $F;
my ($stih) = $text =~ /ASPuskin (.+?) end/smi;
print $stih;

Имя файла передается скрипту как параметр

09.04.2010, 16:36

apofis

Познающий

Регистрация: 23.02.2009

Сообщений: 35

С нами: 9059503

Репутация: 0

Не совсем понятен этот код.
Ладно, задам другой вопрос:

Как можно сделать чтобы переменная была равна массиву? Я например открываю файл, т.е. @stih - это содержимое текстового файла.

Нужно сделать, чтобы $text = @stih, т.е. чтобы $text тоже содержал весь стих, чтобы потом из него потом уже извлечь то что нужно.

09.04.2010, 19:18

Kaimi

Познавший АНТИЧАТ

Регистрация: 23.08.2007

Сообщений: 1,237

С нами: 9851426

Репутация: 1676

Ну напиши $text = join "\n", @stih;
Или читай содержимое файла по-другому...

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Требуется перевод текста [анг->рус]	m0le[x]	Freelance - О Работе	2	07.12.2009 10:39
Цвет текста в Mozila Frifox 3.5	НTL	Болталка	2	27.07.2009 16:52
Приобрету скрипт для рандома текста: синонимами, заменяющими буквы русского текста на	writtengen	Freelance - О Работе	7	26.05.2009 12:27
Помогите с парсером [Perl]	$p01nt	PHP	2	16.02.2009 15:23

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

Создать сделку

Мои сделки

Сделка