Question

我正在尝试将每个检查都提取到每个新文件中。

提取数据文件（report.txt）的内容

 Information: Checking 'data_check_multiple_clock'.
 Information: Checking 'data_check_no_clock'.  
 Information: Checking 'no_driving_cell'.
 Warning: There are 5 ports with parasitics but with no driving cell.

 Ports
 ------------------------------------------------------------
 atb0_uib
 atb1_uib
 a[0]
 b[1]
 b[2]

 Information: Checking 'cell'.

我想要的示例输出：

在data_check_multiple_clock.txt的内容中，该文件为空，因为未写入任何错误。

相同内容进入data_check_no_clock.txt和cell.txt

但是，no_driving_cell.txt的内容如下：

atb0_uib
atb1_uib
a[0]
b[1]
b[2]

关于如何执行操作的任何想法？下面是对空错误有错误的编码，其中所有文件都在no_driving_cell中找到相同的错误。

        set var "Information: Checking '[lindex $argv $i]'"
        set fi [open "$line" r]
        set fo [open "check_[lindex $argv $i].csv" a]

        # Extract data to output file
        while {[gets $fi line1] !=-1} {
            if {[regexp "$var" $line1]} {
                puts "check_timing_info: Found $line1"
                puts $fo $line1
                puts $fo $line
                set flag 1
            }
            if {$flag eq 1} {
                if {[regexp "$var1" $line1]} {
                    set flag 2
                } elseif {[regexp "^Error" $line1]} {
                    set flag 2
                }   
            } 
            if {$flag eq 2} {
                if {[regexp "Information: Checking" $line1]} {
                    set flag 0
                } elseif {[regexp "$var1" $line1]} {

                } else {    
                #   puts $line1
                    puts $fo $line1
                }
            }

        }
        close $fo
    }
    } else {

    } 
     }
}

Answer 1

老实说，我不能很好地知道您要在这里做什么，但是这样的工作可能有用吗？

set fi [open report.txt]

while {[gets $fi line] >= 0} {
    switch -glob $line {
        Information:* {
            set filename [lindex [regexp -inline {'(.*)'\.$} $line] 1]
        }
        --* {
            puts $filename
            while {[gets $fi line] >= 0} {
                if {[string is space $line]} {
                    break
                }
                puts $line
            }
        }
    }
}

它产生输出（我正在输出到stdout，因为这使实验更加容易）：

no_driving_cell
atb0_uib
atb1_uib
a[0]
b[1]
b[2]

使用tcl脚本将数据提取到其他文件

1 个答案: