The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Регулярное выражение на Perl"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [ Отслеживать ]

"Регулярное выражение на Perl"  
Сообщение от agalin on 28-Июл-08, 22:50 
Помогите пожалуйста написать регулярное выражение в Perl для поиска в файле.
Файл имеет вид:

        ...............

Name     Line Prefix     Job Type

--------------------------------------------
mas_96  07EA3DS       Lacona Extra
      
        ...............

Требуется найти "Job Type", опуститься вниз на 2 строчки и выкусить "Lacona Extra", точно 2 сроки под "Job Type".
Поиск  "Job Type" я реализовал:

#! /usr/bin/perl
use strict;

open(FILE, "test.txt") or die $!;
while(<FILE>){
    if(/Job Type/){
    print "Job Type\n";
    }
}

А вот как сдвинуться на две строки внизи считать третий столбец с помощью Perl?

Высказать мнение | Ответить | Правка | Cообщить модератору

 Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Регулярное выражение на Perl"  
Сообщение от angra (ok) on 28-Июл-08, 23:08 
>А вот как сдвинуться на две строки вниз

несколько способов, но это к умению программировать вообще, а не на perl в частности. Учитесь решать елементарные задачи самостоятельно или завязывайте с программированием
>считать третий столбец с помощью Perl

Обычно split, но так как у вас значения с разделителями внутри, то захватом:
perl -e '$_="mas_96  07EA3DS       Lacona Extra";/^\S+\s+\S+\s+(.*)/;print $1'
Lacona Extra

P.S. почитайте еще про chomp, пригодится

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Регулярное выражение на Perl"  
Сообщение от agalin on 30-Июл-08, 22:02 
Спасибо за дельные советы. Буду работать над собой.
Но я не программист. Просто время от времени приходится систеатизировать данные по работе - вот я заглянул к Вам на форум.
Спасибо за помощь!
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру