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

---

189: デフォルトの名無しさん [sage] 2014/02/13(木)06:54:32.76
>>187
Perl関連スレ、何故か荒らしが住み着いてるからなあ

---

363: デフォルトの名無しさん [sage] 2015/04/12(日)20:06:31.76 ID:eedq/AcT(3/3)
>>361さんの回答で先入観が排除され、
意味がわかりました。

$mes =~ s/_HOGE_/$name/g;

文字列に埋め込まれた_HOGE_を別の変数に代入されてる文字列と置換させていました。
ありがとうございました。

---

378: デフォルトの名無しさん [] 2015/08/31(月)18:13:02.76 ID:zR+vvNwg(1)
>>377
ありがとう perlのリファレンス表記がこの機会に少し分かりました

my @car = (1, 2);
my @cdr = (3, 4);
my @both = ( \@car, \@cdr);
print("$both[0]->[0]\n");
print("$both[0]->[1]\n");
print("$both[1]->[0]\n");
print("$both[1]->[1]\n");
print("@{$both[0]}\n");
print("@{$both[1]}\n");

---

469: デフォルトの名無しさん [sage] 2018/11/22(木)10:30:19.76 ID:Enb78Zev(1/2)
これでいけると思いましたが、玉砕でしたｗ

foreach my $row (@$table){
　while (my ($id, $count, $name) = each(%row)){
　print encode('cp932', "$id\t$count\t$name\n");
}

---

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

---

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

---

ぬこの手 ぬこTOP 0.018s