☰

バイトネットリストをバス形式に変換するスクリプト

tag-icon • tag-icon text-processing compression
バイトネットリストをバス形式に変換するスクリプト

似たような信号があります。

signal[3]_and_[31]
signal[3]_and_[30]
signal[3]_and_[29]
signal[3]_and_[28]
...
signal[3]_and_[0]

signal[2]_and_[31]
signal[2]_and_[30]
signal[2]_and_[29]
signal[2]_and_[28]
...
signal[2]_and_[0]
..
...

に変換したいです。

signal[3:0]_and_[31:0]

助けてくれてありがとう。

ベストアンサー1

各バースト信号が1行にあると仮定すると、次のPerlコードを実行してそれを対応するバスシンボルに変換します。

perl -MList::Util=max,min -lne '
  BEGIN {
   $sig_re = qr/signal\[(\d+)]_and_\[(\d+)]/;
   $bus_fmt = q/signal[%d:%d]_and_[%d:%d]/;
  }

  /^$sig_re$/ and push(@A,$1), push(@B,$2);

  print(sprintf($bus_fmt,
           max(@A), min(@A),
           max(@B), min(@B)))
                 if eof;
' signals.bit_blasted > signals.bussed

おすすめ記事