[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 523066680 于 2019-1-15 14:59 编辑

回复 4# CrLf

    测试(特殊字体转了曲线,30kb)
   

    不转曲就小很多,1.6KB
   

你把签名链接里的 www 换成 bbs 吧,这样我们就不会在点进去后的页面处于非登录状态

TOP

本帖最后由 523066680 于 2019-1-15 17:44 编辑

楼上说的对,模仿一个:
  1. use File::Slurp;
  2. my $s=read_file("src.txt");
  3. $s=~s/.*((BENDE|LASTF).*){2}\r?\n//;
  4. print $s;
复制代码
(哦这样不严谨,比如重复的 BENDE BENDE,所以还是克隆好了)
  1. use File::Slurp;
  2. my $s=read_file("src.txt");
  3. $s=~s/.*(BENDE.*LASTF|LASTF.*BENDE).*\r?\n//;
  4. print $s;
复制代码

TOP

本帖最后由 523066680 于 2019-1-16 09:49 编辑

回复 13# CrLf

我有一个蛋疼且不实用的想法:
    用这玩意儿来一段语法高亮的代码。(但肯定不是我实现,我只是消遣区灌水的)

回复  523066680
    这特么加载得多慢
CrLf 发表于 2019-1-15 22:10

这能使加载变慢,想想都exciting

TOP

返回列表