Maybe could we start to write perlgolftut.pod :)
foreach $person (@names) {
print "$person\n";
last if $person=~/Dr /;
}
- reduce the length of variables names
foreach $p (@n) {
print "$p\n";
last if $p=~/Dr /;
}
- for and foreach are equivalent, put these \s away, and the last semicolon
too
for$p(@n){print"$p\n";last if $p=~/Dr /}
- use implicit variables (perlvar)
for(@n){print"$_\n";last if/Dr /}
- use command-line arguments (perlrun)
#perl -l
for(@n){print;last if/Dr /}
- use shortcuts (perlop)
#perl -l
for(@n){print;/Dr /&&last}
or
print&&/Dr /&&last for@n
Jean-Pierre
