–改行コードがCRになっている部分をLFに置換（v2で追加）
set this_data to repChar(this_data, ASCII character 13, ASCII character 10) of me

set tmpPath to path to temporary items from user domain
set fStr to (do shell script “date +%Y%m%d%H%M%S”) & “.pl”
set fPath to (tmpPath as string) & fStr

write_to_fileUTF8(this_data, fPath, false) of me
do shell script “sync”

set sText to “perl -w “ & quoted form of POSIX path of fPath
doComInTerminalWindow(sText) of me

on doComInTerminalWindow(aCMD)
　　tell application “Terminal”
　　　　set wCount to count (every window whose visible is true)
　　　　
　　　　– By wayne melrose
　　　　– Re: New window in Terminal.app
　　　　
　　　　if wCount = 0 then
　　　　　　–ウィンドウが１枚も表示されていない場合
　　　　　　do script aCMD
　　　　else
　　　　　　–すでにウィンドウが表示されている場合
　　　　　　do script aCMD in front window
　　　　end if
　　end tell
end doComInTerminalWindow

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_fileUTF8(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as «class utf8» starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_fileUTF8

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に