-
Perl打印hashref值
所属栏目：[大数据] 日期：2020-12-16 热度：86
我似乎无法打印hashref的值. 我可以这样打印键： foreach (sort keys %$wss_href) { print "$_n"; } 我想打印每个键的值： 所以我试过了： print "$_ = $wss_href{$_}n"; print "$_ = $%$wss_href{$_}n"; 并且它一直给我一个错误全局符号“％wss_href”需[详细]
-
散列解除引用的Perl Hash
所属栏目：[大数据] 日期：2020-12-16 热度：134
我只是在学习perl. 我试图使用临时变量重写这个多级循环,这样我就不需要以前的键($key1 $key2)来获取对$key3的访问(解除引用).这样做最简单的方法是什么.谢谢. for my $key1 ( keys %foo ){ for my $key2 ( keys %{$foo{$key1}} ) { for my $key3 ( keys %{$[详细]
-
macos – Perl：包含引号和反引号的系统命令
所属栏目：[大数据] 日期：2020-12-16 热度：97
我试图从Perl中发送一个OSX命令.但是我很茫然,因为该命令包含引号和反引号,我无法弄清楚如何转义这两个字符并获得一个功能系统命令. 这是终端命令： /usr/bin/osascript -e’告诉应用程序“系统事件”告诉进程“终端”按键命令“k”使用命令’ 感谢您的任何[详细]
-
perl – 获取数组的实际值
所属栏目：[大数据] 日期：2020-12-16 热度：190
我已经搜索了在Perl中返回数组的偶数和奇数元素的示例,并使用map和grep查看了一些示例. @array = ('a','b','c','d','e','f','g');@list = grep {$_ % 2} 0..$#array; 我试图从给定的数组返回b,d,f但它只返回数字而不是实际值. 如何获得实际值？ 解决方法 使[详细]
-
Perl在void上下文中无用的私有变量
所属栏目：[大数据] 日期：2020-12-16 热度：127
我看了 How can I resolve this case of “Useless use of a variable in a void context”?,它说要使用.连接这是我做的,但我仍然是警告. 在/ mysz / bin / heer第79行的void上下文中无用的私有变量. 43 sub getLog { 44 opendir(my $dh,$_[0]) || die "can'[详细]
-
perl – 使用单行命令删除多行模式
所属栏目：[大数据] 日期：2020-12-16 热度：52
我想删除文件中的所有空段. 空段可以由一对以START开头并以END结尾的连续行指定.有效段将在以START开头并以END结尾的行之间具有一些内容 样本输入 HeaderSTART argumentsENDAny contentsSTART arguments...something...ENDFooter 期望的输出 HeaderAny conte[详细]
-
从perl脚本中提取用户名
所属栏目：[大数据] 日期：2020-12-16 热度：150
我想在脚本本身中提取用户名,执行perl脚本. 我从perl执行whoami linux命令如下,它工作得很好. my $whoami = `whoami`;chomp $whoami;print $whoami; 我的目的是摆脱从perl脚本调用系统命令.因此我在寻找Perl唯一的解决方案.我想知道是否有可用的CPAN模块可以[详细]
-
使用散列和数组的组合的Perl表达式
所属栏目：[大数据] 日期：2020-12-16 热度：58
我很难理解一段代码.声明是： push(@{$errorfile{$var}},$filepath); 我相信push用于将值附加到数组的末尾.但上面的表达让我很困惑.有一个哈希值,并且使用了@符号(通常与数组名称一起使用).在代码的开头,“errorfile”声明为： my %errorfile; 有人可以帮帮[详细]
-
这个perl正则表达式的含义是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：57
the regex expression is as below:if ($ftxt =~ m|/([^=]+)="(.+)"|o) { ..... } 这个正则表达式似乎与许多其他正则表达式不同.让我困惑的是“|”,大多数正则表达式使用“/”而不是“|”.而且,group([^ =])也让我感到困惑.我知道[^ =]的意思是“字符串的开[详细]
-
如何编写一个perl if语句来测试使用正则表达式找到字符串的次数
所属栏目：[大数据] 日期：2020-12-16 热度：192
我正在尝试编写一个包含if语句的perl脚本,我希望这个if语句检查在保存的字符串中是否通过正则表达式找到了一定数量的字符串.如果可能的话,我想在一行中做到这一点,想象如下： $saved_string = "This abc is my abc test abc";if( #something_to_denote_count[详细]
-
Perl`use` – import不会被调用两次？
所属栏目：[大数据] 日期：2020-12-16 热度：147
怀疑perl基础知识的使用 它有点类似于我的其他问题Perl: Two packages in same file… 考虑一个perl脚本： Script.pl use INCLUDES; INCLUDES.pm package INCLUDES;use Exporter;############# MY DOUBT STARTS HERE ###############use Module1;use Module2[详细]
-
perl – 从重音字符中删除重音符号
所属栏目：[大数据] 日期：2020-12-16 热度：69
参见英文答案 How to convert letters with accents,umlauts,etc to their ASCII counterparts in Perl?????????????????????????????????????4个 我正在寻找建议我应该使用哪些库和/或函数将国际文本转换为它的英文字符替代品. 例如 Vous avez aimé l'ép[详细]
-
perl – 如何在每个星期六的特定时间运行脚本？
所属栏目：[大数据] 日期：2020-12-16 热度：62
在unix系统下.. 我想在每个星期六运行一个perl脚本A.pl.我尝试了下面的代码,它的工作原理.但我想知道是否存在任何其他代码可以工作,但不会在繁忙的循环中继续检查时间？ while(1){ @Time = localtime(); if( $Time[6] eq "6" ) { `perl A.pl`; }} 解决方法[详细]
-
使用Perl删除目录和子目录中具有给定扩展名的文件
所属栏目：[大数据] 日期：2020-12-16 热度：62
我是一个Perl新手.我试图删除目录(A)及其所有子目录(B,C)中具有特定扩展名的所有文件.我已经学会了如何为给定的目录这样做,但不是递归的.以下是A目录中的作业,但不是B,C子目录中的作业. use strict; use warnings; my $dir = "~/A/"; unlink glob "$dir/*.lo[详细]
-
Perl：读取文件时跳过N行
所属栏目：[大数据] 日期：2020-12-16 热度：80
在解析文本文件时,如何跳过第9行？ 这就是我得到的 use strict; use warnings;open(my $fh,'','file.txt') or die $!;my $skip = 1;while ($fh){ $_=~ s/r//; chomp; next if ($skip eq 9) $skip++;} 不确定这是否有效,但我确信这样做更有说服力. 解决方法[详细]
-
检查perl中是否存在返回始终为true
所属栏目：[大数据] 日期：2020-12-16 热度：200
我在perl中有一个子例程来检查数组是否包含特定元素,如果它包含返回TRUE,否则为false ..下面的代码应该重新返回false,因为搜索的元素http_TestABC不在数组中但仍然返回TRUE.无法弄清楚为什么会发生这种情况.任何指针赞赏 谢谢 #!/usr/bin/perluse strict;use[详细]
-
Perl嵌套哈希哈希
所属栏目：[大数据] 日期：2020-12-16 热度：193
我在根据文本输入确定如何在perl中创建嵌套哈希时遇到了一些麻烦. 我需要这样的东西 my % hash = {key1 = %inner-hash,key2 = %inner-hash2} 然而我的问题是我不知道apriori会有多少内部哈希.为此,我编写了以下片段来测试是否可以在循环中创建str变量,并将[详细]
-
perl – 按使用频率随机选择字母
所属栏目：[大数据] 日期：2020-12-16 热度：188
在将少量莎士比亚书籍送到我的Perl脚本后,我有一个哈希,其中包含26个英文字母作为键,以及它们在文本中出现的次数 – 作为值： %freq = ( a = 24645246,b = 1409459,.... z = 807451,); 当然还有所有字母的总数 – 让我们说在$total变量中. 是否有一个很好的[详细]
-
perl完全字符串匹配
所属栏目：[大数据] 日期：2020-12-16 热度：57
我有跟随Perl代码提示用户是/否答案.如果用户输入的内容不是是/否,请继续提示.没有其他词是可以接受的.我不知道为什么这段代码不起作用.我测试了回答“noooooo”,我希望它再次提示,但它不会进入while循环. 任何人都可以帮忙找到我的错误吗？ @files = A,B,C;[详细]
-
使用引用指向Perl中的滑动窗口数组
所属栏目：[大数据] 日期：2020-12-16 热度：166
这是我的问题：我有2个数组.一个是字符数组,表示一个滑动窗口.字符从头开始移动并在结尾处推送.我想使用第二个数组来存储对数组切片的引用,这些数组切片在它们移动时“跟随”字符.例： my @char_array = ('h','e','l','o','w','r','d');my $char_arr_ref=[@c[详细]
-
数组 – Moose数组属性：如何使用set方法？
所属栏目：[大数据] 日期：2020-12-16 热度：124
我想将一个数组定义为一个类的属性,并在实例化类时用一些数据填充它. 我认为可以使用$self- attribute- set($id,$value)方法来设置给定索引上的元素.至少这是我从Moose documentation中理解的. 但是,当我尝试 use Data::Dumper qw( Dumper );use Moose;has c[详细]
-
regex – 如何在字符串中包含字符串的所有数字子串？
所属栏目：[大数据] 日期：2020-12-16 热度：147
我想转换一个字符串,以便所有数字子序列都包含在{…}对中. 例如： input_string = "APPL[E]5XXXX"output_string = "APPL[E]{5}XXXX" 每个字符串可能包含一个或多个数字,例如BASIC76XXXXX98ZZZZ,输出应为BASIC {76} XXXXX {98} zzzz 不确定这是否可能实现.任[详细]
-
Perl dbi sqlite’select * ..’只返回第一个elem
所属栏目：[大数据] 日期：2020-12-16 热度：113
有一个perl dbi sqlite的问题. 我已经设置了一个数据库(并使用sqlite命令行进行了检查). 现在我想搜索这个无效的数据库. 所以我试着做一个’SELECT *’ 这只会打印数据库中的第一个元素,但不会打印此表中的所有内容. 我认为导致select *失败的错误是相同的,[详细]
-
perl – 为什么可以在布尔上下文中评估`defined $x \u0026&#
所属栏目：[大数据] 日期：2020-12-16 热度：60
my $target_type = (defined($item-{target_type}) $item-{target_type}) ? $item-{target_type} : "";my $target_id = (defined($item-{target_id}) $item-{target_id}) ? $item-{target_id} : ""; 为什么开发人员使用几乎相同的条件？ 解决方法 显然他是腰[详细]
-
Perl Regex：尝试修改只读值
所属栏目：[大数据] 日期：2020-12-16 热度：102
我试图在将它与正则表达式匹配后替换字符串中的空格. my $string = "watch download Buffy the Vampire Slayer Season 1 Episode 1 Gorillavid";if ($string =~ m!(Seasonsd+sEpisodesd+)!){ $1 =~ s!s+!!g; say $1;} 现在当我运行上面的代码时,我尝试[详细]
