Isn't this a beginners' list? Regards, Danny Spell
*DDSpell Consulting214-682-4898* On Mon, Feb 1, 2016 at 7:34 AM, Thomas J Hughes <thugh...@gmail.com> wrote: > Go read a fuckin book and stop spamming people's email or I will hack > yours !!!!! If you want to learn a language you need to first learn the > basis stupid and build from their people are not going to tell you have > shotcut something learn to read asshole > > > > > > WARNING TO ALL VETERANS: > > https://www.oathkeepers.org/us-senate-passes-bill-approving-mandatory-vaccinations-for-veterans/ > > > > > On Fri, Jan 29, 2016 at 9:24 PM, Frank Vino <vinofra...@gmail.com> wrote: > >> 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/ >>>>>> >>>>>> >>>>>> >>>>> >>>> >>> >> >
