2014-09-30から1日間の記事一覧
#!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*/ ) {#…
#!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*/ ) {#…
