Problem s replace

[Zdenek Kabelac]

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

dekuji


--------------------------
#!/usr/bin/perl 
# ahoj-tondo
#
# chci vysledek tondo-ahoj

$new = search("(ahoj)-(tondo)", "\$2\$1", "_",  "ahoj-tondo");
print "New: ", $new, "  ", $old, "\n" ;

sub search {
	local($match, $replace, $dir, $name) = @_;
	if ($name =~ /$match/i) {
	    $name =~ s/$match/$replace/ig;
	    $dirname = $dir;
	    printf("name:%s match:%s replace:%s\n", $name, $match, $replace);
	}
	return $name;
}
----------
-- 
         binary drivers cause sclerosis of the kernel (mark hahn)
  Zdenek Kabelac  http://i.am/kabi/ kabi na i.am {debian.org; fi.muni.cz}