Perlについての質問箱 43箱目at TECHPerlについての質問箱 43箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト350:デフォルトの名無しさん 10/05/15 06:11:15 質問の意図するところが分からない。このうちのどれか？ use strict; use warnings; print "is\nthis\nunko?\n"; use strict; use warnings; print << "END_OF_UNKO"; this is unko! END_OF_UNKO use strict; use warnings; use HTML::Template; my $what_is_this = join "", <DATA>; my $t = HTML::Template->new( scalarref => \$what_is_this ); $t->param('var', "was"); print $t->output; __DATA__ this <TMPL_VAR name="var"> unko! 351:デフォルトの名無しさん 10/05/15 06:50:15 >>348 use IO::File; my $fh = IO::File->new('hoge.txt', 'r'); while(my $line = $fh->getline){ print $line; print "\n" if $line =~ /hoge/; } こんな漢字？ 352:デフォルトの名無しさん 10/05/15 09:22:29 $. == 行番号 とか。 353:デフォルトの名無しさん 10/05/15 11:21:19 perlで作った掲示板の連続投稿を制限する方法を教えてください。 一定時間が経過するまで再投稿できないようにしたいです。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch