如何用GOF为所有input port插入diode

my @all_inputs = get_ports("-input");

open(FOUT, ">add_diode.tcl");
foreach my $input (@all_inputs){
    my @loads = get_loads($input, "-hier");
    foreach my $load (@loads){
        my @t = @$load;
        if($t[0] =~ m/DIODE/){
            print("skip {$t[0] $t[1]}\n");
        }else{
            print FOUT ("attachDiode -diodeCell ANTENNA27T -prefix DIO1_ {$t[0] $t[1]}\n");
            print FOUT ("attachDiode -diodeCell ANTENNA27T -prefix DIO2_ {$t[0] $t[1]}\n");
            print FOUT ("attachDiode -diodeCell ANTENNA27T -prefix DIO3_ {$t[0] $t[1]}\n");
        }
    }
}

close(FOUT);