Problem s replace

[Pavel Reznicek]

nevim, jestli jsem dobre pochopil, co presne potrebujes, ale mozna by slo
zkusit :

sub swapni
{
 ($prvi,$druhy)=split(/-/, na _[1]);
 return("$druhy-$prvni");
}

pak  swapn("ahoj-tondo")
by melo vratit (netestoval jsem) "tondo-ahoj" 


						./S

> Ahojky
> 
> Poradi me zde nekdo s tim, jak tento
> vcelku jednoduchy script napsat spravne tak, aby fungoval
> (chci to mit jako subrutinu - samozrejme
> pokud napisu vse v jednom radku tak to funguje)
> 
> Jde me o to, jak predat do subrutinu parametry tak,
> aby se spravne provedl replace