重构现有的perl subs
重构现有的 Perl subs 是指对已有的 Perl 子程序进行重构，以改进其可读性、可维护性和性能。重构是一种优化代码结构和设计的过程，旨在提高代码质量和效率。
重构现有的 Perl subs 的优势包括：
- 可读性提升：通过重构，可以使代码更易读、更易理解。采用清晰的命名、合理的代码结构和注释，使其他开发人员能够更快地理解代码的意图和功能。
- 可维护性增强：重构可以使代码更易于维护。通过减少重复代码、提取公共函数和模块化代码，可以降低代码的复杂性，减少潜在的 bug，并且在需要修改代码时更容易进行调整。
- 性能优化：重构可以改进代码的性能。通过优化算法、减少不必要的计算和提高代码执行效率，可以使程序更快速、更高效。
重构现有的 Perl subs 的应用场景包括：
- 代码维护：当需要修改或添加功能时，重构现有的 Perl subs 可以使代码更易于理解和修改，减少引入新 bug 的风险。
- 性能优化：当代码执行效率较低或存在性能瓶颈时，重构可以通过优化算法和改进代码结构来提高性能。
- 代码复用：当多个子程序之间存在重复代码时，可以通过重构将重复代码提取为公共函数，以便在不同的地方进行复用。
腾讯云相关产品和产品介绍链接地址：
- 云函数（Serverless）：腾讯云云函数是一种事件驱动的无服务器计算服务，可帮助开发者在云端运行代码，无需关心服务器管理。详情请参考：https://cloud.tencent.com/product/scf
- 云数据库 MySQL 版（CDB）：腾讯云云数据库 MySQL 版是一种高性能、可扩展的关系型数据库服务，适用于各种规模的应用程序。详情请参考：https://cloud.tencent.com/product/cdb
- 云原生容器服务（TKE）：腾讯云云原生容器服务是一种高度可扩展的容器管理服务，支持容器化应用程序的部署、管理和扩展。详情请参考：https://cloud.tencent.com/product/tke
请注意，以上仅为腾讯云的部分相关产品，其他云计算品牌商也提供类似的产品和服务。
相关·内容
1回答
从perl程序导入单个子例程
perl、perl-module
有没有办法从Perl脚本中导入/导出单个子例程？我被要求将测试用例分为肯定测试和否定测试，我不想复制整个子例程。但是，如果我从否定中require或use肯定的测试用例，我会得到一个redefined警告，所有通常命名的subs。
浏览 4提问于2013-07-09得票数 3
回答已采纳
2回答
perl闭包和regexp变量
perl
我在$1的闭包和perl变量中发现了一个可能的bug。简单地说，它们不能混合在一起。use warnings;
push @subs, sub{print $1;};您可能会认为perl现在将打印所有的数字-相反，我收到了来自未定义的$1的10这真的是一个bug吗，或者我只是在perl文档中遗漏了
浏览 2提问于2011-01-27得票数 4
回答已采纳
2回答
如何计算perl代码中每个子元素的行数呢？
perl、statistics
我正在重构一个相当大的代码体，当我在思考如何继续进行时，一个深奥的问题来到了我面前。这段代码在很大一部分中需要的是subs的缩写。因此，在目录中指定某种类型的统计信息收集器将是非常有利的，它将遍历所有的.pm、.cgi和.pl文件，找到所有的subs (如果它只获取指定的subs，我就很好)，并给我一个包含所有subs的表，以及它们的行数
浏览 2提问于2010-08-09得票数 4
回答已采纳
9回答
如何导出Perl包中的所有subs？
perl、function、export、subroutine
我想在我的命名空间中公开所有的subs，而不必一次列出一个：使用完全限定名称将需要对现有代码进行大量更改要回答Jon的原因:现在为了快速重构，我想将一堆subs移到它们自己的包中，最大限度地减少麻烦，并对现有脚本进行代码更改(这些subs是当前经常使用且经常重复的)。
而且，大多数情况下，我只是好奇。
浏览 1提问于2009-04-08得票数 22
回答已采纳
2回答
如何有条件地在perl脚本中使用线程？
multithreading、perl
我有一个我开发的perl脚本，它在具有不同版本的perl的主机上运行，有时使用线程编译，有时不使用。我有一个并且我所有的线程特定代码都处于类似的条件中。但是，在编译阶段，perl仍然会阻塞线程：：all、线程：：运行等。
如何确保我的脚本可以同时在线程和非线程perls上运行？[ worr on worr-mn1 ] ( manage_usr_local_admin ) % perl</em
浏览 0提问于2013-07-04得票数 4
回答已采纳
2回答
Perl中不区分大小写的GREP
linux、perl、grep
我有一个Perl脚本，它使用严格的我希望通过使用区分大小写的比较和我所拥有的var来实现grep数组中的一个元素。$#aHeaderLine;Bareword "i" not allowed while "strict subs" in use谢谢
浏览 2提问于2013-08-21得票数 1
回答已采纳
1回答
在已经传递该哈希的子例程中将散列传递给子例程。
perl、hash、perl-data-structures
我正在处理将散列传递给各个子程序的方法，我想知道如何将散列传递给子例程，然后将该子例程中的相同哈希传递给不同的子例程，以此类推。use strict; key1 => 'value1', key3 => 'value3',);
check_it(\%hash
浏览 1提问于2014-03-18得票数 0
回答已采纳
1回答
PPI：：文档错误或某个特殊的子例程名称？
perl、parsing、ppi
Foo.pm：sub foo1 { 1; }sub foo3 { 1; }
我想使用PPI来获取所有的subs：use PPI;my $Document = PPI::Document->new($filename);
my $subs= $Document->find('PPI::
浏览 1提问于2012-01-30得票数 5
回答已采纳
几年前，除了我最简单的Perl脚本之外，我对所有的脚本都采用了以下“模式”：(我甚至不记得在哪里第一次看到它，这肯定不是我真正的想法)。use strict;sub main {}##########我发现代码有点干净，但除此之外，我不确定这是否有任何目的，除了让我的C程序员高兴:-)
感谢来自Perl专家和高级用户的任何见解。(我肯定都不是)
浏览 0提问于2011-07-20得票数 18
回答已采纳
2回答
如何将perl散列中的键的备用字符也用作键？
perl、hash、key、alternate
但是我不能对所有的键-值对都这样做，因为有太多的可能性。谢谢..
浏览 1提问于2012-02-17得票数 0
回答已采纳
2回答
如何以跨平台的方式有选择地使用Win32::Console及其常量？
perl、cross-platform
首先，我正在使用Perlv5.8.4，并且我没有能力升级Perl或安装Term::ReadKey或IO::Prompt (或者实际上是核心之外的任何东西)，所以在回答/评论时请考虑到这一点。我正在尝试编写一个完全自包含的Perl脚本，该脚本(以及其他内容)将提示输入密码。它需要在Windows、AIX和Solaris之间跨平台兼容。我不希望它在输入密码时回显密码。这就是我所拥有的： if ($^O eq 'MSWin32') {
require Win32::Consol
浏览 0提问于2012-02-03得票数 0
回答已采纳
2回答
当静态作用域中没有任何变量时，我在perl中的行为如何？
perl、reference、scoping、lifetime-scoping
下面是第一个示例：sub A { local $y=3; # $y uses dynamic soping print "In A: g=$g, x=$x, y=$y\n";}
print "In B: g=$g, x=$x, y=$y\n";}
print "In B: g=$g, x=$x, y=$y\n"
浏览 9提问于2019-11-15得票数 0
3回答
使用命名参数在perl脚本中运行perl脚本
perl、ipc
我正在编写一个Perl程序，它必须在不同的输入上多次运行几个Perl脚本。system($^X, token="valid_tokens.txt", "/Users/cat/perl5/bin/statistic.pl", "ll.pm", "lab01_jav_bi
浏览 0提问于2018-04-09得票数 3
回答已采纳
1回答
选择大型表上的查询
sql-server、tsql、stored-procedures
我需要检查/重构一个以表(10+数千行)为目标的现有存储过程。存储过程签名不易更改，如下所示。因为表只能通过这个存储过程访问，所以索引是一个非群集的WHERE列，并且包含所有的SELECT列。CREATE PROCEDURE [dbo].(Item Varchar(20) COLLATE database_default)SELECT Item FROM [SplitDelimitedVarChar] (@subscribers, '|') ORDE
浏览 3提问于2012-10-30得票数 0
2回答
有没有办法让多个链在Catalyst中共享同一个端点？
perl、catalyst、chaining、endpoint
我是一个Catalyst新手，我正在尝试让多个链访问相同的端点('description‘子例程)，例如：/object/fetch_by_name/*/description例如，我不想为3个单独的端点编写代码，而是允许端点在三个不同的链接操作之间共享。我包装了一个后端API，在这个示例中，可以通过不同的方法检索对象。sub description : Chained('fetch_by_id','
浏览 0提问于2011-08-23得票数 7
回答已采纳
4回答
在Perl中进行单元测试和模拟对象的好框架是什么？
perl、unit-testing、mocking、bdd
对于Perl中的单元测试和模拟对象，您会推荐哪些框架和工具？对于单元测试和模拟对象，您会推荐哪些框架和工具？例如，类似于Java的和？另外，有没有好的基于BDD (行为驱动开发)的Perl测试框架？
浏览 3提问于2009-10-05得票数 12
回答已采纳
2回答
更改Android中的包名，包括点数
android、android-studio、gradle
我在Android中有一个现有的项目，比如com.pete.mike.joe.appname。如果我想将它更改为com.pete.appname，我将如何做到这一点？我读过关于更改androidmanifest.xml和build.gradle文件以及重构com.pete.mike.joe.appname值的文章，但是当您想要删除一些点值时，我从未见过这样的例子。
浏览 2提问于2019-09-23得票数 1
linux上的perl-5.24.0-gcc620use strict;our\n";现在，我想使用"some_sub“，使用的perl脚本不会运行执行IO::Tee代码的"common”子程序。因此，$tee将是未定义的，并且当我尝试使用它时，我会得到编译错误。然后保留所有现有的"print $tee ...“单独的语句。
但这给了我一个
浏览 3提问于2020-11-17得票数 2
1回答
如何修改文件夹名
perl
English].by K@rtik [ExD Exclusive]Gaf-DVDRip-AVIkaslf.kasl .Ljasj [2007] - x264 - AAC - 1 CD DVDRip - ESubs - MDG
我希望所有的名字在每个字符串之间都有一些相似之处，应该有一个空格，即“Wc (2012) - DVDRip - 1CD - XviD - Subs
浏览 2提问于2012-09-21得票数 0
回答已采纳
3回答
测试框架选择
testing、frameworks、automated-tests、robotframework
目前，我们有一个自己开发的Perl脚本，它遍历输入文件，调用AWK脚本，该脚本反过来连接到服务器，然后收集输出并将其与保存的输出文件进行比较。这是在Linux上完成的。目前只有100多个测试。我们正在计划一次重大的重构，我想首先修改测试系统和测试。
在考虑框架需求时，我想要一个系统，它可以在逻辑上将测试收集到测试套件中，自动检测测试文件，并可以创建测试先决条件/依赖项。我宁愿扩展现有的系统，也不愿繁重地提升现在运行测试的非常小的Perl脚本。Perl不是必需的。事实上，我更喜欢使用Python，
浏览 0提问于2010-02-08得票数 4
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
