The OpenNET Project / Index page

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




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
Регулярное выражение на Perl, !*! agalin, 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?

  • Регулярное выражение на Perl, !*! angra, 23:08 , 28-Июл-08 (1)
    >А вот как сдвинуться на две строки вниз

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

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

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




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

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