Re: printing to a file if line is not there

FamiLink Admin wrote: > John, > > Thanks for your help! Chomp and replacing $_ with $site did it! > > Below is the log if you think I can do it without so many splits that > would be great! > > 2007.1.12 8:06:43 - 70.22.222.29 http://www.12gpatt.com/Nightlife.html > *DENIED* Weighted phrase lim

Re: printing to a file if line is not there

+liveshow) GET 143438 Ryan - Original Message - From: "John W. Krahn" <[EMAIL PROTECTED]> To: "Perl Beginners" Sent: Thursday, January 11, 2007 3:55 PM Subject: Re: printing to a file if line is not there FamiLink Admin wrote: Hello all. Hello, I am tryi

Re: printing to a file if line is not there

FamiLink Admin wrote: > Hello all. Hello, > I am trying to read a log file then look for a website and score. If > that website has a score >100, take it and add it to a "Check me" list. It would be easier to help if we could see examples of valid and invalid log file entries. > 1. I don't wan

Re: Printing to a file

my $hero = 'John Krahn'; $hero =~ s/John Krahn/Jenda Krynicky/; >:-) I can't believe I wrote what I thought was a thoughtful post that would hopefully make perl.beginners a better place to frequent (good luck!) and all I get is: Dude, Randal is spelled with one L not two. Pay attention. I'm John

Re: Printing to a file

Zeus Odin wrote: Charles Clarkson, Randall Schwartz, and John Krahn (I'm only naming three. You probably meant Randal Schwartz (one "l".) :-) John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Printing to a file

I could see this thread coming 2 months ago. Does anyone have any pent-up frustrations? :-) I think this list is the BEST list I have ever read ... not that I have read many lists. However, any list can be improved. The improvements I would suggest have to do with editorializing and patience: Fir

RE: Printing to a file

Ed Christian wrote: >> #!/usr/bin/perl >> >> + >> use warnings; >> use strict; >> use File::Find; >> >> find sub { >> return unless -f; >> return unless $_ =~ /.\d+$/; >> print "$_\n"; >> #print "$File::Find::name\n"; >> >> + >> open(SD, "$_") or die "can't open $_ $!\n";

Re: Printing to a file

: Perl Lists <[EMAIL PROTECTED]> cc: Subject: Re: Printing to a file [EMAIL PROTECTED] wrote: > I agree, Gunnar is mean. Mean people suck! Ok, everyone calm down :) Perhaps some folks can be a bit blunt and maybe its even wrong *but* the content was good if

RE: Printing to a file

> #!/usr/bin/perl > > + > use warnings; > use strict; > use File::Find; > > find sub { > return unless -f; > return unless $_ =~ /.\d+$/; > print "$_\n"; > #print "$File::Find::name\n"; > > + > open(SD, "$_") or die "can't open $_ $!\n"; > #my $fh = IO::File->new(

Re: Printing to a file

print "Gunnar does not suffer fools gladly.\nSo?"; print "Try not to look like a fool!"; - Original Message - From: "JupiterHost.Net" <[EMAIL PROTECTED]> To: "Perl Lists" <[EMAIL PROTECTED]> Sent: Tuesday, October 26, 2004 4:01

Re: Printing to a file

[EMAIL PROTECTED] wrote: I agree, Gunnar is mean. Mean people suck! Ok, everyone calm down :) Perhaps some folks can be a bit blunt and maybe its even wrong *but* the content was good if not the delivery :) As a support person myself it is extremely annoying when soemone comes up and says "My

Re: Printing to a file

I agree, Gunnar is mean. Mean people suck! derek Chap Harrison <[EMAIL PROTECTED]> 10/26/2004 01:37 PM To: Gunnar Hjalmarsson <[EMAIL PROTECTED]> cc: Perl Lists <[EMAIL PROTECTED]> Subject: Re: Printing to a file > Wait a m

RE: Printing to a file

Oops, my bad. This looked like a problem I had. I stored a filehandle in a hash, and it confused print when I accessed the filehandle as a scalar. I'd better think before I post again... *blush* --- Bob Showalter <[EMAIL PROTECTED]> wrote: > Brian Gunlogson wrote: > > Put the MY in braces. > >

Re: Printing to a file

Chap Harrison wrote: Ah-freakin'-men. Gunnar, what the *hell*? I've been reading this list for a couple of months now and the majority of your posts seem to be little more than chiding people in an extremely unpleasant tone. If you find a *particular* post "extremely unpleasantly" worded, pleas

Re: Printing to a file

> On Tue, 26 Oct 2004 10:57:39 -0500, JupiterHost.Net > <[EMAIL PROTECTED]> wrote: >> >> >> Kevin Old wrote: >> >> > Hello everyone, >> > >> > First, this is a basic problem, but I have looked at it for over >> an >> > hour and wasted time. Now, I'm asking for help. >> > >> > For some reason nothi

Re: Printing to a file

Wait a minute there. I'm not learning programming. I've been a perl programmer for 7 years and have written hundreds of more complex programs than this and have written to thousands of files in my time. I just needed another pair of eyes to possibly point out what I was doing wrong. Also, posting

Re: Printing to a file

On Tue, 26 Oct 2004 19:17:11 +0200, Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote: > Kevin Old wrote: > > First, this is a basic problem, but I have looked at it for over an > > hour and wasted time. Now, I'm asking for help. > > Just an hour, and you think it's already justified to "waste" hundre

RE: Printing to a file

Brian Gunlogson wrote: > Put the MY in braces. > > SO > print MY $line; > > WOULD BECOME > print {MY} $line; Why? That fails under use strict, and is totally unecessary. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Printing to a file

On Tue, 26 Oct 2004 10:57:39 -0500, JupiterHost.Net <[EMAIL PROTECTED]> wrote: > > > Kevin Old wrote: > > > Hello everyone, > > > > First, this is a basic problem, but I have looked at it for over an > > hour and wasted time. Now, I'm asking for help. > > > > For some reason nothing is being pr

Re: Printing to a file

Kevin Old wrote: First, this is a basic problem, but I have looked at it for over an hour and wasted time. Now, I'm asking for help. Just an hour, and you think it's already justified to "waste" hundreds of other person's time? I disagree. You need to be a lot more patient if you want to learn

Re: Printing to a file

Put the MY in braces. SO print MY $line; WOULD BECOME print {MY} $line; --- Kevin Old <[EMAIL PROTECTED]> wrote: > Hello everyone, > > First, this is a basic problem, but I have looked at it for over an > hour and wasted time. Now, I'm asking for help. > > For some reason nothing is being pr

Re: Printing to a file

Kevin Old wrote: Hello everyone, First, this is a basic problem, but I have looked at it for over an hour and wasted time. Now, I'm asking for help. For some reason nothing is being printed to the MY filehandle. Can someone see what I'm doing wrong? Is if ( $_ =~ /40187378|40187233|40187230|4018