从tcl中的文件中的每一行开始删除多个空格

Question

我想从文件的每个和每行的开头删除空格 所以用这个

set fp [open "test_one.tcl" r]
set file_data [read $fp]
set lines [split $file_data "\n"]
regsub -all {^\s+} $lines ""

运行此文件的所有行＆＃39; test_one.tcl＆＃39;进入一个名为lines的列表，但我无法删除开头的空格。 请帮帮我。

Answer 1

您可以应用换行符敏感regsub命令，而不是按换行符拆分。

% set fp [open "test_one.tcl" r]
file2244890
% set file_data [read $fp]
        this is
    one of
  example
   input file

% close $fp
% regsub -line -all {^\s+} $file_data {} output
4
% puts $output
this is
one of
example
input file

%

Answer 2

Tcllib中有更高级别的命令：

package require fileutil
package require textutil::trim

::fileutil::updateInPlace test_one.tcl ::textutil::trim::trimleft

在此调用之后，该文件包含左对齐文本。

文档：fileutil包，package，textutil::trim包