while (<>) {
foreach $pattern (@regexps) {
if (/$pattern/) { ... }
}
} |
| Forward to Speeding it up
Back to Opaque objects Up to Stages of a Perl Programmer section index Up to YAPC 2000 course index |
YAPC 2000: Stages of a Perl Programmer - 48
Copyright © 2000, Nathan Torkington
|