生存記録:taikimen: Code　SyntaxHilight

2010年12月5日日曜日

#!/usr/bin/perl
use strict;
use warnings;
use IO::File;

my $in = new IO::File('filename');

while(<$in>){
    print $_;
}
$in->close;
exit;