|Perl Monk, Perl Meditation|
RE question; how to insert a digit between const[a-z]*3 && inc[0-9]*3?by taint (Chaplain)
|on Apr 16, 2013 at 00:47 UTC||Need Help??|
taint has asked for the
wisdom of the Perl Monks concerning the following question:
Greetings, I've been maintaining some 9k html records for a few years now. The names of the files begin with the same 3 alpha characters, followed by 4, or less digits (0-9). I've been maintaining them via quick one-off sed scripts. But recently I decided I needed to re-numerate them, as it would be ultimately be more efficient. I also decided (given I /really/ love perl) that it would make more sense to maintain a set of Perl scripts to better maintain these documents, then it hit me -- I have no idea how to take on the task of re-numerating the references within these documents.
changing all references to: abc[0-9][0-9][0-9].html into abc0[0-9][0-9][0-9].htmlthe same goes for abc[0-9][0-9].html
in short; I need all of the files to be 4 digits long -- not 1,2, & 3, as they are now.
I'm fair with search & replace, add, and delete. But I /suck/ at hold patterns -- which I think I need here. I tried to match against:
/abc1[0-9][0-9].htmlwith the intent of matching within the 100-199.html documents. But all my efforts were an epic fail.
Pointers, solutions would be greatly appreciated.
Thank you for all your time, and consideration.
#!/usr/bin/perl -Tw use perl::always; my $perl_version = "5.12.4"; print $perl_version;