レス書き込み
スレへ戻る
写
レス栞
レス消
Perl初心者スレ(マジレス回答)
PC,スマホ,PHSは
ULA
べっかんこ
公式(スマホ)
公式(PC)
で書き込んでください。
名前
メール
引用切替:
レスアンカーのみ
>>468 > >>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 > 読込完了 > 出力完了
ローカルルール
SETTING.TXT
他の携帯ブラウザのレス書き込みフォームはこちら。
書き込み設定
で書き込みサイトの設定ができます。
・
ULA
・
べっかんこ(身代わりの術)
・
べっかんこ(通常)
・
公式(スマホ)
・
公式(PC)[PC,スマホ,PHS可]
書き込み設定(板別)
で板別の名前とメールを設定できます。
メモ帳
(0/65535文字)
上
下
板
覧
索
設
栞
歴
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.006s