--aListをソートon sortList(aList)
set command to"perl -e"set perlScript toquoted formof"print join ' ', (sort @ARGV)"set the_array to aList
set ARGV to join(the_array, " ")
set the_result to do shell script command &" "& perlScript &" "& ARGV
split(the_result, " ")
end sortList
on join(aArray, deliChar)
set defaultDelimita to AppleScript'stextitemdelimiterstryset AppleScript'stextitemdelimitersto deliChar
set temp totextitemsof aArray as Unicode textset AppleScript'stextitemdelimitersto defaultDelimita
onerror errMsg number errNum
set AppleScript'stextitemdelimitersto defaultDelimita
return""endtryreturn temp
end join
on split(aText, deliChar)
set defaultDelimita to AppleScript'stextitemdelimitersset AppleScript'stextitemdelimitersto deliChar
set array totextitemsof aText as list
set AppleScript'stextitemdelimitersto defaultDelimita
return array
end split