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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

101: デフォルトの名無しさん [sage] 2012/11/16(金)14:34:35.11
もう省略の美学とか無くていいから（涙）
ぜんぜん意味がわからない
たすけて

---

134: デフォルトの名無しさん [sage] 2013/01/20(日)13:19:52.11
そもそも今のム板にPerlスレ立てること自体荒らし行為

---

165: 158 [sage] 2013/01/30(水)02:59:15.11
思ったほど釣れなかった

---

396: デフォルトの名無しさん [sage] 2016/11/24(木)22:50:56.11 ID:Puznaqkq(2/2)
ありがとうございます
理解できました。

---

459: デフォルトの名無しさん [sage] 2018/11/14(水)12:38:11.11 ID:XfG22Q3S(2/2)
うっかり自己解決しました。数時間悩んだのに。
print @{ ${ $ref4 }[0] };
print @{ ${ $ref4 }[0] }[1];

---

466: デフォルトの名無しさん [sage] 2018/11/21(水)23:00:44.11 ID:M0TZNmLm(2/2)
ハッシュを要素に持つハッシュへのアクセスについて
ご教示いただけますでしょうか。
下記のコードで、読込は正常に完了しますが、出力が不可能です。
$$を使用したり、試しましたがギブアップです。

#hash.txtの中身(タブ区切り)
#1 10 テスト1
#2 5 テスト2

use Encode;
use utf8;
my %table;
my %rec;

open (FILE, "<:utf8", "hash.txt") or (die "$!");
while(my $line = <FILE>){
　chomp($line);
　@d = split(/\t/, $line);
　%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 (@$wrote_num){
　#出力不可能
　print encode('cp932', $row{'id'})."\t". encode('cp932', $row{'count'})."\t".encode('cp932', $row{'name'})."\n";
}
print Encode::encode('cp932', "$出力完了\n");

---

502: デフォルトの名無しさん [] 2022/03/27(日)23:43:39.11 ID:TRkpHzjA(1)
>>497
じゃあどうすればいいの？

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.020s