小编Viq*_*toh的帖子

如何用双引号键入数组的选定元素

在这里,我试图用双引号打印数组的第2,第3和第4个元素,我只能用单引号来完成.

my @fruits = ("apples", "oranges", "guavas", "passionfruits", "grapes");
my $a = 1;
while ($a<4){
    print " '$fruits[$a]' \n";
    $a += 1;
}
Run Code Online (Sandbox Code Playgroud)

但我不能用单引号做到这一点.当我将单引号更改为双引号时,反之亦然,它会打印"$fruits[$a]"\n三次.当我将所有引号更改为双引号时,它会给出一个我理解为什么的错误.我真的需要帮助.

如果我能用双引号打印所有三个元素而不必使用循环.谢谢!

arrays perl

3
推荐指数
1
解决办法
110
查看次数

函数总和多个数字

我是python的新手,我开始学习执行函数.我开始添加数字,但我只能加两个数字,如果我想总结更多,那就需要我编辑程序.这是我的代码

def sum(num1,num2):
    return num1+num2

a=5
b=7
c=sum(a,b)
print (c)
Run Code Online (Sandbox Code Playgroud)

现在我想创建一个函数来总结你想要的任何数量的数字,而无需编辑代码.这是我做的:

def sum(num1,num2):
    return num1+num2
a=int(input("what is the number you want to add?: "))
ask="yes"
while(ask=="yes"):
  b=int(input("what is the number you want to add?: "))
  c=sum(a,b)
  a=c
  ask=input("do you want to add another number?: ")
else:
    c=a
    print (c)
Run Code Online (Sandbox Code Playgroud)

这有效,但我认为应该有一个更简单的方法来实现这个功能......对吗?谢谢你的帮助!

python function

2
推荐指数
1
解决办法
905
查看次数

我无法上课

我想创建一个Perl类.

这是我的代码:

#!/usr/ bin/perl

package Data;

sub new
{ my ($class, $student) = @_;
$class = shift;
$student = shift;
$student = {_firstName => <>,
            _lastName => <>,
             _matric => <>,
            };
bless $student,$class;
print $student;
}
&new;    
Run Code Online (Sandbox Code Playgroud)

我收到了这个错误:

main = HASH(0x215fc40)在source_file.pl第12行使用未初始化的值$ class.在source_file.pl第12行显式祝福''(假设包main).


我使用dcoder,我认为它不支持分离程序.但是虽然我纠正了它,但它仍然没有输出.我试图打印,$self但它留下了一个错误.这是整个代码:

#!/usr/ bin/perl
use strict;
use warnings 'all';

package student;

sub new {
 my $class = shift;
    my ($first, $last, $matric) = @_;
    my $self = {
        _firstName => $first,
        _lastName => $last,
        _matric => …
Run Code Online (Sandbox Code Playgroud)

perl class

-1
推荐指数
1
解决办法
174
查看次数

标签 统计

perl ×2

arrays ×1

class ×1

function ×1

python ×1