Re: Help with regex

Adding some test data:

use List::Util 'shuffle';

my @fileData = shuffle map { "$_\n" } 1 .. 20, (1) x 5;

my $linenumber=1;
foreach my $line(@fileData) {
   $linenumber=$linenumber+1;
   if ($line =~ m/^1$/) {
       print "$linenumber\n";
   }
}
[download]

Output:

6
7
8
16
17
25
[download]

Are you sure you're reading your data correctly?

Comment on Re: Help with regex Select or Download Code

Replies are listed 'Best First'.
Re^2: Help with regex by ChuckularOne (Prior) on Sep 28, 2007 at 16:40 UTC
My data must be something other than what I think it is. I'll revisit it. Thanks.	[reply]
Re^3: Help with regex by gam3 (Curate) on Sep 28, 2007 at 17:28 UTC
You might try `m/^1\s*$/` for your regular expression. -- gam3 A picture is worth a thousand words, but takes 200K.	[reply]
Re^3: Help with regex by Not_a_Number (Prior) on Sep 28, 2007 at 16:52 UTC
How are you populating your `@fileData` array? Is there any reason not to iterate over the filehandle directly? `use strict; use warnings; my $infile = 'whatever'; open my $fh, '<', $infile or die "Couldn't open '$infile' for read: $! +\n"; while ( my $line = <$fh> ) { print "$.\n" if $line =~ m/^1$/; }` [download]	[reply] [d/l] [select]