VPF::Регулярка - Форум программистов

Breezend

Дата 30.3.2006, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 30.3.2006

Репутация: нет
Всего: нет

хм .. есть текст на 400 страниц. Нужно вырвать только те строки где содержатся цифры и вывести их либо на на экран либо в файл

korob2001

Дата 31.3.2006, 01:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Код


#!/usr/bin/perl -w
use strict;

my $file = "filename.txt";

open(F, "< $file") or die $!;
 while (<F>) { print if /\d/ };
close(F);

Выведет в STDOUT только те строки, где есть хотя бы одна цифра. Если нужно записывать в файл, то открывай файл для записи и пиши в него.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Breezend

Дата 31.3.2006, 09:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 30.3.2006

Репутация: нет
Всего: нет

спасибо огромное. Не думал что это так просто smile

DEER

Дата 31.3.2006, 13:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 1
Всего: 13

По моему надо вывести строку, если в ней есть цифры, тогда так

Код


#!/usr/bin/perl     
use strict;     
use warnings;     
open FH, "<$ARGV[0]" or die "Can't open file, $!"; # Открываем файл переданный как аргумент    
while (<FH>) {    
  m/\d/ ? print "$_\n" : next;    
}    
close FH;

Это сообщение отредактировал(а) korob2001 - 31.3.2006, 17:43

--------------------

rcdimon

Дата 4.4.2006, 07:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

а разница?

korob2001

Дата 4.4.2006, 07:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Он просто не заметил вторую страницу. smile

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »