箱作りたいなぁ #!/usr/bin/perl use strict; use warnings; my $file = 'commList.txt'; my $fh; unless (open $fh, $file) { print "can not open $!\n" if $!; }unless *出来なかったら while (<$fh>) { if ($_ =~ /^\s*\
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。