1#!/usr/bin/perl 2 3use strict; 4 5my $os = shift; 6 7# get target listings 8opendir(MAKE_TARGETS,'./makefiles'); 9my @targets = grep { /Makefile/ && -f './makefiles/'.$_ && s/^Makefile-// } readdir(MAKE_TARGETS); 10closedir(MAKE_TARGETS); 11 12# display usage 13unless ($os && grep{/$os/}@targets) {print<<EOF;exit(0)} 14usage: $0 {@targets} 15EOF 16 17# link appropriate target 18symlink './makefiles/Makefile-'.$os, 'Makefile'; 19print "type make.\n"; 20