使用命令行，将列中的所有条目乘以固定数字，但前提是该行不是注释

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字母表;但将a标志添加到s{...}{...}ae替换中，以便\d仅匹配 ASCII 十进制数字，因为 perl 只能使用 ASCII 十进制数字进行计算，而不是其他脚本的计算）。

如果没有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.832000实际的周长62.831853。

Answer