Re: [MacPerl] a question about file mappins of IntenetConfig

[Chris Nandor <pudge@pobox.com>]

At 8.55 +0900 2000.06.09, Tetsuro Kurita wrote:
>?How to get all of file mappings are sat in InternetConfig using
>InternetConfig >module ?

They are all in %InternetConfigMap;

#!perl -wl
use Mac::InternetConfig qw(:DEFAULT $ICInstance);
print scalar keys %InternetConfigMap;  # total number

my $c = 0;
for (keys %InternetConfigMap) {
  my $map = $InternetConfigMap{$_};
  printf "%-5.5s : %-4.4s : %-4.4s\n",
    $map->extension, $map->file_type, $map->file_creator;
  last if $c++ > 20;
}

__END__

-- 
Chris Nandor       |     pudge@pobox.com      |     http://pudge.net/
Andover.Net        | chris.nandor@andover.net | http://slashcode.com/

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org