#!/usr/bin/perl use strict; use warnings; my %pins; while (my $line = <DATA>) { chomp($line); if ($line =~ /pin\s*((\S+))\s*{/) { my $pin = $1; while ($line = <DATA>) { chomp($line); last if $line =~ /^\s*}/; if ($line =~ /related_pin\s*:\s*(\S+)\s*;\stiming_type\s:\s*(\S+)\s*;/) { my $related_pin = $1; my $timing_type = $2; $pins{$pin}{$related_pin}{'timing_type'} = $timing_type; } elsif ($line =~ /when\s*:\s*"([^"]+)"\s*;/) { my $when = $1; $pins{$pin}{'when'} = $when; } } } } foreach my $pin (sort keys %pins) { foreach my $related_pin (sort keys %{$pins{$pin}}) { if ($related_pin eq 'when') { print "define_arc \\n"; print "\t\t-type $pins{$pin}{$related_pin} \\n"; print "\t\t-pin $pin pin_dir R \\n"; next; } print "\t\t-related_pin $related_pin \\n"; print "\t\t-timing_type $pins{$pin}{$related_pin}{'timing_type'} \\n"; } print "\t\t-when $pins{$pin}{'when'} \\n" if exists $pins{$pin}{'when'}; print "\t\t。。\n"; } DATA pin (CLKA) { timing { related_pin : CLKB; timing_type : hold; when :"!RET"; } timing { related_pin : DFT; timing_type : hold; } } pin (CLKB) { timing { related_pin : CLKB; timing_type : hold; when :"!RET"; } }这段代码存在问题，输出不完整，输出会中断在}附近

这段代码是一个Perl程序，它的作用是解析一个包含时序信息的数据块，并将其转化为一系列的Timing Arc。在输出时，它会遍历所有的Pin和相关的Timing信息，并将它们输出为一个完整的Timing Arc。

根据你提供的代码，输出会中断在}附近，这可能是因为你的数据块没有正确地结束。请检查你的数据块并确保所有的括号都是成对出现的。

另外，在输出时，你需要将所有的输出语句放在同一个循环中，以确保完整的输出。你可以尝试修改你的代码，如下所示：

foreach my $pin (sort keys %pins) {
    print "define_arc \\n";
    print "\t\t-pin $pin pin_dir R \\n";
    foreach my $related_pin (sort keys %{$pins{$pin}}) {
        if ($related_pin eq 'when') {
            print "\t\t-type $pins{$pin}{$related_pin} \\n";
            next;
        }
        print "\t\t-related_pin $related_pin \\n";
        print "\t\t-timing_type $pins{$pin}{$related_pin}{'timing_type'} \\n";
    }
    print "\t\t-when $pins{$pin}{'when'} \\n" if exists $pins{$pin}{'when'};
    print "\t\t。。\n";
}

这样修改后，你的代码就可以正确输出所有的Timing Arc了。