Merge pull request #406 from mknos/primes-valid

briandfoy · web-flow · commit 2eaeb953f099 · 2024-01-13T10:43:15.000-05:00
primes: error for numbers with trailing non-digits
diff --git a/bin/primes b/bin/primes
@@ -30,7 +30,7 @@ END {
 chomp(my $start = @ARGV ? $ARGV[0] : <STDIN>);
 my $end   = $ARGV[1] || 2**32 - 1;
 for ($start, $end) {
-  s/^\s*\+?(\d{1,10}).*/$1/ || die "$0: $_: illegal numeric format\n";
+  s/\A\s*\+?(\d{1,10})\Z/$1/ || die "$0: $_: illegal numeric format\n";
   $_ > 2**32 - 1 && die "$0: $_: Numerical result out of range\n";
 }
 die "$0: start value must be less than stop value\n" if ($end < $start);

Original file line number	Diff line number	Diff line change
`@@ -30,7 +30,7 @@ END {`
`30`	`30`	`chomp(my $start = @ARGV ? $ARGV[0] : <STDIN>);`
`31`	`31`	`my $end = $ARGV[1] \|\| 2**32 - 1;`
`32`	`32`	`for ($start, $end) {`
`33`		`- s/^\s\+?(\d{1,10})./$1/ \|\| die "$0: $_: illegal numeric format\n";`
	`33`	`+ s/\A\s*\+?(\d{1,10})\Z/$1/ \|\| die "$0: $_: illegal numeric format\n";`
`34`	`34`	`$_ > 2**32 - 1 && die "$0: $_: Numerical result out of range\n";`
`35`	`35`	`}`
`36`	`36`	`die "$0: start value must be less than stop value\n" if ($end < $start);`