-
需要perl one liner来获取特定内容并且可能对其进行平均
所属栏目：[大数据] 日期：2020-12-16 热度：166
我有一个文件,其中有许多行包含“x_y = XXXX”,其中XXXX可以是从0到某个N的数字. 现在, a)我想在每一行中只获得该行的XXXX部分. b)我想得到平均值 可能这两个都在一个衬里. 我正在尝试像 cat filename.txt | grep x_y | (this need to be filled) 我不知道该[详细]
-
perl – 将行转换为VIM中的列
所属栏目：[大数据] 日期：2020-12-16 热度：52
我有一个如下的数据文件： ----------------------------a b c d e .............A B C D E .............---------------------------- 但我希望它采用以下格式 ----------------------------a Ab Bc Cd De E......---------------------------- 在VIM或Per[详细]
-
设置要在Perl IO :: File中读取的行
所属栏目：[大数据] 日期：2020-12-16 热度：111
如何根据行号(而不是字节)更改文件句柄中指针的位置？ 我想将第一行设置为开始读取文件.这样做的正确方法是什么？ 解决方法 设置文件指针不是自己的目的.如果要读取某一行,请使用 Tie::File. use Tie::File qw();tie my @file,'Tie::File','thefilename' or[详细]
-
perl – 为什么undef变成空字符串？
所属栏目：[大数据] 日期：2020-12-16 热度：123
use strict;use warnings;use Data::Dumper;my %h;my $undef = undef;$h{''}='test2';$h{$undef} = 'test';print Dumper (%h); 创建以下输出： $VAR1 = { '' = 'test' }; 为什么会这样？ 我有Perl 5.12.3. 谢谢你的时间. 解决方法 所有哈希键都是字符串.用[详细]
-
在Perl中使用XPath
所属栏目：[大数据] 日期：2020-12-16 热度：75
我试图使用Perl复制我的C#/ XPath代码在 Linux上的作用.我在 Perl XML中复制并粘贴了例8-6中的代码.如果我理解正确,我应该可以运行该Perl代码,将此代码放在终端中 xmlPerl.pl mydatafile.xml "/inventory/category/item/name" 但是当我尝试运行Perl文件时,它[详细]
-
perl – 可以为依赖于用户输入的模块编写自检吗？
所属栏目：[大数据] 日期：2020-12-16 热度：140
是否可以为依赖于用户输入的模块编写自检,或者通常不会这样做,因为用户输入错误的可能性太大了？ 编辑： 假设我有一个函数在用户点击up_key时返回Hello World – 然后在测试错误键击的后果之前我想测试如果按下up_key,函数是否返回真正的Hello World. 解决方[详细]
-
Perl中的未定义数组
所属栏目：[大数据] 日期：2020-12-16 热度：189
是否有可能以某种方式指示Perl中的数组是否未定义或为空？我发现自己遇到了一些情况,我希望能够区分一个空数组和一个尚未填充的数组(或由于某种原因未能填充). 例如,使用数组引用我可以这样做： my $apples;$apples = get_apples();if(defined $apples){if(s[详细]
-
在Perl中交换两个数组值的最有效方法
所属栏目：[大数据] 日期：2020-12-16 热度：85
我很好奇在Perl中交换数组中两个元素的最有效方法是什么. 假设我想分别用3和5的索引切换元素,那么最快的方法是什么？ 我的想法是这样的： @array[3,5] = @array[5,3]; 这非常有效吗？我希望如果这两个数组值包含大量数据,那就不会有什么不同.我希望后端能够[详细]
-
perl – 此CPAN错误是什么意思？
所属栏目：[大数据] 日期：2020-12-16 热度：176
我想安装IO :: Uncompress :: Gunzip,所以我这样做 perl -MCPAN -e shell 安装CPAN 安装IO :: Uncompress :: Gunzip 我明白了 cpan[11] install IO::Uncompress::GunzipRunning install for module 'IO::Uncompress::Gunzip'Running make for P/PM/PMQS/IO-C[详细]
-
数组 – 哈希数组元素的副本
所属栏目：[大数据] 日期：2020-12-16 热度：67
我的哈希数组： @cur = [ { 'A' = '9872','B' = '1111' },{ 'A' = '9871','B' = '1111' } ]; 预期结果： @curnew = ('9872','9871'); 任何只获取第一个哈希元素值的简单方法 这并将其分配给一个数组？ 解决方法 首先,您的数组必须定义为 my @cur = ( { 'A' =[详细]
-
Perl Hash引用
所属栏目：[大数据] 日期：2020-12-16 热度：176
所以我正在尝试编写一个子程序,它接受一个哈希参数,并为它添加几个键值对(通过引用).到目前为止,我有这个： addParams(%params);sub addParams{ my(%params) = %{$_[0]}; #First argument (as a hash) $params{"test"} = "testing";} 但出于某种原因,它似乎[详细]
-
perl – 批量重命名目录中的文件名
所属栏目：[大数据] 日期：2020-12-16 热度：106
我有一些文件名如下： 01_dpm_gsi_182.sl502_dpm_devel_gsi_182.sl503_DPM_DSI_181.sl504_globus_httpd_122.sl505_globus_httpd_client_cgi_132.sl5 如何重命名这些文件,以便我得到一些类似的东西： 01_dpmgsi_s2011e01.sl502_dpmdevelgsi_s2011e02.sl5.....[详细]
-
Perl NULL终止字符串
所属栏目：[大数据] 日期：2020-12-16 热度：139
我使用 Net::SMPP包来处理SMPP协议. 其中一个协议参数应为NULL终止字符串. 当我发送它时,我做： my $receipted_message_id = '222221'." "; 当我收到它时,我剥去了最后一个角色. 有没有更好的方法在Perl中使用“C String”？ 解决方法 您可以使用简单的替换[详细]
-
如何在Perl中获取连续的单词对
所属栏目：[大数据] 日期：2020-12-16 热度：58
用这句话： my $sent = "Mapping and quantifying mammalian transcriptomes RNA-Seq"; 我们想要获得所有可能的连续单词对. my $var = ['Mapping and','and quantifying','quantifying mammalian','mammalian transcriptomes','transcriptomes RNA-Seq']; 有[详细]
-
需要帮助在Perl中创建一个简单的正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：177
在创建正则表达式模式时,我仍然没用.这个必须非常简单. 给出字符串：/home/users/cheeseconqueso/perl.pl 我想将字符串./放在最后一个/原始字符串的前面,以生成：/home/users/cheeseconqueso/./perl.pl 在此先感谢 – 我确信这个简单的例子将帮助我解决许多[详细]
-
perl – 可用的Storable模块是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：67
我很难理解 Storable 的作用. 我知道它将一个变量“存储”到你的磁盘中,但为什么我需要这样做呢？我将使用此模块,我将如何操作？ 解决方法 想到的原因： 在脚本调用中保留内存 跨不同进程共享变量(有时无法管道填充) 当然,这不是 Storable 所做的全部.它也是[详细]
-
Perl：如何测试是否已将任何值(甚至为零)分配给散列键
所属栏目：[大数据] 日期：2020-12-16 热度：113
是否有正确的测试方法,如果已经为特定的哈希键分配了任何值,即使该值为零？我一直在处理这样的声明： %hash=();$hash{a}=1;$hash{b}=0;if($hash{$key}) { do something } 但是,对于已经被触摸的键和已被赋值为0的键(例如,$hash {b}和$hash {c}都计算为’fals[详细]
-
perl – 如何获取目录及其子目录中的文件句柄？
所属栏目：[大数据] 日期：2020-12-16 热度：66
因此,我最近注意到在脚本中使用了opendir,并希望稍微更改它,以便它返回目录的子文件夹中的文件以及目录本身中的文件.在调查之后,我无法为opendir找到任何类型的递归选项,并且在使用glob返回标量时遇到了麻烦.因此,我认为只要问一下：在dir及其子目录中处理所[详细]
-
Perl：网站抓取时出现意外行为
所属栏目：[大数据] 日期：2020-12-16 热度：103
我正在使用WWW :: Mechanize和 HTML :: TokeParser来解析网站以获取更新.我无法在网站上提供任何详细信息,因为它需要登录.该网站基本上有一个数据表.我只是解析html直到我到达表的第一行,检查它是否是我最后一次刮的值,如果没有发送邮件.当我在现有表条目上[详细]
-
Perl,在另一个标量中按名称访问变量
所属栏目：[大数据] 日期：2020-12-16 热度：99
我很确定这适用于perl,但我不知道如何编写代码. 我可以用eval想象它,但那不是我想要的. my $foo = 0;my $varname = "foo";$($varname) = 1; # how to do this? # I want to access a scalar that name is in a other scalar# so $foo should be 1 now. 谢谢[详细]
-
perl – 如何在qx中使用__FILE__？
所属栏目：[大数据] 日期：2020-12-16 热度：85
我试图在Perl脚本的顶部分配一个常量,如下所示： use constant { # ... CONSTNAME = qx{readlink -e __FILE__} || __FILE__,# ...}; __FILE__未在qx运算符内插入,导致此失败.如何实现我想要的,即在调用shell的readlink之前插入__FILE__. 请注意：不能将命令[详细]
-
regex – Perl：在遇到某个字符后删除其余的字符串
所属栏目：[大数据] 日期：2020-12-16 热度：162
我正在清理文件中的数据.因此,我读取每一行并检查某些条件并在文件中执行适当的操作.我需要做的一件事是检查字符串中字符$的出现.如果找到我需要删除该行的其余部分,包括$.例如,如果该行是 abc$hello-goodbye 我需要得到 abc 如何使用最少的代码在Perl中执行[详细]
-
perl – 如何在另一个数组中存储变量数组？
所属栏目：[大数据] 日期：2020-12-16 热度：103
我有一个关于在另一个数组中保存数组的perl查询.在( How do I add an array ref to the middle of an existing array in Perl?)之前询问了一个相关的查询,但我找不到我的答案,所以我在这里发帖. 我有10个文本文件,每个文件大约有100行文本.我想选择包含“重[详细]
-
perl – 创建gzip压缩文件的最佳方法
所属栏目：[大数据] 日期：2020-12-16 热度：200
我需要改变我的例程并使最终的outfile被gzip压缩.我试图弄清楚在perl子例程中调用已处理文件的最佳方法是什么. 例如,我有一个创建文件的子例程(extract_data). 这是主循环和子例程： foreach my $tblist (@tblist){ chomp $tblist; extract_data($dbh,$tblis[详细]
-
快速perl sigint处理程序
所属栏目：[大数据] 日期：2020-12-16 热度：72
接收Ctrl C时,处理程序清理最方便,最清晰的方法是什么？ 例如,当我的套接字服务器以这种方式被杀死时,TCP套接字永远不会被关闭.我希望在程序顶部放置一个很好的衬管,以便在终止程序之前设置一个sigint处理程序(或类似atexit之类的东西)来关闭某些套接字(或进[详细]
