でのファイルの読み取りに問題がありますperl
。
以下のソースがあります。
use strict;
use warnings;
sub main()
{
my @lines = file_read("test.c") or die;
file_print(@lines);
}
sub file_read
{
my $filename = shift;
my @lines;
open(FILE, "<", $filename) or die $!;
@lines = <FILE>;
return @lines;
}
sub file_print
{
my @lines = shift();
print("Total lines " . scalar(@lines) . "\n");
foreach my $line (@lines)
{
print($line);
}
}
そして、次のファイル:
/******************************************************************************
* *
* *
出力は次のとおりです。
Total lines 1
/******************************************************************************
ここで何が問題なのですか?
0x0A 0x0A
ASCII
シンボルの組み合わせまでファイルを読み取ると私が推測できる唯一のこと。