#!/usr/local/bin/perl
use strict;
use warnings;
#---------------------------------------------------------
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "
\n";
print "CGIのテスト\n";
print "\n";
print "\n";
print "u------------------
\n";
#ファイルから読み出したデータを配列に入れる。
my $file = "stock_utf8.csv"; #utf8形式
#------------------------------------------------
=pod
#===================================================
#=== no1 ===
open(my $fh, "<", $file)
or die "Cannot open $file for read: $!";
my @recs;
while (my $line = <$fh>) {
chomp $line; # 改行を取り除く
# print "line: $line
\n";
my @items;
@items = split(/,/, $line);
push @recs,\@items;
}
close $fh;
foreach my $ref (@recs) { # それぞれの無名配列のリファレンスについて
foreach my $col (@$ref) { # リファレンスを配列にデリファレンスして、
print "$col \n"; # その要素を表示
}
print "
\n";
}
my $recsf = \@recs;
print "$recsf->[0][2]
\n";
print "@{$recsf->[0]}
\n";
for(my $i=0; $i<= 5; $i++) {
print "$i, $recsf->[5][$i]
\n";
}
#===================================================
#=== no2 ===
open(my $fh, "<", $file)
or die "Cannot open $file for read: $!";
my @recs;
while (my $line = <$fh>) {
chomp $line; # 改行を取り除く
# print "line: $line
\n";
my $items = [];
@$items = split(/,/, $line);
push @recs,$items;
}
close $fh;
foreach my $ref (@recs) { # それぞれの無名配列のリファレンスについて
foreach my $col (@$ref) { # リファレンスを配列にデリファレンスして、
print "$col \n"; # その要素を表示
}
print "
\n";
}
my $recsf = \@recs;
print "$recsf->[0][2]
\n";
print "@{$recsf->[0]}
\n";
for(my $i=0; $i<= 5; $i++) {
print "$i, $recsf->[5][$i]
\n";
}
#===================================================
#=== no3 ===
open(my $fh, "<", $file)
or die "Cannot open $file for read: $!";
my $recs = [];
while (my $line = <$fh>) {
chomp $line; # 改行を取り除く
# print "line: $line
\n";
my $items = [];
@$items = split(/,/, $line);
push @$recs, $items;
}
close $fh;
foreach my $ref (@$recs) { # それぞれの無名配列のリファレンスについて
foreach my $col (@$ref) { # リファレンスを配列にデリファレンスして、
print "$col \n"; # その要素を表示
}
print "
\n";
}
print "$recs->[0][2]
\n";
print "@{$recs->[0]}
\n";
for(my $i=0; $i<= 5; $i++) {
print "$i, $recs->[5][$i]
\n";
}
=cut
#===================================================
#=== no4 ===
open(my $fh, "<", $file)
or die "Cannot open $file for read: $!";
my $recs = [];
while (my $line = <$fh>) {
chomp $line; # 改行を取り除く
# print "line: $line
\n";
my @items;
@items = split(/,/, $line);
push @$recs,\@items;
}
close $fh;
foreach my $ref (@$recs) { # それぞれの無名配列のリファレンスについて
foreach my $col (@$ref) { # リファレンスを配列にデリファレンスして、
print "$col \n"; # その要素を表示
}
print "
\n";
}
print "$recs->[0][2]
\n";
print "@{$recs->[0]}
\n";
for(my $i=0; $i<= 5; $i++) {
print "$i, $recs->[5][$i]
\n";
}
#------------------------------------------------
print "d------------------
\n";
print "\n";
print "\n";