Problem s replace
Zdenek Kabelac
kabi na fi.muni.cz
Čtvrtek Únor 3 19:07:54 MET 2000
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}
Další informace o konferenci Perl