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/ >>>>> >>>>> >>>>> >>>> >>> >> >
