perl5 编译快多了,上次编译看得眼花,这次大概十分钟就编译完了
有人用 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.
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 上面没有企业要做图形用户界面吗?