#!usr/bin/env perl $i= 0; while($line = <>){ $i=$i+1; if ( $line =~ m/^\s*module\s*([a-zA-Z0-9_]+)/ ) {# print $_; print $i; print $line; $modulename = $1; #()内をキャプチャして変数へ } # if ( $line =~ m/^\s*[A-Z0-9_]+\s+[a-z0-9]+\s*/ ) {#…

＜Perlの話＞ これがマッチするとき $line =~ m/^\s*module/ これがマッチしないとき $line !~ m/^\s*module/ 記憶に残りにくいなぁ。これは。 俺は天才、俺は天才、覚えられるさ。。大丈夫さ。。

module に出会ったら $flag=1; $flag=1の間 テキストの内容をファイルに出力 endmoduleに出会ったらそのループぬけると同時にflag=0にする。 その続きからまたmoduleを探し、 moduleに出会ったら $flag=1; 。。。と繰り返す。 どうよ。

#!usr/bin/env perl#moduleで区切ってファイル出力を目指す $i= 0; while($line = <>){ $i=$i+1; if ( $line =~ m/^\s*module/ ) {# print $_; print $i; print $line; } # if ( $line =~ m/^\s*[A-Z0-9_]+\s+[a-z0-9]+\s*/ ) {# if ( $line =~ m/^\s*[A-Z0-…

■Perl講座 http://www.envinfo.uee.kyoto-u.ac.jp/user/susaki/perl/lesson_io.htm ＜ファイルオープン＞ http://d.hatena.ne.jp/perlcodesample/20110212/1303702930 ＜ファイル分割＞ ■分割 start～endで分割（正解かどうかは不明） http://okwave.jp/qa/q…

■下記サンプルの実行方法 > perl perl.pl test001.v のような感じ。 ■test001.v 前記事参照 ■test.pl --------- #!usr/bin/env perl $i= 0; while($line = <>){ $i=$i+1; if ( $line =~ m/^\s*module/ ) {# print $_; print $i; print $line; } # if ( $line…

test001.v ---------------------- module HOGEMODULE ( // No space input hoge ; output hogege; reg aaa ;reg aaa ; // hoge hoge hoge for ( i=0 ; i<0 ; i++ ) begin end DUMMY Instance (); INST instance1 ( );INST instance2( );INST \instance3 ( )…

■perl のコードをファイルに書いて実行する方法。 テキストファイル test001.txtに対して、perl のコード（ファイルに記述） test.pl を適用するには、 > perl test.pl test001.txt 例えば test.plの中身はこんな感じ＜サンプル００１＞------------------#u…

正規表現の使える主なツール 【vi / vim】 ※がんばって編集中 【sed】 ※がんばって編集中 【Awk】 ＜気になった点＞■「フィールド」の概念があるから使える気がする。$1 $2 $3 ..... →perlやgrepではあまり見た記憶がない → module HOGE hoge1 ( などのマッ…