On Saturday 10 November 2007 06:39, Dr.Ruud wrote:
> "Jonathan Lang" schreef:
> > while (<DATA>) {
> > ($a[0], $a[1], $a[2], $a[3], $a[4], $b) = /(\d+), (\d+), (\d+),
> > (\d+), (\d+), Powerball: (\d+)/;
> > push @common, @a; push @powerball, $b;
> > }
>
> A slightly different way to do that, is:
>
> while (<DATA>) {
> if (my @numbers =
> /(\d+), (\d+), (\d+), (\d+), (\d+), Powerball: (\d+)/) {
Another way to do that:
/Powerball:/ and my @numbers = /\d+/g;
> push @common, @numbers[0..4];
> push @powerball, $numbers[5];
> }
> else {
> ...
> }
> }
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
