Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: How to process multiple input files?

by John M. Dlugosz (Monsignor)
on May 23, 2011 at 00:42 UTC ( #906220=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $replacement= '\t<?php include(\$_SERVER['DOCUMENT_ROOT'].\"\/inclu
    +des\/footer.php\"); ?>\n\n';
    
    s{ </div> .*? \K (?=</div>) }
     { $replacement }
     x;
    
  2. or download this
    #!/usr/bin/perl
    use strict;
    ...
       $filecontents =~ s { </div> .*? \K (?=</div>) } { $replacement } x;
       print $filecontents;
       }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://906220]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2014-10-24 07:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (130 votes), past polls