Re: Re: How to compare arrays? (xmms alarm clock)

[ginseng]

my mistake. i tried to implement your idea, and did it wrong. i thought it should have worked and didn't try hard enough. upon further effort it worked exactly as advertised. it even looks clean and understandable. i just wish it were more intuitive to begin with...

revised...

  do {
    my @timenow = localtime(time);
    @current = ($timenow[2], $timenow[1]);
    sleep 5;
  } until ("@wake" eq "@current");

so can i be greedy and ask for more ways to compare the two?

[jeroenes]

See How to test equality of hashes? for more ways.

You can leave out the @timenow:

  @current = (localtime time)[1..2];

...just gives you the slice.

Hope this helps,

Jeroen

Update: You're welcome. That prob is easily solved with reverse:

  @current = reverse (localtime time)[1..2];

[ginseng]

This leaves @current with a different array order than @wake has. split /:/ leaves $wake[0] with the hour, and $wake[1] with the minute. localtime[1..2] would return the minute then the hour. to do the comparison, i'd have to invert one array.

thank you for the hashes link. i'm glad i didn't find it before posting this question. it makes this question look way too easy. as you can see, i've got one solution that works, "@array1" eq "@array2", but it still seems like there'd be a simpler (rather, more intuitive) way. But perhaps my intuition is just not on yet, with Perl.

[davorg]

In your case, as someone else has pointed out, there's really no need to compare the arrays as comparing the original time strings will work just as well. In a more general case, you might be interested in the Array::Compare module.

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>

[andye]

How about something like...

until ((grep {$wake[$_] == $current[$_]} (0..$#wake)) == @wake));

(NB can't check this right now though)

andy.