🚀 go-pugleaf

Adam Kubicki <mikee@galaxy.uci.agh.edu.pl> wrote:
: chce wyciac z linii wszystko zaczynajace sie od '(' lub cyfry.
: ponizszy warunek zle dziala, dla linii bez cyfr jest OK, jednak jesli jest
: i '(' i cyfra pozniej, zaczyna od cyfry zamiast od wczesniejszego '('
: ma ktos jakis pomysl?

: /((\(|\d).*)/  -- cos takiego wg mnie powinno dzialac

: jesli jest cyfra lub ( dziala OK, dla ( przed cyfra zle dziala. 
: rozne wariacje tego - ([\(\d].*) itp tez nie dzialaja

Niemożliwe - u mnie działa, sprawdziłem. Możesz pokazać większy 
fragment programu w którym to nie chce działać?

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Piatkowski <kompas@galaxy.uci.agh.edu.pl> wrote:
: : /((\(|\d).*)/  -- cos takiego wg mnie powinno dzialac

: : jesli jest cyfra lub ( dziala OK, dla ( przed cyfra zle dziala. 
: : rozne wariacje tego - ([\(\d].*) itp tez nie dzialaja

: Niemożliwe - u mnie działa, sprawdziłem. Możesz pokazać większy 
: fragment programu w którym to nie chce działać?

masz racje, troche sie pospieszylem. nizej jest caly przyklad, chce w $1 miec 
to co jest przed tym drugim kawalkiem (zaczynajacym sie od ( lub cyfry)

perl -e '"blah blah (nawias i 01238)" =~ /(.*) ((\(|\d).*)/ && print "$1; $2\n"'

blah blah (nawias i; 01238)

jak widac to zle dziala, jesli przed 01238 nie ma spacji jest OK, co jest zle?

Adam Kubicki <mikee@galaxy.uci.agh.edu.pl> wrote:
[ ... ]
> masz racje, troche sie pospieszylem. nizej jest caly przyklad, chce w $1 miec 
> to co jest przed tym drugim kawalkiem (zaczynajacym sie od ( lub cyfry)

> perl -e '"blah blah (nawias i 01238)" =~ /(.*) ((\(|\d).*)/ && print "$1; $2\n"'

> blah blah (nawias i; 01238)

> jak widac to zle dziala, jesli przed 01238 nie ma spacji jest OK, co jest zle?

  Jesli problem lezy w tym, w czym mysle - czyli w maksymalnym dopasowaniu,
  to w Perlu 5 mozna wymusic dopasowanie minimalne przez '?':

perl -e '"blah blah (nawias i 01238)" =~ /(.*?) ((\(|\d).*)/ && print "$1; $2\n"'

A w Perl 4 trzeba na poczatku dopasowywac inaczej:


perl -e '"blah blah (nawias i 01238)" =~ /([^\(\d]*) ((\(|\d).*)/ && print "$1; $2\n"'

 Mam nadzieje, ze o to chodzilo.

 HTH, Pedro

-- 
Maciej "Pedro" Jastrzebski                  pedro@golem.umcs.lublin.pl

"As the people here grow colder / I turn to my computer
And spend my evenings with it / Like a friend."
                                     Kate Bush, "Deeper Understanding"

Maciej Jastrzebski <pedro@apollo.umcs.lublin.pl> wrote:
:   Jesli problem lezy w tym, w czym mysle - czyli w maksymalnym dopasowaniu,
:   to w Perlu 5 mozna wymusic dopasowanie minimalne przez '?':

: perl -e '"blah blah (nawias i 01238)" =~ /(.*?) ((\(|\d).*)/ && print "$1; $2\n"'

chodzi ladnie, dzieki