手抜き #!/usr/bin/env perl $HOST = 'macbook'; $DOC_ROOT = $ENV{HOME} . '/Sites'; $path = "$ENV{TM_FILEPATH}"; $path =~ s/$DOC_ROOT/$HOST/; `open -a Safari "http://${path}"`