Hi Frank, Really don't leave! Cyber-bullying is pathetic and the reserve of the ignorant. Just like an annoying itch, it's there and must be ignored. This community is informative and brimming with good people who are kind and willing to help. I have personally and gratefully benefitted from their vast collective knowledge. The list moderator is proactive and has the best interests of this community at heart. You would be well advised to remain and continue learning this fabulous language, hopefully with the view to gaining sufficient knowledge so as to help others in the near future. Bests, Jonathan
On Tuesday, February 2, 2016, Frank Vino <vinofra...@gmail.com> wrote: > Hi Andrew, > > I felt bad the way he used the language and i am leaving from this > community...Thanks for all your help! > > -Frank > > > On Mon, Feb 1, 2016 at 8:42 PM, Andrew Solomon <and...@geekuni.com > <javascript:_e(%7B%7D,'cvml','and...@geekuni.com');>> wrote: > >> Hi Everyone >> >> As you can see from the description of this list >> http://learn.perl.org/faq/beginners.html Thomas J Hughes' response is >> inappropriate and I've raised this issue with the moderator. >> >> Please carry on with the polite and helpful discussions for which this >> list has a reputation to uphold. >> >> Andrew >> >> >> On Mon, Feb 1, 2016 at 2:33 PM, Danny Spell <ddsp...@gmail.com >> <javascript:_e(%7B%7D,'cvml','ddsp...@gmail.com');>> wrote: >> > Isn't this a beginners' list? >> > >> > Regards, >> > Danny Spell >> > DDSpell Consulting >> > 214-682-4898 >> > >> > On Mon, Feb 1, 2016 at 7:34 AM, Thomas J Hughes <thugh...@gmail.com >> <javascript:_e(%7B%7D,'cvml','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 >> <javascript:_e(%7B%7D,'cvml','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 >> <javascript:_e(%7B%7D,'cvml','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 >> <javascript:_e(%7B%7D,'cvml','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 >> <javascript:_e(%7B%7D,'cvml','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 >> <javascript:_e(%7B%7D,'cvml','j...@gibson.org');>> wrote: >> >>>>>>> >> >>>>>>> >> >>>>>>> > On Jan 28, 2016, at 1:37 AM, Frank Larry >> >>>>>>> > <frankylarry2...@gmail.com >> <javascript:_e(%7B%7D,'cvml','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 >> <javascript:_e(%7B%7D,'cvml','beginners-unsubscr...@perl.org');> >> >>>>>>> For additional commands, e-mail: beginners-h...@perl.org >> <javascript:_e(%7B%7D,'cvml','beginners-h...@perl.org');> >> >>>>>>> http://learn.perl.org/ >> >>>>>>> >> >>>>>>> >> >>>>>> >> >>>>> >> >>>> >> >>> >> >> >> > >> >> >> >> -- >> Andrew Solomon >> >> Mentor@Geekuni http://geekuni.com/ >> http://www.linkedin.com/in/asolomon >> > >
