☰

行の先頭のスペースを「-」に置き換えます。

tag-icon • tag-icon text-processing sed
行の先頭のスペースを「-」に置き換えます。 
 wqdq
 wqdqgrhehr
 cnkzjncicoajc
 hello space
    oejwfoiwejfow
    wqodojw
    more spaces
    more

これは次の内容にしたいファイルですsed。

-wqdq
-wqdqgrhehr
-cnkzjncicoajc
-hello space
----oejwfoiwejfow
----wqodojw
----more spaces
----more
----
-
--

これを達成するにはループを使用する必要がありますか、それとも別の方法がありますか？私はこれを試しました：

user:~$ sed -n  '
: loop
  s/^ /-/
  s/[^-] /-/p
t loop' spaces

ベストアンサー1

の場合、sed次のようなループが必要です。

sed -e :1 -e 's/^\( *\) /\1-/; t1' < file

または、次のようにします。

sed '
s/ */&\
/; # add a newline after the leading spaces
h; # save a copy on the hold space
y/ /-/; # replace *every* space with -
G; # append our saved copy
s/\n.*\n//; # remove the superflous part' < file

を使用すると、perl次のことができます。

perl -pe 's{^ *}{$& =~ y/ /-/r}e' < file

または

perl -pe 's/(^|\G) /-/g' < file

\GPCRE一致（幅なし）から前の一致の終わり（//gコンテキスト内）。したがって、ここでは、^行の先頭または前の一致の最後に続くスペース（つまり、以前に置き換えられたスペース）を置き換えます。

（この方法はsedPCREをサポートする実装で使用することもできますssed -R。）

を使用すると、awk次のことができます。

awk '
  match($0, /^ +/) {
    space = substr($0, 1, RLENGTH)
    gsub(" ", "-", space)
    $0 = space substr($0, RLENGTH+1)
  }
  {print}' < file

<space><tab>fooタブ文字を（例：に）変換したい場合は、前処理され--------fooた入力を使用できますexpand。 GNUを使用すると、行の先頭のスペースにあるタブ文字のみを変換expandできます。expand -iこのオプションを使用して、タップ停止間の距離を指定できます（デフォルトは8列ごと）-t。

これを水平間隔のすべての文字、または少なくとも[:blank:]ロケールカテゴリに属する​​文字に一般化することはより複雑になります。

これはTAB文字がない場合にのみ問題になります。

perl -Mopen=locale -MText::CharWidth=mbswidth -pe 's/^\h+/"-" x mbswidth($&)/e'

しかし、TAB文字はコントロール文字の幅はですが、-1実際にmbswidth()は持つ幅は行内の位置に応じて1列から8列まで異なります。

このexpandコマンドはそれを次に拡張します。正しいただしexpand、マルチバイト文字がある場合（UTF-8ロケールのタブとスペースを除くすべての空白文字）、GNUを含む多くの実装はこれを正しく処理しないため、マルチバイト文字をサポートする一部の実装でも幅0または幅2つの個人文字（[:blank:]少なくとも一般的なGNUロケールではU + 3000など）である。したがって、TAB拡張は次のように手動で実行する必要があります。

perl -Mopen=locale -MText::CharWidth=mbswidth -pe 's{^\h+}{
  $s = $&;
  while ($s =~ /(.*?)\t(.*)/) {
    $s = $1 . (" " x ((7-mbswidth($1)) % 8 + 1)) . $2;
  }
  "-" x mbswidth($s)}e'

おすすめ記事