[webmin-devel] RE: Replace text in a file

[Larry G. <Li...@IS...>]

Well, I figured it out.  Should have taken a nap earlier.  I just needed to
use qw() for the email address.  I also noticed that qw() is only need in
the shell environment but not in Webmin.  So I only had problems running
something like sed from a system() call.

####################
#!/usr/bin/perl

use Tie::File;

tie @lines, "Tie::File", "/home/dude/tmp/test";
$email = qw(du...@we...);

splice(@lines, 2, 1, "TEST=$email");
untie @lines;
####################


Thanks to anyone who spent time with this!

--Larry