for ($^O) {
*struct_flock = do {
/bsd/ && \&bsd_flock
||
/linux/ && \&linux_flock
||
/sunos/ && \&sunos_flock
||
die "unknown operating system $^O, bailing out";
};
}
|
< Switch with for via && and || Table of Contents | Page 27 |
YAPC 19101,
June 2001 Perl Idioms Nathan Torkington |