n a group of html files in a single directory I went to change all instances of 2003 to 2004 in each file.
There are many ways of skinning that cat and the only one
who won't be happy will be the cat.
One way:
#!/usr/bin/perl -w
#############################################
# useage: update.pl PATH
# where PATH is the full path of the directory
# we want to fix the files in.
use strict;
use Tie::File;
exit(0) unless $ARGV[0];
chdir $ARGV[0]
or die "Cound not chdir to " . $ARGV[0];
#
# Create your own messages for above.
my @files=glob("*.html");
foreach my $file(@files){
my @ry=();
tie @ry,"Tie::File",$file
or die "Could not open $file";
$_=~s/2003/2004/g foreach @ry;
utie @ry;
}
Just one of many, many, ways of doing this.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.