Dotaz: Perl - regex

[Stepan]

Potřeboval bych rozparsovat řetězec tohoto formátu:

use locale;

$lines = "AaAaA:CcCcC => SsSsS:RrRrR";
 
na AaAaA, CcCcC...

$lines =~ /(\w*):(\w*)[ >=]*(\w*):(\w*)/i
print  " $1 X $2 X $3 X $4\n";

sice funguje dobře, ale jen do té doby než se ve vstupním řetězci objeví mezera, nebo diakritika. Tj

$lines = "Aa AaA:CcCcC => SsSsS:RrRrR";
$lines = "AaAaA:CčCcC => SsSsS:RrRrR";

se rozparsuje špatně:( Netušíte jak na to?

---

---

Odpovědi

[NN]

$lines =~ /(.*):(.*)\ =>\ (.*):(.*)/i;

NN

[Stepan]

pěkný! ani mě nenapadlo použít tečku.

ale je Z;)