--MacPerlドロップレットをドロップすると、.txtファイルに書き出すAppleScript。

on open dropItems
	repeat with thisObj in dropItems
		set thisObj to thisObj as text
		set savename to thisObj & ".txt" --保存ファイル名の生成
		
		tell application "MacPerl"
			--どういうわけか、開いたドロップレットをそのまま別の型式のファイルとして保存できない。
			--しかたなく、全部クリップボードにコピーして、新しいウインドウにペーストし、これを保存している。
			activate
			Open {file thisObj} --ファイルを開いて
			ﾇevent misccopyﾈ characters 1 thru -1 of document 1 --コピーして
			Close document 1 --閉じる
			
			make new document --新しいウインドウを開いて
			ﾇevent miscpastﾈ Spot 1 of document 1 --新しいウインドウにペースト
			
			Save Window 1 in file savename as Text --TEXT形式で保存
			Close document 1
		end tell
	end repeat
end open