[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)

Perlについての質問箱 64箱目 http://mevius.5ch.net/test/read.cgi/tech/1548981877/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

251: デフォルトの名無しさん [sage] 2020/02/21(金) 09:05:21.00 ID:KvZFDIbR 2回読みたくないというのがどういうレベルでの事か分からんが ソースコードの見た目だけならサブルーチンに押し込めばどうとでも #!/usr/bin/perl -w use strict; use Scalar::Util qw(looks_like_number); sub dp { 　　defined $_[0] ? "d[$_[0]]" : 'u[]'; } sub if_true(&$$) { 　　local $_ = pop; 　　$_[1] = $_ if &{$_[0]}; } my %table = ('' => 1, 0 => 2, a => 3, b => 4, c => 0, d => '', e => undef); for my $var (sort keys %table) { 　　print dp($var), dp($table{$var}); 　　if_true { looks_like_number($_) && $_ % 3 } $var => $table{$var}; 　　print " => var[$var]\n"; } http://mevius.5ch.net/test/read.cgi/tech/1548981877/251

---

ﾒﾓ帳

(0/65535文字)

---

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

---

あと 751 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.009s