Two caveats:
If your first number in the file is 0, then it'll die. I'll leave that
as an exercise to you to fix. Also, my explanation is incorrect, it
should read "or if the current number is less than or equal to the
previous".
Thanks!
> -----Original Message-----
> From: Bakken, Luke
> Sent: Friday, June 13, 2003 1:52 PM
> To: James Parsons
> Cc: [EMAIL PROTECTED]
> Subject: RE: How to check if a set of numbers are in the
> correct Sequence.
>
>
> use strict;
>
> my $prev;
> while (<>)
> {
> chomp;
> die "not a number" unless /^\d+$/;
> die "out of order" if $_ <= $prev;
> $prev = $_;
> }
>
>
> Usage:
>
> $ perl numchecker inputfile
>
> Let me know if this works OK, it's untested. It should die on a
> non-integer input, or if the previous number is less than or equal to
> the current.
> Luke
>
> > -----Original Message-----
> > From: James Parsons [mailto:[EMAIL PROTECTED]
> > Sent: Friday, June 13, 2003 1:25 PM
> > To: [EMAIL PROTECTED]
> > Subject: How to check if a set of numbers are in the
> correct Sequence.
> >
> >
> > Hi all
> >
> > Since I'm new to perl, I'm not sure how to tackle this type
> > of problem
> >
> > a. I have file with the following in it
> > 100
> > 101
> > 102
> > 103
> >
> > b. How would check if these numbers are in correct sequence
> > c And they are not sequence kick out an error message.
> >
> >
> > Any help would be great
> >
> > James Parsons.
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
