<A HREF="

010410zed2.pdf

 " target="_blank"><B><font size="-2" face="arial">view cutting



</b></A>
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

user@yourbox /home/httpd/html ] $ ls *.html *.asp | while read file;do
+ newfile="$file.fixed";sed s/\.html/\.asp/ $file > $newfile;done
[download]

This lil one liner will change EVERYTHING that is .html to .asp in every $file and create a new file called $file.fixed. theoretically, this means you will have not lost the originals and you can check the originals against the new files. This transformation might be undesirable but since I don't know the specifics it is the best I can do at this point with a shell one liner.

Now for Perl. (I am fully up to any assistance as I am still learning Perl)

#!/usr/local/bin/perl -w
use strict;
use cwd;

# open our current directory
opendir(DD,".") or die("Cannot open ". getcwd ."\n");

# read our files getting only files named *.html 
# and *.asp
my @FILES = grep(/(\.html|\.asp),readdir(FD)) or die ("Could not get d
+irectory listing: $!\n");

# close our directory descriptor
close(DD);

# walk our array that has the file names in it we should go through.
while ( @FILES ) {
    my $file = $_ ;
    my $newfile = "$file.fixed";

# open two descriptors
# FD for our original files
    open(FD,$file) or die("Cannot open $file\n";

# NEW for our newly created (hopefully fixed) files.
    open(NEW,">>$newfile") or die ("Cannot open $newfile for writing\n
+");

# walk each file
    while ( <FD> ) {
        chomp;

# replace anything in a line with <a href in it
# that has .html to .asp
        if ( grep(/<a href/) ) {
            my $newline =~ s/\.html/\.asp/;

# append that to the new file.
            print NEW "$newline\n";
        } else {
# otherwise just append the old line into
# the file.
            print NEW "$_\n";
        }
    }
# Close the descriptor for these files before
# the next loop iteration
    close(NEW);
    close(FD);
}
[download]

----------
- Jim

Snafu, thanks a lot for your help, I think you are right on track. The only problem is that when I run the code I get an error saying that there are not enough arguments for grep on the line where grep is used. I have very limited knowledge of Perl and would appreciate any suggestions you have to fix this. All of your assumptions you made were correct. Thanks

Here is the fixed copy with some print()'s in it. I tested this copy so it should work. There were a few problems with the code. The grep was missing a terminating parenthesis. It (the script) was also missing a few other things. Hope this helps.

#!/usr/local/bin/perl -w
# written By Jim Conner 4-27-2001
use strict;
use vars qw(@FILES);
use Cwd;
$| = 1;

my $changed = "0";
my $fcount = "0";
my $lcount = "0";

# open our current directory
opendir(DD,".") or die("Cannot open ". getcwd ."\n");

# read our files getting only files named *.html 
# and *.asp
@FILES = grep(/(\.html|\.asp)/,readdir(DD)) or die ("Could not get dir
+ectory listing: $!\n");

if ( $#FILES == 0 ) {
    print "Sorry, there were no files in ". cwd ." that matched *.html
+ or *.asp\n";
    exit(1);
} else {
    print "There are $#FILES files in ". cwd ." that match *.html or *
+.asp\n";
    for ( @FILES ) {
        print "$_\n";;
    }

    print "Processing continuing...\n\n";
}

# close our directory descriptor
close(DD);

# walk our array that has the file names in it we should go through.
for ( @FILES ) {
    my $file = $_ ;
    print "Processing file: $file\n";
    my $newfile = "$file-fixed";
    print "Output file will be: $newfile\n";

# open two descriptors
# FD for our original files
    open(FD,$file) or die("Cannot open $file: $!\n");

# NEW for our newly created (hopefully fixed) files.
    open(NEW,">>$newfile") or die ("Cannot open $newfile for writing: 
+$!\n");

# walk each file
    while ( <FD> ) {
    my $line = $_ ;
        chomp $line;

# replace anything in a line with <a href in it
# that has .html to .asp
        if ( grep(/a href.*\.html/,$line) ) {

        #print "Found a match -> ";
        #print "$line";
        #print " <-...converting\n";

            ( my $newline = $line ) =~ s/\.html/\.asp/g;

        #print "Substitution written was: [[ ";
        #print "$newline";
        #print " ]]\n";

            $changed = "1";
        $lcount++;

# append that to the new file.
            print NEW "$newline\n";
        } else {
# otherwise just append the old line into
# the file.
            print NEW "$_\n";
        }
    }
# Close the descriptor for these files before
# the next loop iteration
    close(NEW);
    close(FD);

    print "Finished with $file...\n\n";

    if ( $changed == "1" ) {
    $fcount++;
    $changed = "0";
    }
}

print "There were $#FILES total files\n";
print "There were $fcount files affected\n";
print "There were $lcount lines changed\n";
print "Have a nice day :) \n\n";
[download]

Bear in mind that this only matches "a href" in lower case. If you have some address hypertext references in caps, this won't catch them without some tweaking.

----------
- Jim

THRAK, just to avoid the risk of changing the documents content as well then better make sure in your substitution that you dont match > inbetween HREF and .(s|p)?htm(l)? and ignore the case. :-)

Have a nice day
All decision is left to your taste