#!/usr/bin/perl

# resolveAlias:
# This script resolves the Finder alias given as a command-line argument.
# It is based on the script given by 'pudge' on the following web page:
# http://use.perl.org/~pudge/journal/10437
# Cameron Hayne (macdev@hayne.net)  December 2006

use strict;
use warnings;
use Mac::Errors;
use Mac::Files;
use Mac::Resources;
  
my $alias = $ARGV[0];
my $res  = FSpOpenResFile($alias, 0) or die $Mac::Errors::MacError;
# get resource by index; get first "alis" resource
my $alis = GetIndResource('alis', 1) or die $Mac::Errors::MacError;
my $targetPath = ResolveAlias($alis);
print "$targetPath\n";