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

---

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

---

245: デフォルトの名無しさん [sage] 2014/02/19(水)21:03:24.03
>>232
馬鹿はPerlコミュニティの質を下げるだけだからこっちに行ってくれ。
2chｽﾚ:php

---

352: 349 [sage] 2015/01/19(月)22:36:30.03 ID:bxHKMq/8(1)
>>346
ヒント助かった。

use Encode qw/encode decode/;
my $enc = 'UTF-8';
sub d($) { decode($enc, shift) }
sub e($) { encode($enc, shift) }

my $seach_word = "日本語";

my $found_res = 0;
my $res　　　 = "";

while (<>) {
　　if (/^\d/x) {
　　　　if ( $found_res == 1 ) {
　　　　　　print $res;
　　　　　　$found_res = 0;
　　　　}
　　　　$res = "";
　　}
　　else {
　　　　my $seach_word_ = e$seach_word;
　　　　if (/$seach_word_/x) {
　　　　　　$found_res = 1;
　　　　}
　　}
　　$res .= $_;
}

---

415: デフォルトの名無しさん [sage] 2018/06/22(金)02:01:50.03 ID:AmdeLsRG(1)
Perl6は初心者なので全く分からない。
というかやろうとしたことすらないので知識ゼロw

---

471(2): デフォルトの名無しさん [sage] 2018/11/22(木)11:07:56.03 ID:Enb78Zev(2/2)
これで全てのハッシュ要素を出力できますが、
カラム順が不確定になってしまいますね。
ハッシュなので仕方ないことですかね。

foreach $row (sort keys %table) {
　foreach $col (sort keys %{$table{$row}}) {
　print encode('cp932', "$table{$row}{$col}\t");
}
print "\n";
}
>hash_test.pl
1 10 テスト1
2 5 テスト2
読込完了
5 2 テスト2
10 1 テスト1
出力完了

---

489: デフォルトの名無しさん [sage] 2021/04/27(火)18:16:47.03 ID:OX0aAdkQ(1)
>>488
ありがとうございました
俺が遅くなりまして申し訳ありません

---

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

---

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

---

ぬこの手 ぬこTOP 0.016s