Linux perl 编译快多了

crella95 · 2026年03月03日 · 最后由 asaka 回复于 2026年04月05日 · 932 次阅读

perl5 编译快多了,上次编译看得眼花,这次大概十分钟就编译完了

0 楼 已删除

在线安装程序是基于 firefox 开发的,正常安装还是 YaST

某台低配置 intel 电脑,在设备管理器删除 sata 和显卡驱动,运行速度反而变快了好多

4 楼 已删除
5 楼 已删除
6 楼 已删除

有人用 ruby 写 wiki vuxu.org/vuxi/vuxi

vuxi is a very simple static Wiki compiler.

Source is available on github.

I use vuxi git-driven, the pages reside in a git repository on kaja, and there is a post-receive hook that updates the site:

#!/bin/sh
cat >/dev/null
cd ..
GIT_DIR=.git git checkout -f master
cd ..
ruby vuxi.rb
Then I just need to git push and the site will update automatically.

Created: Sun, 10 Jan 2010 20:10:39 +0100
Updated: Fri, 16 Jul 2021 17:05:19 +0200
Copyright © 2007–2021 Leah Neukirchen.

https://github.com/chneukirchen/vuxi/

8 楼 已删除
9 楼 已删除
10 楼 已删除
11 楼 已删除

perl use curl_easy ok. Download movie .ts/.m3u8:

use strict; use warnings;
use Net::Curl::Easy qw(/^CURLOPT_/ );
sub writef{ my $fn = shift; my $con = shift; open(my $wf, ">", $fn); binmode($wf);
print $wf $con; close($wf);}
my $pwdd = `pwd`;
my $uid = int(substr($pwdd, length($pwdd)-3, 2) ); if ($uid > 0){print "XXXX uid=".$uid."\n";} else { die "not good Uid";}# die();
if (-e "object.html"){} else {
system("curl -o object.html https://mm.yuyu80.com/vplay/hhq/62329-1-".$uid.".html");
open(my $oh, "<object.html"); my $fkey = "";
while (<$oh>) {
  my $ij = index($_, "gsuus.com/play/");
  if ($ij > 0){ $fkey = substr($_, $ij+15, 8); print $fkey."\n";#die;
  }
}
print $fkey."\n";#die;
system("curl -o index.m3u8 https://v.gsuus.com/play/hls/".$fkey."/index.m3u8");
system("curl -o enc.key https://v.gsuus.com/play/hls/".$fkey."/enc.key");
}
open(my $rm, "<index.m3u8"); my $ii = 0;
sub ncurl {
  my $fn = shift; my $adr = shift; my $fb = "";
  my $cursor = Net::Curl::Easy->new();
  $cursor->setopt(CURLOPT_FILE, \$fb);$cursor->setopt(CURLOPT_URL, $adr);
  $cursor->perform();
  writef($fn, $fb);
}

while (<$rm>) {
  my $jb = index($_, "/58"); 
  if ($jb > 0){ my $ys = substr($_, $jb+13); $ii = int(substr($ys, 0, length($ys)-3));
 $ys = "plist".$ii.".ts";
    if (-e $ys){} else {
    ncurl($ys, "https://gs.gszyi.com:999/hls/703/20250811".substr($_, $jb, 7)."/".$ys);
      #system("axel link;;
    }  }
}

wayland 客户模式仅在游戏和视频播放那里提升画质,在日常使用与 xorg 差别不大,亏我还天天想办法切换到 wayland,难道 linux 上面没有企业要做图形用户界面吗?

我怀疑 ffmpeg 组放飞自我,是不是吃药吃得太多了

没看太懂

需要 登录 后方可回复, 如果你还没有账号请 注册新账号