<% my $dbi = $nvar{dbi}; my $dbseq = $dbi->{dbseq}{bbs}; %>

条件を記入して、「検索する」のボタンを押してください。

<% my $num = 3; my $op_list = [ '~', '!~', '~^', '~$', '=', '!=', '<', '>', 'IS NULL', 'IS NOT NULL' ]; my $warn_op_list = [ '~', '!~', 'IS NULL', 'IS NOT NULL' ]; my $op_label = { '~' => 'を含む ( ~ )', '!~' => 'を含まない ( !~ )', '~^' => 'で始まる ( ~^ )', '~$' => 'で終わる ( ~$ )', '=' => 'に等しい ( = )', '!=' => 'に等しくない ( != )', '<' => 'より小さい ( < )', '>' => 'より大きい ( > )', '<=' => '以下 ( <= )', '>=' => '以上 ( >= )', '~*' => 'を含む ( ~* )', '!~*' => 'を含まない ( !~* )', 'LIKE' => 'に等しい ( LIKE )', 'IS NULL' => '値を持たない', 'IS NOT NULL' => '値を持つ' }; my @cond; my $flag; %> <% foreach my $name ('name', 'email', 'title', 'message') { %> <% push(@cond, "$name #{op_$name} '#{$name}'"); } %> <% foreach my $i (1 .. $num) { %> <% push(@cond, "#{name_$i} #{op_$i} '#{value_$i}'"); } %>
次の状態のデータを検索する : <% my %state_flag = ( invalid => ($var{v_where} ? $var{v_qs}{state_invalid} : 0), active => ($var{v_where} ? $var{v_qs}{state_active} : 1) ); foreach my $k ('active', 'invalid') { $flag = $state_flag{$k} ? " checked" : ""; print "{db}{sysstate}{$k}\"$flag>", "$dbi->{misc}{sysprint_state}[ $dbi->{db}{sysstate}{$k} ]\n"; } %>
> 正規表現用のメタ文字を使う
表示件数 :