小编I a*_* am的帖子

我想根据值绘制不同颜色的图形.我写了下面的代码,

np_graph <- data.frame(C1 = -5:5, C2 = -5:5)
x=np_graph2$C1
y=np_graph2$C2
plot(x,y,xlab="PC1",ylab="PC2")

现在,如果X的值> 0,那么该值应为绿色(在图中).如果Y的值> 0,则该值应为红色(在图中).

有人可以帮助我吗？

我通过两种方式使用split函数.第一种方式:

my $string="chr1.txt";
my @array1=split(".",$string);
print $array1[0];

我收到此错误: Use of uninitialized value in print

当我通过第二种方式分裂时,我没有任何错误.

my @array1=split(/\./,$string);print $array1[0];

我的第一种分裂方式不仅仅适用于点.

有人可以解释一下这背后的原因吗？

我想用perl编程构造一个关键字树.下面是示例,关键字"Apple,Apropos,Banana,Bandana,Orange"的关键字树如下所示.

这是我第一次使用perl处理树木.而且,当我在perl中搜索关键字树时,我找不到足够的信息.我不期待完整的代码.告诉完成任务的起点.这对我很有帮助.

提前致谢.

我正在努力将每个单词中的所有元音加倍.例如:

$string="if it rains, cover with umbrella";

这是我写的代码,但我没有得到正确的输出.

$string=~s/a|e|i|o|u/aa|ee|ii|oo|uu/gi; print $string;

预期产出: iif iit raaiins cooveer wiith uumbreelaa

有人可以帮助我吗？

我需要在散列中打印基于vales的键.我写道,这是代码

foreach $value (values %hash)
{
    print "$value\t$hash{$value}\n";
}

错误:我只能打印值,但不能打印键.

任何帮助将不胜感激.

谢谢

我有一个包含数值的字符串.我想以相反的顺序显示数值.

一个不起作用的想法是使用内置的反向功能:

my $j = "12,11,10,9";
my $k = reverse($j);
print $k;

但该代码输出:

9,01,11,21

我们想要的时候:

9,10,11,12

我正在使用该Tree::Trie模块来构建关键字树.我想按原始数组中的顺序打印数组的元素.

use strict;
use warnings;

use Tree::Trie;

my @ar = ('foo', 'great','food', 'banana','apple', 'fish');

my ($trie) = new Tree::Trie;
$trie->add(@ar);
my @ms  = $trie->lookup('f');
print join(",", @ms);

输出是

fish,foo,food

期望的输出

foo,food,fish

有人可以帮助我吗？

如果数组中存在键,我想从哈希中打印该键及其值.这是我写的代码.

for($i=0;$i<@array.length;$i++)
{
    if (exists $hash{$array[$i]})
    {
        print OUTPUT $array[$i],"\n";
    }
}

从上面的代码,我可以打印键.但我不知道如何打印该密钥的值.

有人能帮我吗？

谢谢

这是我的任务命令.

find -name myname.tar
tar -xvf myname.tar
rm -r myname/*

这些多行命令工作正常,但我需要一行命令.然后我用这个命令,

find -name myname.tar | tar -xvf myname.tar | rm -r myname/*

我收到此错误:

"rm -r myname/*
rm: cannot remove `myname/*': No such file or directory "

有人可以帮助我吗？

谢谢

我有一个字符串,我需要分成三个字符的块.谷歌搜索发现以下代码,工作正常:

$input = "DEADBEEF";
@output = ();
my @output = ( $input =~ m/.{3}/g );
print $_."\n" foreach (@output);

我是Perl初学者; 有人可以向我解释一下表达式的$input =~ m/.{3}/g作用吗？

我想打印与tab分隔的数组中的每个元素.这是我写的代码:

print FILEOUT $_,"\t" foreach @data;

我在打印时遇到问题.额外选项卡从第二行的开头打印.

有人可以帮助我吗？

在下面的代码中,当我将每一行推入一个数组(@num)时,我发现在传入数组时,在行的末尾添加了一个空格.

我的输入文件中的行尾没有空格.当我打印数组中的所有元素时,我发现了这个空格.

open (A, "file.txt");
my @num = ();

while(my $each=<A>)
{
    chomp $each;
    $each=~s/\s//g;
    push(@num,$each);
}
close(A);

有人可以帮我吗？