小编Twi*_*ler的帖子

我想知道是否有任何方法可以使此脚本更快，例如立即创建1000个帐户，或者至少在几秒钟内创建一个帐户。我已经尝试过自己做一些异步的事情，但这是我所能做到的，我只是异步编程的初学者，所以可以提供任何帮助。

import asyncio
import aiohttp


async def make_numbers(numbers, _numbers):
    for i in range(numbers, _numbers):
        yield i

async def make_account():
   url = "https://example.com/sign_up.php"
   async with aiohttp.ClientSession() as session:
          async for x in make_numbers(35691, 5000000):
              async with  session.post(url, data ={
                    "terms": 1,
                    "captcha": 1,
                    "email": "user%s@hotmail.com" % str(x),
                    "full_name": "user%s" % str(x),
                    "password": "123456",
                    "username": "auser%s" % str(x)
              }) as response:
                    data = await response.text()
                    print("-> Creating account number %d" % x)
                    print (data)

loop = asyncio.get_event_loop()
try:
    loop.run_until_complete(make_account())
finally:
    loop.close()

我收到一个错误，我无法找到解决方案......我已经花了几个小时，但还没有找到任何解决办法。你能帮我一下吗 ？它在 perl 中，这是我正在使用的代码。

method getMusicInformation($strMusicID) {
    my $strLink = "https://www.googleapis.com/youtube/v3/videos?id=YqeW9_5kURI&key=AIzaSyBpzQDzTu7e59mxD9HxYP3MTdlCUWzuirQ&part=snippet";
    my $strDetails = get($strLink);
    my $arrDetails = decode_json($strDetails);
    while (my($key, $value) = each(%{$arrDetails})) {
        if (ref($value) eq 'ARRAY') {
            while (my($second_key, $second_value) = each(@{$value})) {
                return $second_value;
            }
        }
    }

}

我在控制台中出现了错误：

Error: malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "(end of string)") at Server/Systems/Music.pm line 38.

第 38 行是：

my $arrDetails = decode_json($strDetails);

谢谢你的理解。