*grins at you* yes..yes...that's what it says...unless it's false advertising Michelle Rogers ----- Original Message ----- From: "MCMULLIN, NANCY" <[EMAIL PROTECTED]> To: "Michelle Rogers" <[EMAIL PROTECTED]>; "James Edward Gray II" <[EMAIL PROTECTED]>; "Naser Ali" <[EMAIL PROTECTED]> Cc: "Perl Beginners" <[EMAIL PROTECTED]> Sent: Monday, June 28, 2004 12:37 PM Subject: RE: string seperated by multiple spaces
After all, I thought the name of this group was Perl BEGINNERS... -----Original Message----- From: Michelle Rogers [mailto:[EMAIL PROTECTED] Sent: Monday, June 28, 2004 10:33 AM To: James Edward Gray II; Naser Ali Cc: Perl Beginners Subject: Re: string seperated by multiple spaces wow..somebody woke up on the wrong side of bed, this morning... shesh... Michelle Rogers ----- Original Message ----- From: "James Edward Gray II" <[EMAIL PROTECTED]> To: "Naser Ali" <[EMAIL PROTECTED]> Cc: "Perl Beginners" <[EMAIL PROTECTED]> Sent: Monday, June 28, 2004 12:28 PM Subject: Re: string seperated by multiple spaces > On Jun 28, 2004, at 11:15 AM, Naser Ali wrote: > > > Below is the actual code. This is just the preliminary code to test the > > logic, it is not final yet, therefore, I am not using "Warnings", > > "Strict" > > or for that matter anything else. > > It's easy to make excuses, harder to do the right thing. Help us help > you. I've seen enough of your posts, these lessons should be learned > by now. You START with warnings and strict, when they can help you > most. > > I bet you would be getting warnings right now, if only you would turn > them on. Then, if you followed them, you might just solve your own > problem. > > > Also I am slurrping the whole file, and I know I do not have to, but > > alternate ways, I ll decide later. > > Why? Why code it twice? Two different techniques. Just use the right > one, and stop hindering your own growth as a programmer. > > > ----------------------------------------------------------------------- > > -- > > open(TFILE, "file.txt"); > > ... or die "..."; # MUST test success > > > @first=<TFILE>; > > Not needed, and you know it. > > > close (TFILE); > > > > > > for ($i=0; $i <= $#first; $i++) { > > In Perl, we write that: > > for my $i (0..$#first) { > > Of course, you aren't even using indexes, so better is: > > foreach (@first) { > > > $Avg=$first[$i]; > > Why? > > > chomp($Avg); > > ($label,$TD,$YT,$M,$L,$Y,$W)= split (/\s+/,$Avg); > > ... split ' ', $Avg; > > If it's not working, $Avg doesn't contain what you think it does. Add > a print statement before to prove it. > > > print "$label,$TD,$YT,$M,$L,$Y,$W\n"; > > } > > James > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
