AppleScriptでMarkdown中のリンクファイルを収集する

ああ、もうさわりたくない…
Finderで.mdを選択して実行すると、リンクファイルを同一階層にコピーし、リネームし、mdファイルへ反映させます。
使用は自己責任。というか自分でもハラハラ。

perlでパスのみ全て抜き出して、sort、uniq
パス名からファイルをコピーしてフォルダへ入れる
perlでさっきのパス名を検索（g）して置換

というわけで、フルパスで書いてある前提です。
一度実行すると元に戻りません。バックアップしてから使ってください。

（20160901追記）
パス置換がうまくいかネーゼ、なのでCotEditor経由にしてみた
あ、あとですね、ファイル名に()入ってるとあかんです。入れ子の正規表現書くのめんどくて放置

markdown_Correct4output.scpt

tell application "Finder"
	set mySel to selection as alias
	--	duplicate mySel
	set myMD to POSIX path of mySel
	set myMDName to name of mySel
	set myMDFolder to folder of mySel
	set myMDLinkFolder to (text 1 thru -4 of myMDName) & "_Links"
	set myMDLinkFolderPath to ((myMDFolder as text) & myMDLinkFolder as text)
	log myMDLinkFolderPath
	
	
	set myScript to "/usr/bin/perl -e 'open (DATAFILE,\"< " & myMD & "\");while (my $line =<DATAFILE>){chomp($line);while ($line =~m|(?<=\\]\\()(.+?)(?=\\))|g){print \"$&\\n\";}}' | /usr/bin/sort | /usr/bin/uniq"
	
	set myText to (do shell script myScript)
	log myText
	
	set delimitersTEMP to AppleScript's text item delimiters
	set AppleScript's text item delimiters to return
	set myPath to every text item of myText
	set AppleScript's text item delimiters to delimitersTEMP
	
	
	try
		make folder at myMDFolder with properties {name:myMDLinkFolder}
	end try
	set a to 1
	set myMDLinkRepName to {}
	tell application "CotEditor" to open mySel
	
	repeat with i in myPath
		
		set myDup to duplicate i as POSIX file as alias to folder myMDLinkFolderPath as alias with replacing
		set myMDLinkFileName to (text 1 thru -4 of (myMDName as text)) & "_" & a & "." & name extension of myDup
		set name of myDup to myMDLinkFileName
		set end of myMDLinkRepName to myMDLinkFileName
		--
		set myRepText to myMDLinkFolder & "/" & myMDLinkFileName
		tell front document of application "CotEditor" to replace for i to myRepText with all
		--	do shell script "/usr/bin/perl -pi -e 's|" & i & "|" & myMDLinkFolder & "/" & myMDLinkFileName & "|g' " & quoted form of myMD
		
		set a to a + 1
	end repeat
end tell

markdown_Correct4output.scpt

tell application "Finder"
	set mySel to selection as alias
	set myMD to POSIX path of mySel
	set myMDName to name of mySel
	set myMDFolder to folder of mySel
	set myMDLinkFolder to (text 1 thru -4 of myMDName) & "_Links"
	set myMDLinkFolderPath to ((myMDFolder as text) & myMDLinkFolder as text)
	log myMDLinkFolderPath
	
	
	set myScript to "/usr/bin/perl -e 'open (DATAFILE,\"< " & myMD & "\");while (my $line =<DATAFILE>){chomp($line);while ($line =~m|(?<=\\]\\()(.+?)(?=\\))|g){print \"$&\\n\";}}' | /usr/bin/sort | /usr/bin/uniq"
	
	set myText to (do shell script myScript)
	
	
	set delimitersTEMP to AppleScript's text item delimiters
	set AppleScript's text item delimiters to return
	set myPath to every text item of myText
	set AppleScript's text item delimiters to delimitersTEMP
	
	
	try
		make folder at myMDFolder with properties {name:myMDLinkFolder}
	end try
	set a to 1
	set myMDLinkRepName to {}
	repeat with i in myPath
		
		set myDup to duplicate i as POSIX file to myMDLinkFolderPath as alias with replacing
		set myMDLinkFileName to (text 1 thru -4 of (myMDName as text)) & "_" & a & (the time of (current date)) & "." & name extension of myDup
		set name of myDup to myMDLinkFileName
		set end of myMDLinkRepName to myMDLinkFileName
		do shell script "/usr/bin/perl -pi -e 's|" & i & "|" & myMDLinkFolder & "/" & myMDLinkFileName & "|g' " & quoted form of myMD
		log i
		set a to a + 1
	end repeat
end tell