Re: Problem z regexpem

Article View: pl.comp.lang.perl

Article #51666

#51666

From: Maciej Zielenkieiwcz
Date: Fri, 06 Nov 2009 16:58

25 lines
1493 bytes

On 2009-11-06 16:30, Piotr Hosowicz <adresat.nieprawidlowski@op.pl> wrote:
> Napisałem skrypt który mi nie dziala:
>
> [...]
>
> Wynik jego dzialania wskazuje na to, że mimo wykonania w kolenym loopie 
> pętli operacji =~ nie są w żaden sposób resetowane $1, $2, $3, $4 itd

Tamto wyrażenie regularne było za skomplikowane i nie chciało mi się
szukać w nim błędu, ale coś takiego działa:

#!/usr/bin/perl
use strict ;
while (<STDIN>){
	if (/^.*,.*, (\d\d:\d\d):\d\d\s*(.*)$/)
	{
        	if ($2){
        	        print $1." ".$2."\n" ;
        	} else {
        	        print $1."\n" ;
        	}
	} else {
		print "\n";
	}
}

Technical Details

Message-ID: <hd1kk6$es0$1@io.staszic.waw.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed.atman.pl!news.staszic.waw.pl!not-for-mail

References: <4AF44F2A.8040709@example.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed.atman.pl!news.staszic.waw.pl!not-for-mail
From: Maciej Zielenkieiwcz <mzielenkiewicz@gmail.com>
Newsgroups: pl.comp.lang.perl
Subject: Re: Problem z regexpem
Date: Fri, 6 Nov 2009 16:58:46 +0000 (UTC)
Organization: XIV LO im. S. Staszica w Warszawie
Lines: 26
Message-ID: <hd1kk6$es0$1@io.staszic.waw.pl>
References: <4AF44F2A.8040709@example.com>
NNTP-Posting-Host: io.staszic.waw.pl
Mime-Version: 1.0
X-Trace: node2.news.atman.pl 1257527174 30370 85.232.234.104 (6 Nov 2009 17:06:14 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Fri, 6 Nov 2009 17:06:14 +0000 (UTC)
User-Agent: slrn/0.9.9p1 (Linux)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message