Perl version of Mass copy overwrite

Hi everyone, hope you are all well :>)

Guys i have the following question.

I have a template file that I wish to use against a list of files.

Id like to be able to do the following in 2 different ways, using perl as the solution.

###########
SCENARIO 1:  <script>.pl <file_list.txt>
###########
Use a text file with a list of files, as a parameter and use the template file to copy and overwrite each file in this file list:
-------------------------------------------------------------------------------------------------------------------------------

For example:

I have a file called 'file_list.txt' which contains the following:

------------------------------------------------------------------------------------- file_list.txt
menu4_about_howsimeswikiworks_miscellaneous_focusHERE.php
menu4_about_howsimeswikiworks_structure_focusHERE.php
menu4_about_mesimon_miscellaneous_focusHERE.php
menu4_about_mylinuxserver_configuration_focusHERE.php
menu4_about_phpperformance_apc_focusHERE.php
menu4_about_thissite_backingup_focusHERE.php

What id like the script to do is as follows:

<script>.pl  file_list.txt

For each file mentioned in file_list.txt,  copy  /var/www/html/simeswiki/templates/menu123_or_4_x.php to each of these files, and dont prompt to overwrite, just do it for each one.

Something like:

<script>.pl   file_list.txt
For each file in file_list.txt
cp /var/www/html/simeswiki/menu123_or_4_x.php  <each_file_in_file_list.txt>


###########
SCENARIO 2:  <script>.pl  <search_criteria_generating_files_for_the_script_to_act_against>
###########

In this scenario, this is similar to doing a dir <criteria>

So,

<script>.pl /var/www/html/simeswiki/*focusHERE*

would

a) find a list of all files in /var/www/html/simeswiki of name *focusHERE*, and
b) for each one,

cp /var/www/html/simeswiki/menu123_or_4_x.php  <for_each_file_of_name_*focusHERE*_in_/var/www/html/simeswiki_>

Hope this makes sense.

Any help appreciated. :>)
Start Free Trial