Split perl out

include/source.h

@@ -34,48 +34,50 @@ typedef struct {
  * 我们目前根据 https://github.com/mirrorz-org/oh-my-mirrorz 挑选速度前10位
  */
 MirrorSite
-  MirrorZ       = {"mirrorz", "MirrorZ",       "MirrorZ 校园网镜像站",       "https://mirrors.cernet.edu.cn/",  NULL},
+MirrorZ       = {"mirrorz", "MirrorZ",       "MirrorZ 校园网镜像站",       "https://mirrors.cernet.edu.cn/",  NULL},
 
-  Tuna          = {"tuna",    "TUNA",          "清华大学开源软件镜像站",     "https://mirrors.tuna.tsinghua.edu.cn/",
+Tuna          = {"tuna",    "TUNA",          "清华大学开源软件镜像站",     "https://mirrors.tuna.tsinghua.edu.cn/",
                  "https://mirrors.tuna.tsinghua.edu.cn/speedtest/1000mb.bin"},
 
-  Sjtug_Zhiyuan = {"sjtu",    "SJTUG-zhiyuan", "上海交通大学致远镜像站",     "https://mirrors.sjtug.sjtu.edu.cn/",
+Sjtug_Zhiyuan = {"sjtu",    "SJTUG-zhiyuan", "上海交通大学致远镜像站",     "https://mirrors.sjtug.sjtu.edu.cn/",
                  "https://mirrors.sjtug.sjtu.edu.cn/ctan" Big_File_ctan},
 
-  Zju           = {"zju",     "ZJU",           "浙江大学开源软件镜像站",     "https://mirrors.zju.edu.cn/",
+Zju           = {"zju",     "ZJU",           "浙江大学开源软件镜像站",     "https://mirrors.zju.edu.cn/",
                  "https://mirrors.zju.edu.cn/debian" Big_File_debian},
 
-  Lzuoss        = {"lzu",     "LZUOSS",        "兰州大学开源社区镜像站",     "https://mirror.lzu.edu.cn/",
+Lzuoss        = {"lzu",     "LZUOSS",        "兰州大学开源社区镜像站",     "https://mirror.lzu.edu.cn/",
                  "https://mirror.lzu.edu.cn/CTAN" Big_File_ctan},
 
-  Jlu           = {"jlu",     "JLU",           "吉林大学开源镜像站",         "https://mirrors.jlu.edu.cn/",
+Jlu           = {"jlu",     "JLU",           "吉林大学开源镜像站",         "https://mirrors.jlu.edu.cn/",
                  "https://mirrors.jlu.edu.cn/_static/speedtest.bin"},
 
-  Bfsu          = {"bfsu",    "BFSU",          "北京外国语大学开源软件镜像站","https://mirrors.bfsu.edu.cn/",
+Bfsu          = {"bfsu",    "BFSU",          "北京外国语大学开源软件镜像站","https://mirrors.bfsu.edu.cn/",
                  "https://mirrors.bfsu.edu.cn/speedtest/1000mb.bin"},
 
-  Pku           = {"pku",     "PKU",           "北京大学开源镜像站",         "https://mirrors.pku.edu.cn/",
+Pku           = {"pku",     "PKU",           "北京大学开源镜像站",         "https://mirrors.pku.edu.cn/",
                  "https://mirrors.pku.edu.cn/debian" Big_File_debian},
 
-  Bjtu          = {"bjtu",    "BJTU",          "北京交通大学自由与开源软件镜像站", "https://mirror.bjtu.edu.cn/",
+Bjtu          = {"bjtu",    "BJTU",          "北京交通大学自由与开源软件镜像站", "https://mirror.bjtu.edu.cn/",
                  "https://mirror.bjtu.edu.cn/archlinux" Big_File_archlinux},
 
-  Sustech       = {"sustech", "SUSTech",       "南方科技大学开源软件镜像站",  "https://mirrors.sustech.edu.cn/",
+Sustech       = {"sustech", "SUSTech",       "南方科技大学开源软件镜像站",  "https://mirrors.sustech.edu.cn/",
                  "https://mirrors.sustech.edu.cn/site/speedtest/1000mb.bin"},
 
-  Ustc          = {"ustc",    "USTC",          "中国科学技术大学开源镜像站",  "https://mirrors.ustc.edu.cn/",
+Ustc          = {"ustc",    "USTC",          "中国科学技术大学开源镜像站",  "https://mirrors.ustc.edu.cn/",
                  "https://mirrors.ustc.edu.cn/CTAN" Big_File_ctan},
 
-  Hust          = {"hust",    "HUST",          "华中科技大学开源镜像站",     "https://mirrors.hust.edu.cn/",
+Hust          = {"hust",    "HUST",          "华中科技大学开源镜像站",     "https://mirrors.hust.edu.cn/",
                  "https://mirrors.hust.edu.cn/debian" Big_File_debian},
 
 // 速度暂时处于10位以后，但是目前可用的源
-  Nju           = {"nju",     "NJU",           "南京大学开源镜像站",         "https://mirrors.nju.edu.cn/",
+Nju           = {"nju",     "NJU",           "南京大学开源镜像站",         "https://mirrors.nju.edu.cn/",
                  "https://mirrors.nju.edu.cn/archlinux" Big_File_archlinux};
 
-
+/**
-// @ccmywish: [2023-09-05] 我只使用了不到5次，重庆大学镜像站就把我的ip封杀了，对用户来说封杀策略过严，暂时不可靠，暂时不用
+ * @note by:ccmywish {
-//
+ *   [2023-09-05] 我只使用了不到5次，重庆大学镜像站就把我的ip封杀了，对用户来说封杀策略过严，暂时不可靠，暂时不用
+ * }
+ */
 //  Cqu       = {"cqu",     "CQU",           "重庆大学开源软件镜像站",     "https://mirrors.cqu.edu.cn/",
 //               "https://mirrors.cqu.edu.cn/speedtest/1000mb.bin"};
 
@@ -105,13 +107,10 @@ MirrorSite
   Sohu     = {"sohu",    "SOHU",     "搜狐开源镜像站",      "https://mirrors.sohu.com/",
               "https://mirrors.sohu.com/deepin-cd" Big_File_deepin};
 
-
 // 开源社区
 MirrorSite
   NugetOrg   = {"nuget.org",   "NuGet Org",    "Nuget Organization", "https://www.nuget.org/",  NULL};
 
-
-
 MirrorSite
   Upstream = {"upstream",     "Upstream",     "上游默认源",     NULL,     NULL};
 MirrorSite
@@ -128,22 +127,6 @@ typedef struct {
 
 
 static SourceInfo
-/**
- * @time 2024-05-24 更新
- * @ref https://help.mirrors.cernet.edu.cn/CPAN/
- */
-pl_perl_sources[] = {
-  {&Upstream,       NULL},
-  {&Bfsu,          "https://mirrors.bfsu.edu.cn/CPAN/"},
-  {&Tuna,          "https://mirrors.tuna.tsinghua.edu.cn/CPAN/"},
-  {&Bjtu,          "https://mirror.bjtu.edu.cn/cpan/"},
-  {&Hust,          "https://mirrors.hust.edu.cn/CPAN/"},
-  {&Ali,           "https://mirrors.aliyun.com/CPAN/"},
-  {&Lzuoss,        "https://mirror.lzu.edu.cn/CPAN/"}
-},
-
-
-
 /**
  * @time 2024-04-18 更新
  * @note 缺少教育网或开源社区软件源
@@ -787,7 +770,7 @@ wr_tex_sources[] = {
 #define def_sources_n(t) const size_t t##_sources_n = xy_arylen(t##_sources)
 
 
-def_sources_n(pl_perl);     def_sources_n(pl_php);
+def_sources_n(pl_php);
 def_sources_n(pl_rust);
 def_sources_n(pl_java);     def_sources_n(pl_clojure);
 def_sources_n(pl_dotnet);   def_sources_n(pl_dart);      def_sources_n(pl_haskell);

src/chsrc.c

@@ -25,44 +25,7 @@
 #include "recipe/lang/ruby.c"
 #include "recipe/lang/python.c"
 #include "recipe/lang/nodejs.c"
-
+#include "recipe/lang/perl.c"
-
-void
-pl_perl_check_cmd ()
-{
-  chsrc_ensure_program ("perl");
-}
-
-void
-pl_perl_getsrc (char *option)
-{
-  pl_perl_check_cmd ();
-  // @ccmywish: 注意，prettyprint 仅仅是一个内部实现，可能不稳定，如果需要更稳定的，
-  //            可以使用 CPAN::Shell->o('conf', 'urllist');
-  //            另外，上述两种方法无论哪种，都要首先load()
-  char *cmd = "perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->prettyprint('urllist')\" ";
-  chsrc_run (cmd, RunOpt_Default);
-}
-
-/**
- * Perl换源，参考：https://help.mirrors.cernet.edu.cn/CPAN/
- */
-void
-pl_perl_setsrc (char *option)
-{
-  SourceInfo source;
-  chsrc_yield_source (pl_perl);
-  chsrc_confirm_source (&source);
-
-  char *cmd = xy_strjoin (3,
-  "perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->edit('urllist', 'unshift', '", source.url, "'); CPAN::HandleConfig->commit()\"");
-  chsrc_run (cmd, RunOpt_Default);
-
-  chsrc_note2 ("请您使用 perl -v 以及 cpan -v，若 Perl >= v5.36 或 CPAN >= 2.29，请额外手动调用下面的命令");
-  puts ("perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->edit('pushy_https', 0);; CPAN::HandleConfig->commit()\"");
-  chsrc_say_lastly (&source, ChsrcTypeSemiAuto);
-}
-
 
 
 void
@@ -1969,7 +1932,7 @@ wr_anaconda_setsrc (char *option)
 
 
 /************************************** Begin Target Matrix ****************************************/
-def_target(pl_perl); def_target(pl_php);
+def_target(pl_php);
 def_target(pl_rust);   def_target(pl_java); def_target(pl_dart); def_target(pl_ocaml);
 def_target(pl_r);     def_target(pl_julia);
 def_target_noget (pl_clojure);

src/recipe/lang/perl.c

@@ -0,0 +1,62 @@
+/** ------------------------------------------------------------
+ * SPDX-License-Identifier: GPL-3.0-or-later
+ * -------------------------------------------------------------
+ * Contributors  : Aoran Zeng <ccmywish@qq.com>
+ * Created on    : <2023-09-06>
+ * Last modified : <2024-08-09>
+ * ------------------------------------------------------------*/
+
+/**
+ * @time 2024-05-24 更新
+ * @ref https://help.mirrors.cernet.edu.cn/CPAN/
+ */
+static SourceInfo
+pl_perl_sources[] = {
+  {&Upstream,       NULL},
+  {&Bfsu,          "https://mirrors.bfsu.edu.cn/CPAN/"},
+  {&Tuna,          "https://mirrors.tuna.tsinghua.edu.cn/CPAN/"},
+  {&Bjtu,          "https://mirror.bjtu.edu.cn/cpan/"},
+  {&Hust,          "https://mirrors.hust.edu.cn/CPAN/"},
+  {&Ali,           "https://mirrors.aliyun.com/CPAN/"},
+  {&Lzuoss,        "https://mirror.lzu.edu.cn/CPAN/"}
+};
+def_sources_n(pl_perl);
+
+
+void
+pl_perl_check_cmd ()
+{
+  chsrc_ensure_program ("perl");
+}
+
+void
+pl_perl_getsrc (char *option)
+{
+  pl_perl_check_cmd ();
+  // @ccmywish: 注意，prettyprint 仅仅是一个内部实现，可能不稳定，如果需要更稳定的，
+  //            可以使用 CPAN::Shell->o('conf', 'urllist');
+  //            另外，上述两种方法无论哪种，都要首先load()
+  char *cmd = "perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->prettyprint('urllist')\" ";
+  chsrc_run (cmd, RunOpt_Default);
+}
+
+/**
+ * Perl换源，参考：https://help.mirrors.cernet.edu.cn/CPAN/
+ */
+void
+pl_perl_setsrc (char *option)
+{
+  SourceInfo source;
+  chsrc_yield_source (pl_perl);
+  chsrc_confirm_source (&source);
+
+  char *cmd = xy_strjoin (3,
+  "perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->edit('urllist', 'unshift', '", source.url, "'); CPAN::HandleConfig->commit()\"");
+  chsrc_run (cmd, RunOpt_Default);
+
+  chsrc_note2 ("请您使用 perl -v 以及 cpan -v，若 Perl >= v5.36 或 CPAN >= 2.29，请额外手动调用下面的命令");
+  puts ("perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->edit('pushy_https', 0);; CPAN::HandleConfig->commit()\"");
+  chsrc_say_lastly (&source, ChsrcTypeSemiAuto);
+}
+
+def_target(pl_perl);