RE

Ludek Finstrle luf na gvid.cz
Pátek Prosinec 6 01:52:02 MET 2002


> coz delalo prvni cas, tedy dopsalo mezeru mezi cislo a pismeno. Kdyz
> jsem ale pouzil
> 
>     s/([[:digit:]]+)([[:alpha:]]+)|([[:alpha:]]+)([[:digit:]]+)/$1 $2/g
> 
> obdrzel jsem hlasku:
> 
>     Use of uninitialized value in concatenation (.) or string

Problem bych vydel, ze kdyz se matchne podle toho za |, tak
$1 a $2 neni naplneno (undef) a je naplneno jen $3 a $4.
 
> Jak na to? Potrebnju to v jednom s///, protoze to vyhodnocuji ve
> pravdivostnim kontextu...

A co zkusit:
  (s/([[:digit:]]+)([[:alpha:]]+)/$1 $2/g ||
  s/([[:alpha:]]+)([[:digit:]]+)/$1 $2/g);

??

Luf


Další informace o konferenci Perl