?? legible.pl
字號:
#!/usr/sww/bin/perlprint "reparing the lines lengths\n";chdir $ARGV[0];$files = `echo *.v`;foreach $file (split(/ /, $files)) { print "Changing verilog file : $file\n"; open FILE, "<$file"; open TMP, ">tmp"; while (<FILE>) { $line = ""; @parts = split(/,/, $_); $len = 0; for $part (@parts) { $len_part = length($part); if ($len + $len_part > 60) { # print "len = $len_part , part = $part\n"; print TMP "$line\n"; $len = 0; $line = ""; } $line .= "$part, "; $len += $len_part; } chop $line; chop $line; print TMP "$line"; } close FILE; close TMP; system "cp tmp $file";}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -