#!/usr/bin/perl

# getFileInfo
# This script gets the Macintosh creator and type codes
# for the files specified as command-line arguments.
# See also the 'setFileInfo' script.
#
# Cameron Hayne (macdev@hayne.net)  Oct 2006

use strict;
use warnings;
use MacPerl;

foreach my $file (@ARGV)
{
    my ($creatorCode, $typeCode) = MacPerl::GetFileInfo($file);

    print "$file  creator: \"$creatorCode\" type: \"$typeCode\"\n";
}