• Re: 求推荐个 带笔 能有平板模式的笔记本电脑

    1、surface pro

    2、ipad pro 加个键盘

    04月29日
  • Re: 小白请教windows下怎么安装JSON::XS

    我在JSON::XS的文档里看到了这样一段话,不知道你注意了没。

    # Note that JSON version 2.0 and above will automatically use JSON::XS

    # if available, at virtually no speed overhead either, so you should

    # be able to just:

    use JSON;

    # and do the same things, except that you have a pure-perl fallback now.

    我最近也使用过Perl的JSON包来爬信息,不知道你是不是只用到这个程度

    贴代码:

    use JSON;

    use Encode;

    use LWP::Simple;

    use Excel::Writer::XLSX;

    use utf8;

    use POSIX qw(strftime);

    my $abc = 'http://10.push2.eastmoney.com/api/qt/clist/get?pn=1&pz=20&po=1&np=1&ut=bd1d9ddb04089700cf9c27f6f7426281&fltt=2&invt=2&fid=f3&fs=m:1+t:2,m:1+t:23&fields=f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f12,f13,f14,f15,f16,f17,f18,f20,f21,f23,f24,f25,f22,f11,f62,f128,f136,f115,f152';

    my $data = get $abc;

    my $temp = decode_json($data);

    my $sum = $temp->{'data'}->{'total'};

    my $url = 'http://10.push2.eastmoney.com/api/qt/clist/get?pn=1&pz='.$sum.'&po=1&np=1&ut=bd1d9ddb04089700cf9c27f6f7426281&fltt=2&invt=2&fid=f3&fs=m:1+t:2,m:1+t:23&fields=f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f12,f13,f14,f15,f16,f17,f18,f20,f21,f23,f24,f25,f22,f11,f62,f128,f136,f115,f152';

    my $content = get $url;

    my $obj = decode_json($content);

    my $t = strftime "%Y%m%d%H%M%S", localtime;

    my $workbook = Excel::Writer::XLSX->new('shanghaistockexchange'.$t.'.xlsx');

    $worksheet = $workbook->add_worksheet();

    @name = ('股票名称', '股票代码', '最新价','跌涨幅','跌涨额','成交量','成交额','振幅','换手率','市盈率','量比','最高','最低','今开','昨收');

    $name_ref = \@name;

    $worksheet->write_row(0,0,$name_ref);

    my $i = 1;

    for my $item(@{$obj->{'data'}->{'diff'}}){

    my @array;

    $array[0] = $item->{'f14'};#股票名称

    $array[1] = $item->{'f12'};#股票代码

    $array[2] = $item->{'f2'}; #最新价

    $array[3] = $item->{'f3'} eq '-' ? '-' : $item->{'f3'}."%"; #跌涨幅

    $array[4] = $item->{'f4'}; #跌涨额

    $array[5] = $item->{'f5'}; #成交量

    $array[6] = $item->{'f6'}; #成交额

    $array[7] = $item->{'f7'} eq '-' ? '-' : $item->{'f7'}."%"; #振幅

    $array[8] = $item->{'f8'} eq '-' ? '-' : $item->{'f8'}."%"; #换手率

    $array[9] = $item->{'f9'}; #市盈率

    $array[10] = $item->{'f10'}; #量比

    $array[11] = $item->{'f15'};#最高

    $array[12] = $item->{'f16'};#最低

    $array[13] = $item->{'f17'};#今开

    $array[14] = $item->{'f18'};#昨收

    $array_ref = \@array;

    $worksheet->write_row( $i, 0, $array_ref );

    $i++;

    }

    $workbook->close();

    【 在 soundwater 的大作中提到: 】

    : 好像是的。。。

    : 谢谢了

    03月31日
  • Re: 小白请教windows下怎么安装JSON::XS

    ppm是active perl带的,现在貌似没有了。

    windows下cpan安装得用dmake,你找个dmake,才能cpan安装。

    并且也不会那么顺利,毕竟不是Linux环境。

    为了速度快,建议cpan换源,否则下载一个大的包,一小时都有可能。

    03月27日
  • Re: 精神分裂发作的时候的确很痛苦。

    话说车田正美在创作海斗士的剧情时,因为海洋太少,故意拆分了大西洋和太平洋。弄了一个北大西洋斗士、南大西洋斗士,北太平洋斗士,南太平洋斗士,就是为了多打斗几场。

    02月14日
  • Re: 为啥黑衣人组织没有叫茅台,五粮液的呀?

    柯南感冒的时候,第一次喝老白干是TV版50集左右的案子,外交官事件,大概97年就播出了。

    02月12日
  • Re: 现在win10自带utuntu?

    2016年那会,安装启用后只能用命令行,打开图形界面都得用特殊手段。

    至于现在怎么样了,没试过,网上有很多文章都介绍这个,你自己搜索搜索。

    02月02日
  • Re: 才发现高木涉警官的配音也叫高木涉。。。

    山口胜平同时配工藤新一和怪盗基德。

    安室透的CV也很著名,响当当的古谷彻,星矢啊!!

    说道CV,我最佩服的还是那些40-50岁的大妈配少年,高山南配柯南,竹内顺子配漩涡鸣人,这些大妈声音才有特点。

    02月01日
  • Re: 为什么有些男的喜欢追求刺激?

    能换7得靠实力,得有物质基础,物质基础不是男人奋斗出来的吗?与你说的拼命工作不就关联起来了吗?

    02月01日
  • Re: 现在win10自带utuntu?

    我记忆力不太好,win10自带ubuntu不是2016年的新闻吗?

    最近的一条有关windows的新闻应该是windows7停止服务支持了吧

    02月01日
  • Re: 前几天回学校拍的

    看到西一照片时,泪目了,读大一的时候西一是一层楼,在西华清真食堂旁边

    02月01日
  • Re: 瘟疫来袭,大家是不是正好在家编程练习

    你这个链接就是我的第二个贴的url

    【 在 crella126 的大作中提到: 】

    : 用ruby+erb搞了一个超简陋的网页版,主代码:https://paste.ubuntu.com/p/R9PGsrc5cB/ 网页代码: https://paste.ubuntu.com/p/HjmcMqywW2/

    : 需要gem install json open-uri sinatra,

    : 用贴里那个数据链接是不对的,跟网页的数据对不上,应该用 https://view.inews.qq.com/g2/getOnsInfo?name=disease_h5

    : ...................

    02月01日
  • Re: 瘟疫来袭,大家是不是正好在家编程练习

    有个技巧,转成Python的字典结构后,你用pprint打印,可以看到清晰的结构,再来写代码。

    【 在 callmebbser 的大作中提到: 】

    : 下载到的这个JSON串,里面的双引号都加了斜杠转义,有必要吗?数了下有11048个斜杠。

    : 还有,js的字典的key必须用双引号包起来吗?

    : 若斜杠和双引号都没有必要,这个JSON串长度大概可以缩小30K字节。

    : ...................

    02月01日
  • Re: 瘟疫来袭,大家是不是正好在家编程练习

    我不是程序员,大学毕业9年了,本科那时候只学过C。

    可视化就让你们这些专业人士来搞了。

    【 在 sanbeichahe 的大作中提到: 】

    : 可以做成可视化吧

    02月01日
  • Re: 瘟疫来袭,大家是不是正好在家编程练习

    你用chrome浏览器打开腾讯的全国疫情图,打开开发者工具,在network里找

    【 在 dmyk 的大作中提到: 】

    : 你怎么知道哦啊哦url啊

    02月01日
  • Re: 瘟疫来袭,大家是不是正好在家编程练习

    今天腾讯更新了url以及数据的数据结构,上代码

    import json

    import requests

    url = 'https://view.inews.qq.com/g2/getOnsInfo?name=disease_h5&callback'

    res = requests.get(url).json()['data']

    data = json.loads(res)

    def showupdatetime(data):

    print(str(data['lastUpdateTime']))

    def showeverycity(data):

    list0 = data['areaTree']

    list1 = list0[0]

    list2 = list1['children']

    for province in list2:

    templist = province['children']

    print(province['name'] + "省详情:")

    for item in templist:

    print(str(item['name']) + "累计确诊:" + str(item['total']['confirm']) + "例,疑似:" + str(item['total']['suspect'])+ "例,死亡:"+str(item['total']['dead']) + "例,治愈:"+str(item['total']['heal'])+"例;")

    showupdatetime(data)

    showeverycity(data)

    01月31日
  • Re: 瘟疫来袭,大家是不是正好在家编程练习

    自己写的代码,粘贴过来的时候格式变了,见谅。

    01月30日
  • Re: 瘟疫来袭,大家是不是正好在家编程练习

    不说了,直接上代码

    import json

    import requests

    import datetime

    url = 'https://view.inews.qq.com/g2/getOnsInfo?name=wuwei_ww_area_counts&callback'

    res = requests.get(url).json()['data']

    data = json.loads(res)

    list_data = []

    for item in data:

    if item['country'] == '中国':

    list_data.append(str(item['country']) + str(item['area'])+str(item['city']) + "确诊:" + str(item['confirm']) + "例,疑似:" + str(item['suspect'])+ "例,死亡:"+str(item['dead']) + "例,治愈:"+str(item['heal'])+"例;")

    print (str(datetime.datetime.now()) + "\n")

    for item in sorted(list_data):

    print (item)

    01月30日
  • Re: 世间的温暖很多。

    坚信世上善良的人多是件美好的事情

    01月23日
  • Re: 现在又开始幻想了。

    如果吃的是奥氮平

    可以加强体育锻炼

    不然会有糖尿病风险

    找点事让自己忙起来,分散注意力

    满足自己的执念,不是重新上大学吗?你去尝试学点现在大学的知识,例如Python编程

    关于练武和法术,你可以类比下自己与电视剧,动漫里的人物,你看鸣人是个不折不扣的吊车尾,没父没母,克服了所有的障碍,学了那么多忍术,得到了大家的尊重,你去学习下他永不放弃的精神,坚信自己一定能走出困境

    还可以找到信仰,例如看圣经,坚信有神力助你走出困境

    01月23日
  • Re: 这个板块好冷清

    按TV版播放顺序:

    前一两百集死的卧底,我还真想不起来

    90年代TV版死的黑衣组织 我只记得 龙舌兰 宫野明美 皮斯克

    自杀未露脸的卡尔瓦多斯也是2003年左右死的

    当然如果按历史:

    对于卧底

    你可以说 苏格兰 死的更早

    对于探员

    可以说FBI 朱蒂圣提米利翁 的 爸爸 死得也早

    【 在 sardinesha 的大作中提到: 】

    : 早期,我觉得是前一二百集吧

    01月14日