【元ｱｲﾄﾞﾘﾝｸﾞ!!!15号】朝日奈央★46【5年後幹事】at IDOL【元ｱｲﾄﾞﾘﾝｸﾞ!!!15号】朝日奈央★46【5年後幹事】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト455:ファンクラブ会員番号７７４ 20/08/24 14:22:18 SJVnYLjU.net ここは菊地禁止だろ 456:ファンクラブ会員番号７７４ 20/08/24 16:56:21.39 F9XnTHeT.net 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 457: => 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"; } 458:ファンクラブ会員番号７７４ 20/08/26 06:47:01.71 SCL5bnn0.net なんかよくわからないけどセフレにしたいわ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch