保留pin RETN{} block 跟mega_ 參數

#!/usr/bin/perl use strict; use warnings; # 檔案路徑 my $input_file = 'input.txt'; # 請將 'input.txt' 替換為你的檔案名稱 my $output_file = 'output.txt'; # 讀取檔案內容 open my $in_fh, '<', $input_file or die "無法打開檔案 $input_file: $!"; my @lines = <$in_fh>; close $in_fh; # 處理檔案內容 my $inside_block = 0; my @filtered_lines; foreach my $line (@lines) { if ($line =~ /pin \("RETN"\) \{/) { $inside_block = 1; # 開始進入區塊 } if ($inside_block || $line =~ /mega_/) { push @filtered_lines, $line; } if ($inside_block && $line =~ /xRxFxxx/) { $inside_block = 0; # 結束區塊 } } # 寫入處理後的內容到新檔案 open my $out_fh, '>', $output_file or die "無法創建檔案 $output_file: $!"; print $out_fh @filtered_lines; close $out_fh; print "已處理完成，結果存入 $output_file\n";

計算altos_veclist裡面有幾個vector並把數量寫在下面

#!/usr/bin/perl use strict; use warnings; # 檔案路徑 my $input_file = 'input.txt'; # 請將 'input.txt' 替換為你的檔案名稱 my $output_file = 'output.txt'; # 讀取檔案內容 open my $in_fh, '<', $input_file or die "無法打開檔案 $input_file: $!"; my @lines = <$in_fh>; close $in_fh; # 處理檔案內容 my @updated_lines; foreach my $line (@lines) { push @updated_lines, $line; #if ($line =~ /altos_veclist\(.*?\)/) { if ($line =~ /altos_veclist/) { # 計算 " 包住的字串總數 my $count = () = $line =~ /".*?"/g; # 在其下一行添加結果 push @updated_lines, "// 字串總數: $count\n"; } } # 寫入處理後的內容到新檔案 open my $out_fh, '>', $output_file or die "無法創建檔案 $output_file: $!"; print $out_fh @updated_lines; close $out_fh; print "已處理完成，結果存入 $output_file\n";