コマンドラインを使用して、列のすべての項目に固定数を掛けます。ただし、その行がコメントでない場合にのみ適用されます。

Question 1

POSIX awkを使用してください。

$ cat tst.awk
NR == 1 {
    CONVFMT = "%.17g"
    pi = atan2(0, -1)
    two_pi = 2 * pi
    print 0, 0, 0
}
{
    if ( $1 ~ /^[0-9]/ ) {
        $1 *= two_pi
    }
    else {
        sub(/^[[:space:]]*\*?[[:space:]]*/,"* ")
    }
    print
}

$ awk -f tst.awk file
0 0 0
* radius, section, index
7.03718 A 0
12.5664 A 1
* There is white space before this comment
* This is a comment indicating a new section
31.416 B 0
19.9177 B 1
45.8674 B 7
* This row starts with an alphabet char and should be ignored by the script.
0 C 1
6.2832 C 2

Answer

POSIX awkを使用してください。

$ cat tst.awk
NR == 1 {
    CONVFMT = "%.17g"
    pi = atan2(0, -1)
    two_pi = 2 * pi
    print 0, 0, 0
}
{
    if ( $1 ~ /^[0-9]/ ) {
        $1 *= two_pi
    }
    else {
        sub(/^[[:space:]]*\*?[[:space:]]*/,"* ")
    }
    print
}

$ awk -f tst.awk file
0 0 0
* radius, section, index
7.03718 A 0
12.5664 A 1
* There is white space before this comment
* This is a comment indicating a new section
31.416 B 0
19.9177 B 1
45.8674 B 7
* This row starts with an alphabet char and should be ignored by the script.
0 C 1
6.2832 C 2

Question 2

たぶんawkを使ってすべてのことをすることができます。

awk '
 ( FNR==1 ) { print "0 0 0" } # add a first line containing "0 0 0"
 /^[0-9]/   { $1 *= 6.2832 }
 /^[a-zA-Z]/ { $0="* " $0 } # comment lines that start with a letter
 1          # always true, and no {action} speficied:
            # does the default "print $0" action and thus prints every line
' your_input_file > output_file

Answer

たぶんawkを使ってすべてのことをすることができます。

awk '
 ( FNR==1 ) { print "0 0 0" } # add a first line containing "0 0 0"
 /^[0-9]/   { $1 *= 6.2832 }
 /^[a-zA-Z]/ { $0="* " $0 } # comment lines that start with a letter
 1          # always true, and no {action} speficied:
            # does the default "print $0" action and thus prints every line
' your_input_file > output_file

Question 3

そしてperl：

perl -MMath::Trig -pe '
  BEGIN{print "0 0 0\n"; $x = 2 * pi}
  unless (s{^\d[\d.]*}{$& * $x}e || /^\s*\*/) {
    $_ = "* $_";
  }' your-file

ここで、プレフィックスは"* "数字で始まらず、白いs速度も数字で始まらない*。

"* "aで始まる行だけをプレフィックスとして使用してください。手紙する:

perl -C -MMath::Trig -pe '
  BEGIN{print "0 0 0\n"; $x = 2 * pi}
  if (/^\pL/) {
    $_ = "* $_";
  } else {
    s{^\d[\d.]*}{$& * $x}ae;
  }' your-file

（ここにオプションを追加し、-CファイルがUTF-8でエンコードされ、ロケールがその文字エンコーディングを使用していると仮定します）ASCIIに限定されません。アルファベット;ただし、Perlは他のスクリプトの計算ではなくASCII 10進数でのみ計算を実行できるため、ASCII 10進数にのみ一致するように代替項目aにフラグを追加します。s{...}{...}ae\d

Math::Trigモジュールがない場合（定数）、要因定義は次のようにpi変更できます。$x

$x = 2 * atan2(0, -1)

またはハードコードしてください：

$x = 6.28318530717958647692

計算を実行するときは、できるだけ高い精度（そして有用性）を使用し、最終結果から数字だけを切り捨てる必要があります。そうしないと、乗算後にエラーが拡大する可能性があります。

たとえば、これらの円周をミクロン単位まで正確に表示するには（数値がメートル単位で表示されると仮定）、次のようにします。

perl -MMath::Trig -pe '
  BEGIN{print "0 0 0\n"; $x = 2 * pi}
  unless (s{^\d[\d.]*}{sprintf "%.6f", $& * $x}e || /^\s*\*/) {
    $_ = "* $_";
  }' your-file

半径10000000メートルの円の場合、係数に基づいて実際の円周を6.2832得ることができます。62.83200062.831853

Answer