Loop labels

Μερικές φορές αυτό που θέλουμε από το πρόγραμμά μας είναι να διακόψει όχι μόνο το τρέχων loop (πράγμα που επιτυγχάνεται με την last) αλλά και κάποιο άλλο. Για να δηλώσουμε όμως στην Perl ποιο loop πρέπει να διακόψει χρειάζεται να τα έχουμε «βαφτίσει», να τους έχουμε δώσει δηλαδή ετικέτες. Οι ετικέτες γράφονται με κεφαλαία και ακολουθούνται από άνω και κάτω τελεία. Μπορούν δεν να έχουν οποιοδήποτε όνομα εκτός από BEGIN και END. Η γενική σύνταξη είναι:

ETTIKETA: while (κάτι) {κάνε αυτό}

Ας δούμε ένα παράδειγμα:

my $input = 8;

FIRST: while ($input ne '5')

{

Η πρώτη μας while ονομάστηκε FRIST.

print "Type 1 or 5 (to stop) or something else\n";

$input = <STDIN>;

chomp ($input);

Αλλάζουμε την τιμή της $input

if ($input == 1)

{

print "Type a number:\n";

my $input2 = <STDIN>;

chomp ($input2);

Αν η $input είναι ίση με 1 τότε δημιουργούμε την $input2 και της δίνουμε μια τιμή.

SECOND: until ($input2 == 3000)

{

Δημιουργούμε ένα δεύτερο loop και το ονομάζουμε SECOND

if ($input2 > 100)

{last FIRST;}

Αν $input2 > 100 τότε διακόπτουμε το while loop και φυσικά τελειώνει το πρόγραμμα.

else

{last SECOND;}

Διαφορετικά διακόπτουμε το until loop και το while ξαναρχίζει από την αρχή.

}

}

else

{

print "You typed $input\n";

}

}

print "Eyxaristoyme gia th dokimh toy programmatos\n";

Τρέχουσα Ενότητα: Perl

Φιλικά - συνεργαζόμενα sites: Left Handed Products