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> 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> 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>
> 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/
> >>>>>>>
> >>>>>>>
> >>>>>>
> >>>>>
> >>>>
> >>>
> >>
> >
>
>
>
> --
> Andrew Solomon
>
> Mentor@Geekuni http://geekuni.com/
> http://www.linkedin.com/in/asolomon
>
