Dear Anonymous Monk

Sorry for not having replied earlier. I was working on something else. However, last week, I was asked to have a go at the script again.

What has changed is that the directories and files should now be accessed individually.

The idea was to have a text file containing the pathnames in a network folder.

My issue and the reason for reopening the question is how to add the different pathnames from the text-file, which are stored in the array to the subroutine

I am having some difficulties with the line containing 'directory', because none of the changes I made actually worked

I figure the pathnames have to go in there.

I've been getting the following error messages

c:\dev>perl search_and_replace.pl
Global symbol "$directory" requires explicit package name at search_an
+d_replace.pl line 33.
Execution of search_and_replace.pl aborted due to compilation errors.

[download]
c:\dev>perl search_and_replace.pl
Path::Tiny paths require defined, positive-length parts at search_and_
+replace.pl line 33

[download]
c:\dev>perl search_and_replace.pl
Variable "$path" is not imported at hornbach_mit_verz_suche.pl line 34
+.
        (Did you mean &path instead?)
Global symbol "$path" requires explicit package name at search_and_rep
+lace.pl line 34.

[download]
c:\dev>perl search_and_replace.pl
': Filename too long at search_and_replace.pl line 34.

[download]
I can explain some of the errors such as variable scope (I don't think I can just $path inside the sub), but the question remains how to get the pathnames into the sub, but I have not yet touched subroutines in detail yet.

I am sorry for all these questions, this script has evolved in a way I could not have aniticipated and the guys at work are eager for a solution.

Oh yes, before I forget, this is the latest version of the script

use 5.014;
use strict;
use warnings;
use File::Slurp qw(:all);
use Path::Tiny qw/ path /;
use POSIX();
use autodie qw/ close /;

my $infile_paths = 'C:\temp\test_folder\paths.txt';

my @paths = read_file $infile_paths, { binmode => ':utf8' } or die $!;
chomp(@paths); 

# say for @paths; 

foreach my $path (@paths){
    Main($path),
} 


Main( @ARGV );
exit( 0 );

sub Main {
    my $directory = "";
    my $date      = POSIX::strftime( '%Y-%m-%d', localtime );
    my $bak       = "$date.bak";
    my @xml_files = path( @paths )->children( qr/\.xml$/ );
    for my $file ( @xml_files ) {
        Replace( $file, "$file-$bak" );
    }
} ## end sub Main

sub Replace {
    my( $in, $bak ) = @_;
    
    path( $in )->move( $bak );
    
    my $infh  = path( $bak )->openr_raw;
    my $outfh = path( $in )->openrw_raw;
    
    while( <$infh> ) {
        s{&}{&amp;}g; ## will match more than what you want fix it
        s{&amp;amp;}{&amp;}g;
        s{\s>\s}{&gt;}g;
        s{\s<\s}{&lt;}g;
        print $outfh $_;
    }
    
    close $infh;
    close $outfh;
} ## end sub Replace

[download]

Thank you all so much for going through the trouble and explaining stuff to beginner. You guys rock, keep it going! I wish I had more time to play with the code and read up on certain aspects.

Thank you so much. Looking forward to your reply.

Please let me know if you need additional information, I still need to get used describing my problems in detail

Kind regards C.

In reply to Re^2: search and replace strings in different files in a directory (Path::Tiny) by PitifulProgrammer
in thread search and replace strings in different files in a directory by PitifulProgrammer

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.