[技术讨论] PowerShell解决用纯BAT几秒内生成几万个字符串组的问题

use Time::HiRes qw/time/;
STDOUT->autoflush(1);
my $ta = time();
my @upper = ('A'..'Z');
my @eles = ('a'..'z', 'A'..'Z', '0'..'9');
my $e_len = scalar(@eles);
my $key;
for my $i (1..1000000)
{
   $key = $upper[rand(26)] . join("", map { $eles[rand($e_len)] } (1..6) ) ;
   printf "%s\n", $key;
}
printf STDERR "time usage %.2f", time()-$ta;COPY

for my $i (1..1000000)
{
   $key = $upper[rand(26)];
   grep { $key .= $eles[rand($e_len)] } (1..6);
   printf "%s\n", $key;
}COPY

$start=[System.DateTime]::Now
$num=0
$array=(65..90) + (97..122) + (48..57)
while ($num -lt 10000){
	[char[]](Get-Random -Count 7 -InputObject $array) -join ""
$num+=1
}
([System.DateTime]::Now - $start).TotalSeconds
pauseCOPY

#!/usr/bin/pwsh -nop
$Source = @"
using System.IO;
using System.Linq;
using System;
 
namespace Foo
{
    public static class Bar
    {
        private static Random random = new Random();
        
        public static void RandomString()
        {
            const string chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
            using (var file = new StreamWriter("test.txt")) {
                for (int i = 0; i <= 1000000; i++) {
                    file.WriteLine(new string(Enumerable.Range(1, 7).Select(n => chars[random.Next(n == 1 ? 26 : chars.Length)]).ToArray()));
                }
            }
        }
    }
}
"@
 
Add-Type -TypeDefinition $Source -Language CSharp
 
[Foo.Bar]::RandomString();COPY

use rand::{seq::SliceRandom, FromEntropy};
use rand_xorshift::XorShiftRng;
use std::fs::File;
use std::io::Write;
 
fn main() {
    let chars = b"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
    let mut rng = XorShiftRng::from_entropy();
 
    let mut file = File::create("test.txt").unwrap();
    for _ in 0..1000000 {
        let v = (0..7)
            .map(|n| {
                if n == 0 {
                    *chars.choose(&mut rng).unwrap()
                } else {
                    **(&chars[0..26].choose(&mut rng).unwrap())
                }
            })
            .collect::<Vec<_>>();
        file.write_all(&v).unwrap();
        file.write_all(&[b'\n']).unwrap();
    }
}COPY

let file = File::create("test.txt").unwrap();
let mut file = BufWriter::new(file);COPY

$t=get-date
$chr = 'QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890';
$swr = New-Object IO.StreamWriter('E:\1.Log', $false, [Text.Encoding]::ASCII);
$rnd = New-Object System.Random;
$arr = [Array]::CreateInstance('char', 7);
 
for ($i = 0; $i -lt 1000000; $i++) {
    $arr[0] = $chr[$rnd.Next(26)];
    for ($j = 1; $j -le 6; $j++) {
        $arr[$j] = $chr[$rnd.Next(62)];
    }
    $swr.WriteLine($arr);
}
$swr.Close();
((get-Date) - $t).TotalSecondsCOPY

Include masm32rt.inc
.const
	Table DB 'ACBDFEGHIKJLMOPQNRSTUVWXYZadcbefhigjklnmpoqsrtuvwzyx6578902314'
.data?
	Input db 5 dup (?)
	Num dd ?
	Align 10h
	Buffer db 9*10000+1 dup (?)
.code
	Start:
	Invoke ArgClC,1,Offset Input
	Sub esp,4
	Invoke atodw_ex,Offset Input
	Mov Num,Eax
	Add Esp,4
	
	Lea Esi,Table
	Mov Ecx,Eax
	
	.Repeat
		Push Ecx
		Lea Edi,Buffer
		Mov Ecx,10000
		Align 10h
		.Repeat
			Push Ecx
			Invoke nrandom,26
			Lea Eax,[Eax+65]
			StoSB
			Mov Ecx,6
			Align 4h
			.Repeat
				Push Ecx
				Invoke nrandom,SizeOf Table
				Mov Al,[Eax+Esi]
				StoSB
				Pop Ecx
			.UntilCxZ
			Mov Ax,0A0DH
			Mov Word Ptr [Edi],Ax
			Inc Edi
			Inc Edi
			Pop Ecx
		.UntilCxZ
		Xor Eax,Eax
		StoSB
		Invoke StdOut,Offset Buffer
		Pop Ecx
	.UntilCxZ
	
	
	Invoke ExitProcess,NULL
End StartCOPY