Introduction to Perl

looping

while (@ARGV) {
    &process_options(shift @ARGV);
}

for ($i = 1; $i < 10; $i++) {
    # do some counting
}

@flintstones = ('Fred' , 'Barney',
                'Wilma', 'Betty');
foreach $name (@flintstones) {
    print "I saw $name on TV\n";
}

breaking out

foreach $user (@users) {
    next if ($user eq 'root');
    print "user: $user\n";
}

foreach $user (@users) {
    last if ($user eq $me);
}

I will not guarantee that any of these pages will exist indefinately, so please only bookmark the top page.