Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるスクリプトを作るスレ at TECH

300:デフォルトの名無しさん
05/11/08 11:21:15
>>298
#!/usr/bin/perl
chomp($input = <STDIN>);
open XXX, "<xxx.txt";
$/="end\n";
while(<XXX>)
{
if(/^($input)/){ print $_; }
}

適当に作ったから動かないかもしれん。

次ページ

続きを表示

1を表示