Mime-Version: |
1.0 (Apple Message framework v1084) |
Sender: |
|
Date: |
Mon, 11 Jul 2011 03:01:35 +0900 |
Reply-To: |
|
Subject: |
|
From: |
|
Content-Transfer-Encoding: |
7bit |
In-Reply-To: |
|
Content-Type: |
text/plain; charset=us-ascii |
Comments: |
|
Parts/Attachments: |
|
|
On 2011-07-08 [+0900 JST], at 8:19 PM, Nobumi Iyanaga wrote:
> Select All
> Copy:Copy Text Only
> $the_data = Read Clipboard
> Write to File $the_data, $newfpath
Alternatively...
$data = Cast to String $doc.text.copy, true
Write to File $data, $newPath
Set Exported Perl Variables 'newPath'
begin Perl
if ( -x "/usr/bin/xattr" ) { # if you are running OS X 10.5 or later
`/usr/bin/xattr -w com.apple.TextEncoding 'UTF-8;134217984' "$newPath"`;
}
end
File.revealPathInFinder $newPath
Kino
|
|
|