问题标签 [perlscript]

我需要您在teamsite（V6.7）编码中使用工作流生成两个文件的帮助/建议意味着“如何使用两个不同的tpl文件（desktop.tpl和mobile）在两个不同的位置（在同一个分支中）生成一个页面。 tpl）但相同的 DCR（abc.xml）”我也猜到了这样的想法/场景，即是否可以在现有工作流中添加任何 Perl 脚本，并同时使用工作流将桌面文件提交到桌面位置（/servername/default/main/sitefoldername /desktopsite/) 那么这个工作流也会在移动位置生成同名文件(servername/default/main/sitefoldername/mobilesite/mobilepages/) 如果可以开发这种脚本，请告诉我这将是一个很大的帮助如果您可以为此提供最佳解决方案，请告诉我。

我有一个 xml 文件，我必须从中找到重复项。

我的 XML 文件看起来像这样

我想找到所有元素名称的计数

我尝试使用以下代码首先将所有名称放入文本文件中：

但这会抛出一个错误说Can't find LibXML。

我有一个文件数组。现在我需要 cat 每个文件并搜索 file 中的关键字列表keywords.txt。

我的keywords.txt包含在下面

我期待输出如下

我想在脚本中的字符串中使用“/”（正斜杠），但出现以下错误。

我有以下applescript来替换文件中的内容。

以下代码有效，因为没有特殊符号。

但是下面的代码不起作用，因为它有“/”。

上面的代码包含</b>抛出以下错误：

如果我添加<\/b>，它会引发以下错误。

有人可以向我提出解决方案吗？

嗨，我是 perl 的初学者。我遇到了这个声明并阅读了 Stackoverflow 中的一些答案，这些答案说它检查非零文件大小。请解释一下。

请提供任何建议或片段或任何可能有用的东西。

我已经尝试过想要的功能，但是如何在递归时排除某些目录？

我面临从字符串中删除键盘表情的问题。键盘表情符号显示在 URL 中所以我使用这个正则表达式来删除表情符号，但这个正则表达式也会从字符串中删除中文字符。我希望正则表达式只删除键盘表情而不是任何字符。键盘表情图标属于 utf8mb4 字符集。

$str =~ s/[\x00-\x1F\x80-\xFF]+\s*//g;

$str =~ s/\xEE[\x80-\xBF][\x80-\xBF]|\xEF[\x81-\x83][\x80-\xBF]+\s*//g;

$str =~ s/([0-9#][\x{20E3}])|[\x{00ae}\x{00a9}\x{203C}\x{2047}\x{2048}\x {2049}\x{3030}\x{303D}\x{2139}\x{2122}\x{3297}\x{3299}][\x{FE00}-\x{FEFF}]?|[ \x{2190}-\x{21FF}][\x{FE00}-\x{FEFF}]?|[\x{2300}-\x{23FF}][\x{FE00}-\x{ FEFF}]?|[\x{2460}-\x{24FF}][\x{FE00}-\x{FEFF}]?|[\x{25A0}-\x{25FF}][\x{ FE00}-\x{FEFF}]?|[\x{2600}-\x{27BF}][\x{FE00}-\x{FEFF}]?|[\x{2900}-\x{297F }][\x{FE00}-\x{FEFF}]?|[\x{2B00}-\x{2BF0}][\x{FE00}-\x{FEFF}]?|[\x{1F000 }-\x{1F6FF}][\x{FE00}-\x{FEFF}]|[\x{D83E}][\x{DD13}-\x{DD14}]?+\s*//g ;

$str =~ s/([0-9|#][\x{20E3}])|[\x{00ae}\x{00a9}\x{203C}\x{2047}\x{2048}\ x{2049}\x{3030}\x{303D}\x{2139}\x{2122}\x{3297}\x{3299}][\x{FE00}-\x{FEFF}]?| [\x{2190}-\x{21FF}][\x{FE00}-\x{FEFF}]?|[\x{2300}-\x{23FF}][\x{FE00}-\x {FEFF}]?|[\x{2460}-\x{24FF}][\x{FE00}-\x{FEFF}]?|[\x{25A0}-\x{25FF}][\x {FE00}-\x{FEFF}]?|[\x{2600}-\x{27BF}][\x{FE00}-\x{FEFF}]?|[\x{2900}-\x{ 297F}][\x{FE00}-\x{FEFF}]?|[\x{2B00}-\x{2BF0}][\x{FE00}-\x{FEFF}]?|[\x{ 1F000}-\x{1F6FF}][\x{FE00}-\x{FEFF}]?+\s*//g;

我在下面尝试将数据写入二维数组（array_source），但最终变成了一维数组（array_source）。下面是代码片段，请查看并告诉我将其写入二维数组的方法，以便它可以。

一旦将数据检索到 array_source 中，如何将其与另一个 2D 数组进行比较并列出匹配集？

例子 ：

阵列 1 - 源阵列 [100 5100、101 5100、102 6000、104 7879、444 287299、771 111]

数组 2 - 应与源进行比较 [100 5100, 101 5200, 102 0, 772 800, 104 7879]

数组 3 - 这应该是输出 - 单维 [100, 104]

请为上述数组保留对齐，并将 1 和 2 视为二维，将 3 视为一维。

我E.1.1.1在一个变量中有值，我想E111存储在不同的变量中。

上面的代码改变了$var1变量中的值。我想尝试如下。

建议怎么做。我是 Perl 的新手。

我可以通过动态取名来调用子程序吗？

功能E111：

有可能这样做吗？