Problem s replace

[Ladislav Dobias]

> Jde me o to, jak predat do subrutinu parametry tak,
> aby se spravne provedl replace

Me to funguje treba takhle:

#!/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) = @_;
        $_ = $name;
        if (/$match/i) {
            eval "s/$match/$replace/ig";
            $dirname = $dir;
            printf("name:%s match:%s replace:%s\n", $name, $match, $replace);
        }
        return $_;
}

Zdravi
Lada Dobias

--

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
                                                      ,v
  ##       ##   #####   #####            Ladislav DOBIAS
  ##      ####  ##  ## ##O-O##         Xdobiasl na fel.cvut.cz
  ##     ##  ## ##  ## ## > ##   <http://cs.felk.cvut.cz/~xdobiasl/>
  ##     ###### ##  ## ## v ##   I study Czech Technical University,
  ###### ##  ## #####   #####      Faculty of Electrical Engeneering

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%