Re^2: how to loop

[rsiedl]

thanks. i guess this'll work:

while (1) {

  # Get a random background from the array
  my $new = $backs[int(rand(@backs))];

  # Set the background to something new
  system($command . ' --type=string -s '. $gconf_item . ' \'' . $new .
+ '\'');

  last if ($mode ne "running");
  sleep($interval*60);

} # end-while

[cbrandtbuffalo]

From a maintenance perspective, I like the previous example a bit more because you can understand the exit condition by reading the while line. Even a non-coder could understand it: while ($mode eq 'running'); keep going while the mode equals 'running'.

In your example, I have to search through the entire block and find the 'last if' line to figure out how you break out of the loop.

They are basically equal, but I find the first example easier to read and understand.