... <allan_dystrup@y...> wrote: This code - SHOULD HAVE BEEN - : ______________ while (<DFH>) { # do stuff... # indicate progress (BIG file = 1_253_684...
right.. i knew that (about the comma) .. not sure why i put it there!LOL Lou ... From: Charles K. Clarkson To: perl-beginner@yahoogroups.com Sent: Tuesday,...
The piece of code I posted is to see if the ruin is "owned" or not. then it will asign the new owner to the ruin and take the coins from him. I have a var...
... #!/usr/bin/perl -w use strict; open F, '< lotsolines' or die "couldn't read: $!\n"; while (<F>) { (($. % 100_000) == 0) and warn "at line $.\n"; } close F;...
... running ... or ... Here's the full Monthy for the block in question: ___________________________________________________________________ while (<DFH>) { #...
... That 'next' line looks suspicious to me... how about: print("skipping $.\n"), next if (! m/^\d{2}-\d-\d{4}/ ); to see how many lines it skips? Or even: ...
... lines ... [$C] ... ================================================================== Yup, you're quite right here Dave... that next line was the villain. ...
... So it is incomplete? That explains a lot. I had assumed you were sending working code from the game. ... Is this a new feature of the game? If it is, is...
all 8000 lines? this is just the part i am working on now... what I need to do is figure out how to read and write hashes. Lou ... From: Charles K. Clarkson ...
Lets say we want to see if the word 'input' is in the string $input: my $input = 'This is the INPUT string'; print("Yes!!!\n") if $input =~ /input/i; You are...
... The matching operations can have various modifiers some of which affect the interpretation of the regular expression inside: i Do case-insensitive pattern...
J.E. Cripps
cycmn@...
Sep 2, 2004 6:42 pm
19536
... If you want to see if it *is* a certain word, case-insensitive, do: if (lc($word) eq "jeff") { ... } or if (uc($word) eq "JEFF") { ... } If you want to see...
Greetings Perl gurus, How do I correctly get to the array that is attached to my hash? I'm reading a list of keywords from a file. I'm going to search another...
To the group: I have just started to use perl/Tk and loving it. I want to launch the script and have the shell/cmd window results (std out) display in a widget...
... Arrays are not "attached" to hashes. I know this seems nitpicky, but your conceptualization of a hash of arrays is important. A hash of arrays is a hash...
I really hate to ask such a totally off-topic question, but I'm Googled to death, and I can't find the answer I'm looking for. So I thought a direct query of a...
Paul Archer
tigger@...
Sep 3, 2004 4:14 am
19541
... From: Paul Archer <perl-beginner@yahoogroups.com> Date: Thursday, September 02, 2004 at 09:14PM PDT PA> I really hate to ask such a totally off-topic...
... certain word ... Since no one else has posted Benchmark results... ========= CODE: #!/usr/bin/perl -w use Benchmark qw( cmpthese ); my $string = "This long...
<snip> ... Sorry. I was being descriptive (guess I should have used foo and bar). It would have been foreach my $notPattern ( $hash{$searchPattern} ) {} The...
... You're misunderstanding Jeff's solution. He normalizes the input by converting "Jeff" or "jEFF" to all upper- or lower-case before comparing it to "jeff"...
... You can. ... This sets $test[0] to the reference to the array at $hash{$searchPattern}. my @test = @{ $hash{$searchPattern} }; This sets @test to the array...
I have a bunch of files in the 23-30GB range that I need to fit as efficiently as possible onto 250GB hard drives. I have enough files (several terabytes...
Paul Archer
tigger@...
Sep 5, 2004 1:35 am
19548
... This is an NP-complete problem known as "the knapsack problem", or "bin packing". It's no easy task. -- Jeff "japhy" Pinyan % How can we ever be...
... Well, I feel better that I couldn't come up with anything, at least! But it is an easy task (in a Perl sort of way): someone has written ...
Paul Archer
tigger@...
Sep 5, 2004 6:02 pm
19550
Hi, I have to write perl scripts that automate the build process. We support multiple platforms - MSDEV, WinCE, ARM, etc and want to write a Perl script that...