Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新

---

468: 2018/11/22(木)10:12 ID:iCX1SQ90(1/2) AA×
>>467


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
468: [sage] 2018/11/22(木) 10:12:03.32 ID:iCX1SQ90 >>467 すみません、レス用に書き換えた元がwote_numでした 下記の様に変えましたが、アクセスできません。 意外と難しいですね。 use Encode; use utf8; my %table; open (FILE, "<:utf8", "hash.txt") or (die "$!"); while(my $line = <FILE>){ chomp($line); @d = split(/\t/, $line); my %rec = ('id' => $d[0], 'count' => $d[1], 'name' => $d[2]); $table{$d[0]} = \%rec; 　print encode('cp932', $table{$d[0]}{'id'})."\t". encode('cp932', $table{$d[0]}{'count'})."\t".encode('cp932', $table{$d[0]}{'name'})."\n"; } close(FILE); print Encode::encode('cp932', "読込完了\n"); foreach my $row (@$table){ print encode('cp932', $row->{'id'})."\t". encode('cp932', $row->{'count'})."\t".encode('cp932', $row->{'name'})."\n"; } print Encode::encode('cp932', "$出力完了\n"); 実行結果：まだアクセスできません >hash_test.pl 1 10 テスト1 2 5 テスト2 読込完了 出力完了 http://mevius.5ch.net/test/read.cgi/tech/1349538519/468
すみませんレス用に書き換えた元がでした 下記の様に変えましたがアクセスできません 意外と難しいですね 読込完了 出力完了 実行結果まだアクセスできません テスト テスト 読込完了 出力完了

---

上下前次1-新書関写板覧索設栞歴

---

あと 55 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.041s