2014-11-06から1日間の記事一覧
#!/usr/bin/perl#インスタンス「(」無しには非対応 $i= 0; while($line = <>){ $i=$i+1; $line =~ s#\(# \(#; $line =~ s#^\s*always.*##; #always line delete (応急処置) $line =~ s#^\s*if\s*\(.*##; #if line delete (応急処置) $line =~ s#^\s*else\…
#!/usr/bin/perl#インスタンス「(」無しには非対応 $i= 0; while($line = <>){ $i=$i+1; $line =~ s#\(# \(#; $line =~ s#^\s*always.*##; #always line delete (応急処置) $line =~ s#^\s*if\s*\(.*##; #if line delete (応急処置) $line =~ s#^\s*else\…