Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
245: デフォルトの名無しさん [sage] 2014/02/19(水) 21:03:24.03 >>232 馬鹿はPerlコミュニティの質を下げるだけだからこっちに行ってくれ。 http://kohada.2ch.net/test/read.cgi/php/1390166591/ http://mevius.5ch.net/test/read.cgi/tech/1349538519/245
352: 349 [sage] 2015/01/19(月) 22:36:30.03 ID:bxHKMq/8 >>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 .= $_; } http://mevius.5ch.net/test/read.cgi/tech/1349538519/352
415: デフォルトの名無しさん [sage] 2018/06/22(金) 02:01:50.03 ID:AmdeLsRG Perl6は初心者なので全く分からない。 というかやろうとしたことすらないので知識ゼロw http://mevius.5ch.net/test/read.cgi/tech/1349538519/415
471: デフォルトの名無しさん [sage] 2018/11/22(木) 11:07:56.03 ID:Enb78Zev これで全てのハッシュ要素を出力できますが、 カラム順が不確定になってしまいますね。 ハッシュなので仕方ないことですかね。 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 出力完了 http://mevius.5ch.net/test/read.cgi/tech/1349538519/471
489: デフォルトの名無しさん [sage] 2021/04/27(火) 18:16:47.03 ID:OX0aAdkQ >>488 ありがとうございました 俺が遅くなりまして申し訳ありません http://mevius.5ch.net/test/read.cgi/tech/1349538519/489
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.034s