如何输出引号中包含的每个Perl数组元素？
要输出Perl数组中的每个元素，您可以使用foreach循环。以下是一个示例：
#!/usr/bin/perl
use strict;
use warnings;
my @array = ('apple', 'banana', 'cherry');
foreach my $element (@array) {
print "$element\n";
}在这个示例中，我们首先创建了一个名为@array的数组，其中包含三个元素。然后，我们使用foreach循环遍历数组中的每个元素，并使用print语句将其输出到屏幕上。
如果您想要在输出时添加引号，可以将输出语句修改为：
print "'$element'\n";这将在每个元素周围添加单引号。
相关·内容
我正在编写一个Perl脚本，希望能够捕获在命令行中输入的字符串，而不必输入引号(类似于bash的"$@“功能)。我会经常使用这个命令，所以我希望这是可能的。如果我有：
if ($ARGV) {
我必须将命令行字符串放在引号中。我更喜欢这样的命令：
htmlencode some & HTML <> entities
不带引号。有没有办法在Perl中做到这一点？
浏览 2提问于2009-09-09得票数 0
我对perl没有任何经验。我试着理解这句话：
sub get_insert_query {
my ( $self, $event ) = @_;
my $table = $self->get_event_table();
my $sql = qq[ INSERT INTO $table SET ];
my @pairs = map {qq[ `$_` = ? ]} keys %$event;
$sql .= join( ',', @pairs );
return ( $sql, values %$event );
}
在
浏览 4提问于2013-10-29得票数 1
回答已采纳
6回答
我正在通过perl脚本执行unix命令来获取目录的大小。
$path = "/dir1/di2/";
system("du -sh $path");
如何才能在perl脚本中返回结果。
我正在使用
$size = system("du -sh $path");
print $size
但它给了size=0；
浏览 0提问于2012-06-24得票数 0
回答已采纳
我有一个包含以下内容的文件：
Version:2.0
我需要以下格式的输出：
"Version":"2.0"
如何在这些列中插入双引号？
浏览 3提问于2013-02-22得票数 2
回答已采纳
2回答
我想找出双引号之间的所有模式。假设我有一个内容如下的文件：
first matched is "One". the second is here"Two "
and here are in second line" Three ""Four".
我想把以下几个字作为输出：
One
Two
Three
Four
如您所见，输出中的所有字符串都在一对引号之间。
我试过的是这个命令：
grep -Po ' "\K[^"]*' file
如果我在第一对"标记之前有一个空格，那么上面的命令工作得很好。
浏览 0提问于2014-11-12得票数 6
回答已采纳
my @up = `cat abc.txt|head -2|tail -1|cut -d' ' -f1-3`;
而不是将各个字段存储在数组中。它将整个输出作为字符串存储在第一个元素中。
这是我得到的输出
$up[0] = 'xxx 12 234'
我想要这个
@up = ('xxx', 12, 234)
|
浏览 0提问于2016-01-29得票数 2
1回答
我有两个关于perl变量的基本问题。
@names = ('Super_!','Massive_@',"Black#", "Hole*");
print "Top Player: @names[0]\n";
print "Top Player: $names[0]\n";
虽然输出之间没有区别，但尝试访问elements @和$时的实际区别是什么呢？
另外，在声明字符串数组时，在单引号和双引号中定义元素有什么不同？
浏览 10提问于2020-06-13得票数 2
我需要使用逗号拆分CSV文件，并将特定字段输出到其他CSV文件。但是输入CSV文件有一些属性可以包含逗号本身。输入CSV如下所示。
输入CSV
"Bond,newsssss/10172","20100411141114","abc","19530617000000"
"Link","am"an\grew,123\"mn/n","20100411141114","foo"
"20100411141114","foo",&#
浏览 2提问于2016-08-25得票数 1
回答已采纳
1回答
我有一个包含数千个字符串的.txt文档，这些字符串都有类似的布局，但是其中一些行还有我不想要的其他信息。
下面是一个例子：
202212_08,ABC123/A1234,AB,,C123
202212_08,CDEF1233/A5678,FG,,C345
我希望产出如下：
20221208,ABC123,C123
20221208,CDEF1233,C344
我尝试过使用正则表达式，但是我一直得到一个错误，输出是空的。谢谢你的帮助。
浏览 0提问于2022-12-08得票数 0
回答已采纳
我需要转义\n所以在输出中我会得到换行符或制表符
$ perl -p -e 's/e/a/ge'
现在我希望将每个e替换为\n
$ perl -p -e 's/e/\n/ge'
但即使是\n也会给我一个错误。
这是一个简化的例子。在真实的脚本(Makefile)中，我有
substitute := perl -p -e 's/@([^@]+)@/defined $$ENV{$$1} ? $$ENV{$$1} : $$1/ge'
在target中，我有一个很好的命令
$(substitute) $< > $@
如果perl的输入文件在输
浏览 0提问于2010-05-13得票数 4
回答已采纳
我正在使用下面的脚本，但是得到了意想不到的输出。
perl -pi -e '/DB_CHARSET/ and $_.="define('SOMETHING'/, true);\n"' file.txt
此命令添加define(SOMETHING, true);
既然文本的开头是‘然后有’，我该如何逃避‘某件事，这样我才能以define('SOMETHING', true)结束呢？
我试过了\但没什么用。
浏览 0提问于2020-10-28得票数 3
回答已采纳
3回答
我使用awk解析我的数据，使用"，“作为分隔符，因为输入是csv文件。但是，数据中有"，“，它由双引号("...")转义。
示例
filed1,filed2,field3,"field4,FOO,BAR",field5
如何忽略双引号中的逗号"，“，以便使用awk正确解析输出？我知道我们可以在excel中做到这一点，但是我们如何在awk中做到呢？
浏览 4提问于2011-10-18得票数 32
1回答
#!/usr/bin/perl
$test ="@test=hello"; #(Actually am reading this text from File and assigning to a variable)
print "$test";
执行上述代码后，perl输出以下
输出：
=hello instead of @test=hello.
有谁能解释一下。我相信它是考虑为空数组，但我如何避免这个时候和读取一个文件，请澄清我的误解。
谢谢,
浏览 0提问于2018-04-19得票数 1
在Linux中，我使用以下命令显示此输出：
find /backup/$INSTANCE/tsm/* -exec echo '"{}" ' \; | xargs stat --printf "chown %U:%G '%n'\nchmod %a '%n'\n" >> /tmp/permissions.txt
该命令返回的输出如下：
[filipe@filipe ~]$ cat /tmp/permissions.txt
chown filipe:filipe '/backup/filipe/
浏览 0提问于2018-10-24得票数 2
2回答
我有一个大数据文件，其中包含四列，第四列是该行的总价值。我需要能够找到前三列上的前三个值。以下AWK将产生输出，但当它在数据文件的第四列中发现重复总计时会停止。有人能指点我如何在这个AWK中添加一个计数器循环，以便它产生正确的输出吗？
BEGIN { FS="," }
{
site=$1
region=$2
town=$3
totcnt=$4+0
key=site","region","town
if (totcnt >=max) {
max=totcnt
mytot[key]=max
}
浏览 0提问于2019-07-30得票数 0
3回答
我有一个包含数组数目的数组。我试图从每个数组中并行地获取元素。有人能帮帮我吗。
@shuffle= (
[ "george", "jane", "elroy" ],
[ "homer", "marge", "bart" ],
[ "fred", "barney" ]
);
我尝试过这样做，但它按顺序迭代内部数组。
my @fh;
#create an array of open filehandles.
@fh = map {
浏览 4提问于2015-12-30得票数 1
回答已采纳
1回答
我想将第二列中的值小于特定值的行分隔开。
示例输入：
id1 19501112
id2 19831207
id3 20001212
id6 20000101
id10 20061213
id11 20081212
id12 20100109
id13 20101218
id14 20101212
id15 20111111
id16 20150919
id20 20141415
我想提取第二个字段的值小于20100101的行。所以，我的输出是：
id1 19501112
id2 19831207
id3 20001212
id6 20000101
id10 20061213
id11 2008
浏览 0提问于2015-10-01得票数 4
回答已采纳
我想用XYZ替换abc，它在一个名为test.sh的文件中写下了下面的脚本；该文件在终端上使用sh test.sh命令执行
i='abc';
命令：
perl -pi -e 's/$i/XZY/g' /home/user/Desktop/file.txt
gedit file.txt
但是输出结果是：
XYZaXYZbXYZc
XYZ
找不到问题所在。
浏览 1提问于2014-01-09得票数 0
您好，我有两个包含4列的数组，我想用array2的column1中的值减去array1的column1中的值，并从array1的column2中减去array2的值，所以on..example：
my @array1=(4.3,0.2,7,2.2,0.2,2.4)
my @array2=(2.2,0.6,5,2.1,1.3,3.2)
所以所需的输出是
2.1 -0.4 2 # [4.3-2.2] [0.2-0.6] [7-5]
0.1 -1.1 -0.8 # [2.2-2.1] [0.2-1.3] [2.4-3.2]
为此，我使用的代码是
my @diff = map {$array
浏览 1提问于2011-08-16得票数 5
回答已采纳
3回答
我试图弄清楚如何从一个包含一个十进制数的文件中读取一个时间戳，但是我似乎无法得到我想要的输出，任何帮助都是很棒的！提前谢谢。
示例：
[Time since reference or first frame: 691.933275000 seconds]
[Time since reference or first frame: 691.953127000 seconds]
[Time since reference or first frame: 691.992275000 seconds]
[Time since reference or first frame: 691.99759000
浏览 0提问于2015-09-20得票数 0
回答已采纳
我一直在尝试为一个基准程序创建一个包含可变字符数的字符串。我正在尝试使用它来设置我的消息字符串：
messages=`perl -e 'print "X" x $size'`
目标是创建动态数量的字符。例如，如果$size是1，那么将有一个X。如果size是5，那么消息将是XXXXX。这似乎不起作用，并且输出为空。
我是不是误解了什么？
浏览 3提问于2011-06-06得票数 0
回答已采纳
4回答
删除其他行的子行
、、、、
如何删除文件中其他行的子字符串，同时保留包含它们的较长字符串？
我有一个文件，其中包含肽序列作为字符串-每一行一个序列字符串。我希望保留包含所有序列的字符串，并删除文件中其他行的子字符串。
输入
GSAAQQYW
ATFYGGSDASGT
GSAAQQYWTPANATFYGGSDASGT
GSAAQQYWTPANATF
ATFYGGSDASGT
NYARTTCRRTG
IVPVNYARTTCRRTGGIRFTITGHDYFDN
RFTITGHDYFDN
IVPVNYARTTCRRTG
ARTTCRRTGGIRFTITG
预期输出
GSAAQQYWTPANATFYGGSDASGT
IVPVNYA
浏览 7提问于2016-02-23得票数 2
回答已采纳
我正在尝试连接到远程服务器并在Perl脚本中运行ssh命令。我已经提供了正确的端口、主机、用户名和密码。使用相同的凭据，我可以通过终端正确登录。当我在我的代码中提供相同的代码时，我得到了错误响应。请帮帮忙。
下面是我的代码：
use strict;
use Net::SSH::Perl;
my $hostname = "xxx.zzz.ccc.vvv";
my $username = "username";
my $password = "password";
my $cmd = "aws --version";
my $
浏览 21提问于2018-09-10得票数 1
回答已采纳
我最近开始学习perl，并且有一个问题我在Internet上找不到明确的答案。假设我有这样的东西，
@arr = (1, 2, 3);
$scal = "@arr"
# $scal is now 123.
使用引号是否是扁平化数组的唯一方法，以便将每个元素存储在标量值中？这似乎不太可能，但我没有找到任何其他的方法来做到这一点。提前谢谢。
浏览 2提问于2012-04-20得票数 22
回答已采纳
2回答
我试图在下面的代码中添加一个单独的外壳和昏迷，并显示如下所述的数据(预期输出)，但iam无法与coma一起添加单个外壳。
$query ="SELECT * FROM abc WHERE xyz='xyz' And Standard='xyz' ";
$data=mysqli_query($mysqli,$query)or die(mysqli_error());
$ID = array();
while($row=mysqli_fetch_array($data)){
浏览 2提问于2015-07-30得票数 0
回答已采纳
5回答
如何在此命令中将regex替换为$var？
echo "$many_lines" | sed -n '/regex/{g;1!p;};h'
$var可能看起来像fs2@auto-17。
sed命令将输出正则表达式之前的行，但不会输出包含正则表达式的行。
如果使用Perl一行程序可以更轻松地完成所有这些工作，那么对我来说也没问题。
浏览 4提问于2013-03-26得票数 1
回答已采纳
2回答
我有一个清单，上面有我想在另一个清单中寻找的词：
listex = ['cat', 'mouse', 'dog']
另一份清单是我想在上面列出的单词中搜索的：
listsearch = ['Hi there is a rabbit', 'how many dogs?', 'hot weather']
我的想法是对'listsearch‘中每个字符串中的'listex’中的每个单词使用regex。我的目标是获取已匹配的“listsearch”中字符串的索引。就目前而言，我尝试了以下几点
浏览 0提问于2018-06-12得票数 0
回答已采纳
我试图弄清楚如何使用perl的eval来获得单个元素数组。到目前为止，我已经：
use strict;
use warnings;
use Data::Dumper;
sub printit
{
my $param = shift;
my $thing = eval $param;
if (ref($thing) =~ /HASH/ || ref($thing) =~ /ARRAY/) {
print Dumper \$thing;
} else {
print $param . "\n";
}
}
my
浏览 2提问于2015-04-30得票数 2
回答已采纳
2回答
我对这段代码的结果感到困惑。
my @lines;
for (my $count = 0; $count < 3; $count++) {
print "Give me input again ";
chomp (my $line = <STDIN>);
$lines[$count] = $line;
}
$" = "|";
print "@lines\n";
当我运行代码时，$" = "|";是如何工作的？结果是一|二|三。代码是如何工作的，以便将"|“放在每
浏览 0提问于2012-09-03得票数 3
回答已采纳
1回答
有什么好的，简洁的方法来避免接近的序列随机值？例如，在perl中使用rand，但确保任何序列值之间的最小0.2x差异/分布？我已经尝试了一些想法，比如如果值接近就重新采样rand，但是我需要一个脚本，而我不知道如何在一行程序中干净利落地做到这一点。
上下文是这样的:我正在使用perl的命令行执行搜索替换。其思想是，在每一行中，用数组中的随机值替换一个字符串。
echo ":z:z:z:" | tr ':' '\n' | perl -pe '@numbers=(1.2, 3.4, 5.6, 7.8); $number = $numbers[
浏览 10提问于2017-03-11得票数 1
3回答
我有一个包含以下文字的文件：
perl java python php scala
java pascal perl ruby ada
ASP awk php java perl
C# ada python java scala
我想比较每两行并显示共享单词的数量，我编写了一个程序，它显示第一行和其他行之间的共享单词数，第一行和第二行包含2 (perl，java)通用单词，第一和第三行有三个单词，第一和第四行有三个单词。但是我也想比较第二行和第一、第三和第四行，第三行也是一样的，等等。这是我的密码：
open(F,"/home/Bureau/test2/terms.txt")
浏览 2提问于2016-09-02得票数 0
回答已采纳
我有一些如下格式的数据
int,int,'string',int,'string'
每个字符串都包含在'‘中，我的问题是有些字符串包含逗号，如何确保string.split()在'’中不会拆分？
浏览 0提问于2013-05-13得票数 1
回答已采纳
我有一个数组，其中包含要从另一个程序的输出中排除使用grep的字符串。我需要在每个元素之前添加一个-e。例如：
exclude=("$0" /usr/sbin/crond)
needs-restarting | grep -Fwiv "${exclude[@]}"
现在我知道了，在本例中，我可以将--regexp= (或者仅仅是-e)添加到每个元素中，比如：exclude=( "${exclude[@]/#/--regexp=}" )
但在一般情况下，我该怎么做呢？我想出了这个，但也许还有更简单的方法。
i=0
for elem in "
浏览 0提问于2020-07-04得票数 3
回答已采纳
1回答
我想像这样创建一个数组
array=(
"element1 with "quoted string""
"element2 without double quoted string"
"element3"
)
在运行它输出的代码之后
echo ${array[0]}
element1 with quoted.
我正在尝试在echo的输出中包含引号。我该怎么做呢？
浏览 0提问于2019-06-20得票数 0
4回答
我在理解Windows中perl的命令参数引用时遇到了问题。使用以下程序：
use strict;
use warnings;
use File::Find;
use File::Copy;
my $dir = shift;
die 'Usage: perl Folderize.pl <directory>' unless $dir;
die "$dir doesn't exist" unless -d $dir;
根据对目录使用单引号还是双引号，我会得到不同的结果。如果我用'perl script.pl 'H:\Tes
浏览 0提问于2011-05-28得票数 5
回答已采纳
我的perl脚本生成一个vairiable，它具有以下数据：：Dumper输出。
$VAR1 = [
{
'displayName' => 'unconfirmed',
'tagName' => 'unconfirmed'
},
{
'displayName' => 'new',
'tagName' => 'new'
},
{
'displayName' => &
浏览 5提问于2013-02-27得票数 0
回答已采纳
2回答
因此，我在文件的第二和第三列中设置了某些文本，如下所示：
GO:0005634^cellular_component^nucleus`GO:0003677^molecular_function^DNA binding`
我想去掉所有与函数相关的文本，并将输出如下：
GO:0005634`GO:0003677
我不知道如何用sed或awk来处理这个问题
注意:这些行包含不同数量的GO:xxxxxxx。
浏览 0提问于2018-07-05得票数 1
2回答
下面将打印出目录及其内容的字节大小：
ls -lR | grep -v '^d' | awk '{bytes += $5} END {print "Total bytes: " bytes}'
输出如下所示：
Total bytes: 1088328265
如何最简单地修改我的命令，使输出包含逗号分隔的数字，如下所示：
Total bytes: 1,088,328,265
浏览 0提问于2018-10-01得票数 1
2回答
我在Ubuntu中使用Perl。我给一个数组赋值很少，当我打印这个数组时，它会给出一些散列值。
有人能帮我解决这个问题吗？
下面是代码。
#!/usr/bin/perl
my $VAR="you are welcome";
my @arr={'1','2','3','4'};
print @arr;
print $VAR."\n";
print "$$ \n";
以下是输出
HASH(0x140cd80)you are welcome
12548
浏览 2提问于2012-07-28得票数 1
2回答
我有一个这样的文件，它是分开标签的：
name v1 v2 v3 v4
g1 4.5 2.3 2.1 0.2
g2 10 3 5 2.3
g3 7 2.5 2.8 3.9
只需在上面显示一个虚拟文件，其中有5列和4行(包括标题)。我想过滤掉行，这样如果特定行中的每一列都有值>= 2，那么保留该行，否则删除它。输出应该如下所示：
name v1 v2 v3 v4
g2 10 3 5 2.3
g3 7 2.5 2.8 3.9
我怎么才能用awk做这件事？
浏览 0提问于2019-09-04得票数 0
回答已采纳
我有一个包含以下内容的文件：
$ cat file
my name is PARESH.
需要用变量`$REPLACE_WORD的内容替换PARESH“。
perl -pi -e "s/PARESH/$REPLACE_WORD/g" file
问题是变量$REPLACE_WORD中包含特殊字符。
$REPLACE_WORD="c@sc9ey"
浏览 0提问于2017-09-22得票数 0
1回答
我有一个数组，它包含几个字符串。还有另一个包含字符串的数组，这些字符串可能包含在第一个数组中，也可能不包含在第一个数组中。
从数组a中的字符串中移除数组b中的任何字符串的最好方法是什么。我尝试使用grep，如下面的示例所示，但它完全清空了数组。
my @Aray = ('Chris', 'John', 'Paul', 'Max', 'Jim', 'John');
my @Bray = ('Chris', 'John');
foreach $name (@Bray){
浏览 6提问于2016-02-17得票数 0
回答已采纳
1回答
我有一个bash函数，如下所示：
banner(){
someParam=$1
someOtherParam=$2
precedingParams=2
for i in $(seq 1 $precedingParams);do
shift
done
for i in $(seq 1 $(($(echo ${#@}) - $precedingParams)));do
quotedStr=$1
shift
#do some stuff with quotedStr
do
浏览 4提问于2022-09-09得票数 0
回答已采纳
7回答
我一直在试着试着用这个，但它似乎没有点击。如果我有一个包含6个数字的数组：
@a = (1,2,3,4,5,6)
在这种情况下，我如何获得每一个索引( 2，4，6)？
如何计算每两个元素的差异，因此这里的输出如下：
1 1(因为2-1 =1，4-3 =1，等等)
浏览 2提问于2014-07-25得票数 0
回答已采纳
1回答
我正在尝试删除出现在来自dB的字符串中的双引号，因为它会在另一个应用程序中导致流错误。我不能清理dB来删除它们，所以我需要动态替换字符。 我尝试过使用sed、ssed和perl，但都没有成功。这个正则表达式定位有问题的引号，但是当我将它插入sed中，用单引号替换它们时，我的输出仍然包含双引号。 sed "s/(\?<\!\t|^)\"(\?\!\t|$)/'/g" test.txt 我在用Mac，如果这看起来有点奇怪的话。 正则表达式是有效的，但是当我在包含以下内容的制表符分隔的文件上进行测试时： "foo" "rea
浏览 13提问于2019-05-08得票数 0
回答已采纳
我想重命名文件名称中的'SR‘，将'sr’替换为'sr‘。这个成功了：
ls | perl -e 'while(<>){chomp;if(/(.*)sr(.*)/){rename $_,$1."SR".$2}}'
但是这个失败了：
ls | perl -e "while(<>){chomp;if(/sr/){rename $_,$\`.'SR'.($')}}"
出现以下错误消息：
Not enough arguments for rename at -e line 1, ne
浏览 2提问于2017-10-11得票数 0
3回答
我一直在到处寻找这个问题的答案，但我就是不能让它工作。
我有一个输入文件，它是使用Perl读入数组的。该文件是一个包含表的文本文件。Perl将其作为数组读取，其中每个元素都是整行(包括所有五列)。该数组如下所示：
0__len__340 16 324 0 0.0470588235294118
1__len__251 2 249 0 0.00796812749003984
2__len__497 0 497 0 0
3__len__55 7 48 0
浏览 3提问于2014-11-25得票数 5
回答已采纳
我编写了一个基本的Perl脚本，用于生成一组单词的所有可能的唯一组合：
use Algorithm::Combinatorics qw(combinations);
my $strings = [qw(GGGG CCCC TTTT AAAA)];
my $iter = combinations($strings, 2);
while (my $c = $iter->next) {
print "@$c\n";
}
我想知道是否有人能为我指明一个好的方向，说明我如何从.txt文件加载字符串，而不是手动添加字符串(、AAAA等)。我应该声明，我对Perl相当陌生。
我
浏览 4提问于2014-01-08得票数 1
回答已采纳
2回答
我正在编写一个小型perl包装器来设置环境变量等，然后以相同的名称调用一个命令。
./foo.pl -a one -b two -c "1 2 3" -d done
当我输出@ARGV时，大约1~2 3的"“已被删除。有人知道如何让perl保留这些引号吗？
浏览 0提问于2018-08-09得票数 2
回答已采纳
我希望在Perl中以特定格式输出数组的元素。
@myArray = ("A", "B", "C");
$text = something;
内容应该是字符串'"A" "B" "C"‘(每个元素都用双引号括起来)。
但是，如果@myArray为空，那么$text也应该为空。我想过使用join()，比如
$text = "\"" . join("\" \"", @myArray) . "\"";
if ($text
浏览 5提问于2009-04-11得票数 7
回答已采纳
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频
腾讯云开发者
