find (\&transfer, $path);
sub transfer {
my ($newpath, $oldstring, $newstring) = @_;
otherstuff ($oldstring, $newstring);
# etc...
}
now- how do i pass parameters to transfer() when it's called
with find??
i want the recursive fileprocessing to change file contents an
West, William M wrote:
> find (\&transfer, $path);
>
> sub transfer {
> my ($newpath, $oldstring, $newstring) = @_;
> otherstuff ($oldstring, $newstring);
>
> # etc...
>
>
> }
>
>
> now- how do i pass parameters to transfer() when it's called with
> find??
>
> i want the rec