🚀 go-pugleaf

Maciej Zielenkieiwcz wrote:
> 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,

No bo faktycznie namotałem niemiłosiernie. ;-)

> 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";
> 	}
> }
> 

Zgadza się, działa jak złoto. Bardzo dziękuję. Jeszcze muszę zrobić 
drobne przeróbki i będzie to o co mi chodzi.


-- 
Miss World 2006: Jestem szczęśliwa, że mogę wspaniale uczestniczyć w
przeżyciu najpiękniejszych kobiet tutaj w Warszawie, gdzie Jan Paweł II,
papież, w Polsce, skąd pochodzi. Spotkałam się z Kościołem Mariackim
w Krakowie, który ciepło ludzi i wielka przyjaźń. Połowa mojego serca
zostanie w Polsce, a druga połowa pojedzie ze mną do mojego kraju.
NP: Alice In Chains - All Secrets Known