Отправлено kas 26 апреля 2006 г. 14:52 В ответ на: Как сделать (Xilinx) ucf-файл из ПиКАДа. отправлено zlyh 24 апреля 2006 г. 11:17

#!/usr/bin/perl
#вызов: script_name netlist_file_name RefDes_name >ucf_file_name
#работает и под виндами если перл устанивить
$t = $ARGV[0];
open fl, $t or die "Can'not open file";
use sort "stable";
$i = 0;
while () {
chomp;
if ($_ =~ /\(net\b/ )
{
if($_ !~ /gnd|vcco|vccint/i) #убираю цепи питания
{
($a1,$net,$a3) = split(/\"/);
}
else
{
$net = "___";
}
}
if ($_ =~ /node.*\"$ARGV[1]\"/i)
{
($a1,$a2,$a3,$pin) = split(/\"/);
if(($net =~ /\w+\d{1,2}\b/)) #выделяем шины, должны оканчиваться одной-двумя цифрами.
{
$LengNet = length($net);
$subnet = $net;
$subnet =~ s/\d{1,2}\z//;
$LengSub = length($subnet);
$index = substr($net,$LengSub);
$index =~ s/\D+//;
$d[$i] = "NET $subnet"."_buf<$index>\tLOC=P$pin;\n";
$i++;
}
else
{
if($net !~ /___/)
{
$d[$i] = "NET $net"."_buf\tLOC=P$pin;\n";
$i++;
}
}
}
};
close fl;
@c = sort @d;
for($i =0; $i {
print("$c[$i]");
}
print("\# всего $i сигналов");

E-mail: info@telesys.ru