!/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"; } } 这段代码有编译错误 if else 里面的pin

这段代码的问题在于，在第一个 if 语句中定义了一个名为 $pin 的变量，但没有在该 if 语句结束后进行定义，导致在第二个 if 语句中使用 $pin 变量时出现了编译错误。

解决方法是将 $pin 定义移动到 while 循环的开头，以确保它在整个循环中都处于定义状态。修改后的代码如下：

#!/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
my $pin;

# 逐行读取文件内容，并提取 pin 和 timing 的信息
while (my $line = <$fh>) {
    chomp $line;
    if ($line =~ /pin\s*((\w+))\s*{/) {
        $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";
    }
}