I know how it's supposed to be done but when i tried it in a program i'm
working on 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 ;)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
