0

以下の基準に従ってテーブルに文字列値を入力する、非常に小さくて単純なスクリプトを作成する必要がありました。

  • 2 文字の長さ
  • 最初の文字は常に数字 (0-9)
  • 2 番目の文字は (0-9) ですが、「X」も含まれます
  • データベースのテーブルに値を挿入する必要がある

プログラムは次のように実行されます。

insert into table (code) values ('01');
insert into table (code) values ('02');
insert into table (code) values ('03');
insert into table (code) values ('04');
insert into table (code) values ('05');
insert into table (code) values ('06');
insert into table (code) values ('07');
insert into table (code) values ('08');
insert into table (code) values ('09');
insert into table (code) values ('0X');

合計 110 個の値が挿入されるまで、以下同様です。

私のコード（最小化して効率化するためではなく、それを達成するためだけに）は次のとおりです。

use strict;
use DBI;
my ($db1,$sql,$sth,%dbattr);
%dbattr=(ChopBlanks => 1,RaiseError => 0);
$db1=DBI->connect('DBI:mysql:','','',\%dbattr);
my @code;
for(0..9)
{
    $code[0]=$_;
    for(0..9)
    {
        $code[1]=$_;
        insert(@code);
    }
    insert($code[0],"X");
}
sub insert
{
    my $skip=0;
    foreach(@_)
    {
        if($skip==0)
        {
            $sql="insert into table (code) values ('".$_[0].$_[1]."');"; 
            $sth=$db1->prepare($sql); 
            $sth->execute();
            $skip++;
        }
        else
        {
            $skip--;
        }
    }
}
exit;

このロジックの本当に簡潔で正確なバージョンを見ることに興味があります。

4

3 に答える 3

1

You could just do it in sql (for some values of sql):

insert into table (code) select concat(foo, bar)
from (select 0 foo union select 1 union select 2 union select 3 union select 4
    union select 5 union select 6 union select 7 union select 8 union select 9)
    foo
join (select 0 bar union select 1 union select 2 union select 3 union select 4
    union select 5 union select 6 union select 7 union select 8 union select 9
    union select 'X')
    bar;
于 2010-12-26T01:48:10.830 に答える
1

最初の部分はに減らすことができます

for my $x (0..9) {
  for my $y (0..9,'X') {
    insert("$x$y");
  }
}

$skipが2番目の部分で何をしているのか本当にわかりません。私は持っているだろう

sub insert {
  my $code = shift;
  my $sql="insert into table (code) values ('$code');"; 
  my $sth=$db1->prepare($sql); 
  $sth->execute();
}
于 2010-12-24T23:45:46.387 に答える
1

133文字-厳密ではない

use DBI;$d=DBI->connect('DBI:mysql','','',{RaiseError=>1});for$a(0..9){for$b(0..9,'X'){$d->do("insert into table values('$a$b')");}}

152文字-厳密

use strict;use DBI;my$d=DBI->connect('DBI:mysql','','',{RaiseError=>1});for my$a(0..9){for my$b(0..9,'X'){$d->do("insert into table values('$a$b')");}}

152文字の文字列の判読可能なバージョン：

use strict;use DBI;
my $d=DBI->connect('DBI:Informix:stores','','',{RaiseError=>1});
foreach my $a (0..9)
{
    foreach my $b (0..9, 'X')
    {
        $d->do("insert into table values('$a$b')");
    }
}

思考プロセス

与えられた：

create table table(code char(2) not null);

そしてPerl：

use strict;
use DBI;
my $d=DBI->connect('DBI:mysql','','',{RaiseError=>1});
my $h=$d->prepare("insert into table(code)values(?)");
foreach my $a (0..9)
{
    foreach my $b (0..9, 'X')
    {
        $h->execute("$a$b");
    }
}

Informixでテストしたので、実際に使用した接続文字列は「DBI:Informix:stores」でした。

このソリューションは引き続き読み取り可能であり、RaiseErrorにより、エラーが防止されます（トランザクションも追加する場合を除く）。

コードゴルフ、それは（182文字）になります：

use strict;use DBI;my$d=DBI->connect('DBI:mysql','','',{RaiseError=>1});my$h=$d->prepare("insert into table(code)values(?)");for my$a(0..9){for my$b(0..9,'X'){$h->execute("$a$b");}}
于 2010-12-24T23:49:50.050 に答える