However, substitute a variable in for bar:sub changeme{ local $^I = ".$bak"; @ARGV = "somefile"; while (<>) { s/foo/bar/i; print; } }
And nothing happens - it just hangs. Why?sub changeme{ $myvar = somesub(); local $^I = ".$bak"; @ARGV = "somefile"; while (<>) { s/foo/$myvar/i; print; } }
In reply to Edit in place (part2) by jzb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |