Thanks a lot Jonathan, i will set the env properly then i will try.
-Frank On Fri, Jan 29, 2016 at 3:36 PM, Jonathan Harris <jtnhar...@googlemail.com> wrote: > Hi Frank, > Please would you remember to Reply All to the list as well? > > It just seems that the path is not included in @INC > You can check on the command line: > > perl -e "print qq(@INC)" > > I can't tell how you installed Perl and cpan but that's the result! > > Anyways, it's easily fixed. > > At the start of the script, use: > > use lib 'C:\Perl64\cpan\build'; > use File::Slurp qw( :edit ); > > However, this would have to be added to every script. > If the path is an issue for all scripts, then it would be better to make > the change permanent. > There are good instructions here to adding the Environment Variable: > > > http://perlmaven.com/how-to-change-inc-to-find-perl-modules-in-non-standard-locations > > Good luck! > Jon > > > On Fri, Jan 29, 2016 at 4:08 AM, Frank Vino <vinofra...@gmail.com> wrote: > >> Hi Jonathan, >> >> I am using Windows OS i tried but i got some error message i am attaching >> the message here >> >> *Output:* >> >> C:\Users\Franklin_Lawerence\Desktop\perl>arrarsize.pl >> Can't locate File/Slurp.pm in @INC (@INC contains: C:/Perl64/site/lib >> C:/Perl64/lib .) at C:\Users\Franklin_Lawerence\Desktop\perl\arrarsize.pl >> line 5. >> BEGIN failed--compilation aborted at >> C:\Users\Franklin_Lawerence\Desktop\perl\arrarsize.pl line 5. >> >> C:\Users\Franklin_Lawerence\Desktop\perl> >> >> >> *File-Slurp installed in below Program files folder:* >> >> C:\Perl64\cpan\build\File-Slurp-9999.19-_tH9hN >> >> On Thu, Jan 28, 2016 at 11:27 PM, Jonathan Harris via beginners < >> beginners@perl.org> wrote: >> >>> Hi, >>> I found that this works, assuming that the module is installed. >>> >>> #!/usr/bin/perl >>> use warnings; >>> use strict; >>> use File::Slurp qw ( :edit ); >>> # >>> my $file_to_edit = 'path-to-file.txt'; >>> # >>> my $word_to_edit = "Debug"; >>> my $new_word = "Error"; >>> # >>> edit_file { s/$word_to_edit/$new_word/g } ( $file_to_edit ); >>> # >>> >>> This will work if you have the word Debug, Debug_ etc etc >>> You can just use s/Debug/Error/g but I like the variables as it allows >>> flexibility if the script was to expand to further uses >>> >>> Hope that helps, >>> Jon >>> >>> >>> On Thu, Jan 28, 2016 at 3:41 PM, Jim Gibson <j...@gibson.org> wrote: >>> >>>> >>>> > On Jan 28, 2016, at 1:37 AM, Frank Larry <frankylarry2...@gmail.com> >>>> wrote: >>>> > >>>> > Hi Team, >>>> > >>>> > could you please let me? i have a file which contains "Debug", i >>>> would like to replace debug to "Error", when i ran the below program the >>>> out showing Error message but how to save the output with new changes. >>>> Could you please tell me how to fix it? >>>> >>>> The way to do this within a larger Perl program is to open a new output >>>> file, copy all of the possibly-modified lines to this file. Then you can >>>> rename the new file to the same name as the old file, and perhaps rename >>>> the old file as well and keep it around as a backup. >>>> >>>> > >>>> > open(FILE, "<filter.txt") or die "Can’t open $!\n”; >>>> >>>> The three-argument version of open is preferred here, and let’s put the >>>> file name in a variable and use a lexical variable for the file handle >>>> (untested): >>>> >>>> my $filename = ‘filter.txt’; >>>> open( my $in, ‘<‘, $filename ) or die(“Can’t open $filename for >>>> reading: $!”); >>>> >>>> # create a new file >>>> my $newfile = $filename . ‘.new’; >>>> open( my $out, ‘>’, $newfile ) or die(“Can’t create $newfile: $!”); >>>> >>>> > >>>> > while($line = <FILE>){ >>>> >>>> while( $line = <$in> ) { >>>> >>>> > >>>> > print "Before substituting: ", $line ,"\n"; >>>> > $line =~ s/Debug/Error/g; >>>> > print "After substituting : ", $line , "\n”; >>>> >>>> print $out $line; >>>> > >>>> > } >>>> > >>>> > close(FILE); >>>> >>>> close($in); >>>> close($out) or die(“Error writing to output file $newfile: $!”); >>>> >>>> # rename the old file >>>> my $savefile = $filename . ‘.sav’; >>>> rename $filename, $savefile; >>>> >>>> # rename the new file >>>> rename $newfile, $filename; >>>> >>>> Jim Gibson >>>> j...@gibson.org >>>> >>>> >>>> >>>> >>>> -- >>>> To unsubscribe, e-mail: beginners-unsubscr...@perl.org >>>> For additional commands, e-mail: beginners-h...@perl.org >>>> http://learn.perl.org/ >>>> >>>> >>>> >>> >> >
