有这样一段文本： pin (CLKA) {\n timing {\n related_pin : CLKB;\n timing_type ：hold；\n when ：”!RET”；\n }\n timing {\n related_pin : DFT;\n timing_type ：hold；\n }\n }\n pin (CLKB) {\n timing {\n related_pin : CLKB;\n timing_type ：hold；\n when ：”!RET”；\n }\n }\n 用perl 动态哈希存储pin紧跟括号里的字符，以及不同timing里的related pin、when 及timing_type的信息 请注意when不是所有timing都包含，且timing中每个related pin 、timing type可能都不一样

可以使用正则表达式和哈希表来完成该任务。以下是一个可能的实现：

#!/usr/bin/perl

use strict;
use warnings;

# 定义正则表达式
my $pin_regex = qr/pin\s*\((\w+)\)\s*\{/;
my $timing_regex = qr/timing\s*\{\s*related_pin\s*:\s*(\w+)?\s*;\s*timing_type\s*:\s*(\w+)\s*;\s*when\s*:\s*"([^"]*)"?\s*\}\s*/;

# 定义哈希表
my %pins;

# 读取输入文件
open(my $fh, "<", "input.txt") or die "Cannot open input file: $!";
my $content = do { local $/; <$fh> };
close($fh);

# 解析文本
while ($content =~ /$pin_regex/g) {
    my $pin_name = $1;
    my @timings;

    # 查找该pin下的所有timing
    while ($content =~ /$timing_regex/g) {
        my $related_pin = $1 || "";
        my $timing_type = $2;
        my $when = $3 || "";

        # 将timing信息存入哈希表
        push(@timings, {
            related_pin => $related_pin,
            timing_type => $timing_type,
            when => $when
        });
    }

    # 将pin信息存入哈希表
    $pins{$pin_name} = \@timings;
}

# 输出结果
foreach my $pin_name (keys %pins) {
    print "Pin $pin_name:\n";
    foreach my $timing (@{$pins{$pin_name}}) {
        print "  Related pin: $timing->{related_pin}\n";
        print "  Timing type: $timing->{timing_type}\n";
        print "  When: $timing->{when}\n";
    }
}

假设输入文件为以下内容：

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";
 }
}

运行上述代码将输出以下结果：

Pin CLKA:
  Related pin: CLKB
  Timing type: hold
  When: !RET
  Related pin: DFT
  Timing type: hold
  When: 
Pin CLKB:
  Related pin: CLKB
  Timing type: hold
  When: !RET