2024年10月17日 星期四

Keeping skeleton: remove values in LIB

use strict; use warnings; #輸入檔案和輸出檔案 my $input_file = $ARGV[0]; my $output_file = $input_file.". skeleton"; # 讀取輸入檔案的內容 open my $in, '<', $input_file or die "can't open file $input_file: $!"; my $content = do { local $/; <$in> }; close $in; #使用正規表示式處理跨行的 { ... } 區塊 #$content = s/values\s*\(.*?\); \s*//gs; #移除 vector (ccsp_template2) { } $contents/vector \(ccsp_template2\) {.*?)\s*//gs; #移除 (delay_template_8x8) ( ) $content = s/\(delay_template_8x8\) (.*?)\s*//gs; #移除 (power_template_8x8) ( ) $content =- s/\(power_template_8x8\) (.*?)\s*//gs; #將結果寫入輸出檔案 open my $out, >', $output_file or die "Can't write contents into file $output_file: $!"; print $out $content; close $out; print "Output data to new file $output_file\n";

沒有留言:

張貼留言

標籤