質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.34%

  • Perl

    464questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • AppleScript

    39questions

    AppleScriptは、アップル社が開発しているMac OS用のスクリプト言語。AppleScript本体に限らず、同じ言語で多くのAppleScript対応アプリケーションを操縦することが可能です。 自然言語(英語)に近い構文を持ちます。

アップルスクリプトで行頭・行末のスペース・タブを削除する

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 2
  • VIEW 1,163

ideal742

score 2

アップルスクリプト単体での文字操作はしづらいということで、
Perlを使用して文字置き換えを試みています。
ですが、正規表現"^ +"がうまく機能せず、
処理結果は、元の文字列のままになってしまいます。
たとえば、

●●●●●●●●
               ●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●    


で、2行目の行頭空白を削除したいということです。

該当のソースコード

set aStr to regex_replace("/^ +//m", aStr) of doPerlKit

on regex_replace(regex, target)
  set command to "$target = q/" & target & "/; $target =~ s" & regex & "; print $target;" --※引数を使用してperlコマンド生成
  set str_result to exec_perl(command) of me
  return str_result
end regex_replace

on exec_perl(command)
  set one_liner to "perl -e '" & command & "'" as Unicode text
  --log {"one_liner =", one_liner}
  (*one_liner =, perl -e '$target = q/xxxx@ezweb.ne.jp/; $target =~ s/e/A/g; print $target;'*)
  --エラー処理
  try
    set str_result to do shell script one_liner --※shell実行
    --log {"str_result =", str_result}
  on error
    set str_result to "syntax error : " & one_liner --perlがエラーを吐いたとき
    end try
    return str_result
end exec_perl


また、外部Perlを読み込む方法も試みています。

set aStr to do shell script "perl Perlファイルパス " & aStr
#!/usr/bin/perl
use Encode;
use Encode::JP::H2Z;
$decoded = $ARGV[0];
Encode::from_to($decoded, "utf-8", "euc-jp");

#問題の行
$decoded =~ s/^ +//m;

# 半角カナ→全角カナ <-- こちらは動作
Encode::JP::H2Z::h2z(\$decoded);
Encode::from_to($decoded, "euc-jp", "utf-8");

print "$decoded\n";
exit;

試したこと

"\s"も試しましたが、こちらも失敗してしまいました。

補足情報(言語/FW/ツール等のバージョンなど)

Mac OS X 10.9.5
AppleScript エディタ 2.6.1 (152.1)
AppleScript 2.3.2
perl 5.16.2 (Xcode 6.1 で記述)

何卒よろしくおねがいいたします。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • t_obara

    2017/03/06 12:53

    もう少し分かり易く仕様を記載された方が良いと思います。例として、どのような入力の場合このような出力を期待するという情報があると、明確な回答が得られやすいかと。

    キャンセル

  • ideal742

    2017/03/06 14:10

    ご指摘ありがとうございます。質問の修正をいたします!

    キャンセル

回答 2

check解決した方法

0

改行と全角スペースがある場合、改行に置き換えるループ処理

--テキストファイルを読み込む。シェルスクリプトで処理する。
set myFilePath to "対象のテキストファイルパス"
set aStr to do shell script "cat < " & myFilePath

repeat while (regex_match("/\\r /", aStr) of doPerlKit = true)
     set aStr to regex_replace("/\\r /\\r/g", aStr) of doPerlKit
end repeat

script doPerlKit

     --★targetがregexにマッチするか判定
     on regex_match(regex, target)
          set command to "$target = q/" & target & "/; if ($target =~ " & regex & "){ print q/1/; }else{ print q/0/; }" --※引数を使用してperlコマンド生成
          set str_result to exec_perl(command) of me
          return evalResult(str_result) of me
     end regex_match

     --★targetをregexで置換
     on regex_replace(regex, target)
          set command to "$target = q/" & target & "/; $target =~ s" & regex & "; print $target;" --※引数を使用してperlコマンド生成
          set str_result to exec_perl(command) of me
          return str_result
     end regex_replace

     --★commandをperlで実行
     on exec_perl(command)
          set one_liner to "perl -e '" & command & "'" as Unicode text
          try
               set str_result to do shell script one_liner --※shell実行
          on error
               set str_result to "syntax error : " & one_liner --perlがエラーを吐いたとき
          end try
          return str_result
     end exec_perl

     --★結果がtrueかfalseかerrorか判断
     on evalResult(str_result)
          if str_result is "1" then
                    return true
               else if str_result begins with "syntax error : " then
                    return str_result
               else
                    return false
          end if
     end evalResult

end script


(参考URL:http://piyocast.com/as/archives/2065)

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

行頭だけであれば、+ではなく*にすれば良いかと。

sed でも動作します。

> cat txt
●●●●●●●●
               ●●●● ●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●● 

> export LANG=C
> sed -e 's/^ *//g' txt
●●●●●●●●
●●●● ●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●● 

> cat txt | perl -pe 's/^ *//g' 
●●●●●●●●
●●●● ●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●● 

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/03/07 11:37

    t_obaraさま
    返答ありがとうございました。
    私の知識不足かと思うのですが、
    提案いただいた2点うまく動作させる事ができませんでした。

    試したコードは
    ------------------------------
    set "対象のテキストファイルパス" to myFilePath

    do shell script "export LANG=C | sed -e 's/^ *//g' | cat " & myFilePath
    do shell script "export LANG='ja_JP,UTF-8'"



    do shell script "cat " & myFilePath & "| perl -pe 's/^ *//g' | cat " & myFilePath
    ------------------------------

    です。

    sedはじめて知りました。
    ありがとうございます。

    キャンセル

  • 2017/03/07 12:03

    うまくいかないのであれば、どのようにうまくいかないのか提示いただいた方が良いかと思います。

    set 構文が間違えています。
    スペース部分が全角スペースになっています。
    後ろにあるcatがおかしい

    キャンセル

  • 2017/03/08 11:10

    t_obaraさま
    いつもお世話になっております。

    > set 構文が間違えています。
    失礼いたしました。正しくは
    set myFilePath to "対象のテキストファイルパス"
    ですね。

    >スペース部分が全角スペースになっています。
    正規表現の検索部分ということでですかね?
    検索したい部分は全角スペースなのですが、全角スペースをそのままいれてしまうのは
    まずいということでしょうか(゚ー゚;

    >後ろにあるcatがおかしい
    そのご指摘をふまえ下記のようにしてみました。
    (perlをsedに変更。オプションを"-e"に変更。)
    (検索部分を{全角スペース > \\s}に変更。)
    (cat削除し">"を追加)
    do shell script "cat " & myFilePath & "| sed -e 's/^\\s*//g' > " & myFilePath
    (参考URL:https://hydrocul.github.io/wiki/commands/sed.html)

    上記を実行したところ、テキストファイルが空になってしまいます。
    未熟な私にご指摘、本当に感謝しております。
    ご面倒をおかけしておりますが、お付き合いいただければ助かります。

    キャンセル

  • 2017/03/08 11:17

    追伸:
    上書きではなく
    do shell script "cat " & myFilePath & "| sed -e 's/^\\s*//g' > "新しいファイルパス"
    とすると、ファイルは空にはならなかったのですが、期待した処理ではなく
    ●●●●●●●●●●●●●●●
            ●●●●●●●●●●●●●●●●●●●●●●
    ●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
    ●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
    という風に、処理されずに書き出されました。

    キャンセル

  • 2017/03/08 11:43

    なるほど、元々ファイルの内容が全角スペースなのですね。
    その場合、sedのスクリプトを変更する必要がありますね。
    s/^[ ]*//g
    となります。

    キャンセル

  • 2017/03/16 11:17

    t_obataさま

    お世話になっております。
    最近少々立て込んでおりまして、なかなか本件に取り組めずにおります。
    お付き合いいただき重ね重ね御礼申し上げます。

    キャンセル

  • 2017/03/21 09:29 編集

    t_obataさま
    お世話になっております。
    s/^[ ]*//g
    など、色々ためしてみたのですが狙った処理うまく反映されず行頭の全角スペースが残ってしまいました。
    どうも、先頭をあらわす "^" がうまく機能していないような感じであります。
    なにか理由があるかとは思いますが、
    今回は上記『自己解決』欄に記載いたします方法にて処理いたしました。
    お手数おかけし、また新たな知見ありがとうございました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.34%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る

  • Perl

    464questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • AppleScript

    39questions

    AppleScriptは、アップル社が開発しているMac OS用のスクリプト言語。AppleScript本体に限らず、同じ言語で多くのAppleScript対応アプリケーションを操縦することが可能です。 自然言語(英語)に近い構文を持ちます。