有这样一段文本： pin (CLKA) {\n timing {\n related_pin : CLKB;\n timing_type ：hold；\n when ：”!RET”；\n }\n timing {\n related_pin : CLKB;\n timing_type ：hold；\n when ：”!RET”；\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 、timing_type及when的信息，注意不是所有的pin都带有when，timing可能有多个要输出所有的timing信息

可以使用正则表达式和哈希来实现这个功能，以下是实现的代码：

#!/usr/bin/perl

use strict;
use warnings;

# 定义一个空哈希，用于存储 pin 和 timing 的信息
my %pins;

# 读取文本文件内容
my $filename = "example.txt";
open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";

# 逐行读取文件内容，并提取 pin 和 timing 的信息
while (my $line = <$fh>) {
  chomp $line;
  if ($line =~ /pin\s*\((\w+)\)\s*\{/) {
    my $pin = $1;
    $pins{$pin} = {};
  } elsif ($line =~ /related_pin\s*:\s*(\w+)/) {
    my $related_pin = $1;
    my $timing_type = $pins{$pin}{"timing_type"};
    my $when = $pins{$pin}{"when"};
    push @{$pins{$pin}{"timing"}}, {"related_pin" => $related_pin, "timing_type" => $timing_type, "when" => $when};
  } elsif ($line =~ /timing_type\s*:\s*(\w+)/) {
    $pins{$pin}{"timing_type"} = $1;
  } elsif ($line =~ /when\s*:\s*"(.+)"/) {
    $pins{$pin}{"when"} = $1;
  }
}

# 输出 pin 和 timing 的信息
foreach my $pin (sort keys %pins) {
  print "pin: $pin\n";
  foreach my $timing (@{$pins{$pin}{"timing"}}) {
    my $related_pin = $timing->{"related_pin"};
    my $timing_type = $timing->{"timing_type"};
    my $when = $timing->{"when"};
    print "  timing: related_pin=$related_pin, timing_type=$timing_type";
    print ", when=$when" if defined $when;
    print "\n";
  }
}

上述代码将文本文件中的 pin 和 timing 信息存储到了一个哈希 `%pins` 中，其中每个键对应一个 pin，每个值是一个哈希，包含了该 pin 的所有 timing 信息。输出时，首先按照 pin 的名称进行排序，然后逐个输出 pin 和 timing 的信息。注意，由于一个 pin 可能有多个 timing，因此在存储时需要使用数组来保存所有的 timing 信息。