I know how it's supposed to be done but when i tried it in a program i'm
writing at the moment it isn't working quite how i expected.
The program is, in it's simplest form (which still doesn't work):
------------------------------------------------------
#!perl
for $file (<s2/*>)
{
push @ARGV, $file;
}
$^I = "~";
for (<>)
{
s/(<td .*?>)/<td>/g;
print;
}
------------------------------------------------------
The problem is that the print statement sends everything to the command
console output, not the file i'm try to edit in-place. The original file
name ends up being completely blank after running the script, but at least
the backup is created.
I'm using perl 5.8, and WindowsXP.
Also, yes, that is a search for html tags but it's to do some massive batch
conversion on a website i made a few years back so i know what i'm working
with and that it will work all work correctly.
The script isn't really the full story... It's just what i'm doing in the
most basic form, that still doesn't work ;)
So, can anyone work out what's wrong? Have i done something wrong in my
script?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
