Замена кусочка списка другим списком
Тривиально, но чтобы самому не забыть:
#!/usr/bin/perl -w our ($NAME, $COLOR, $SHAPE, $COST) = qw(Apple Red Ball 8); print "Fruits:\n", out(), out('Grapefruit'), out('Kiwi', 'Brown'), out('Pear', 'Yellow', 'Lamp'), out('Cucumber', 'Green', 'Spin', 5), # Too many arguments out('Grape', 'Purple', 'Cluster', 3, 'Isabella'); =head1 FUNCTION =head2 out Возвращает сведения о фрукте. Если каких-то данных не хватает - возвращает значения по умолчанию. =cut sub out { my @args = ($NAME, $COLOR, $SHAPE, $COST); splice @args, 0, scalar @_, @_; return join(q{, }, @args) . "\n"; } # sub out
Пишет:Fruits:
Apple, Red, Ball, 8
Grapefruit, Red, Ball, 8
Kiwi, Brown, Ball, 8
Pear, Yellow, Lamp, 8
Cucumber, Green, Spin, 5
Grape, Purple, Cluster, 3, Isabella
#!/usr/bin/perl -w our ($NAME, $COLOR, $SHAPE, $COST) = qw(Apple Red Ball 8); print "Fruits:\n", out(), out('Grapefruit'), out('Kiwi', 'Brown'), out('Pear', 'Yellow', 'Lamp'), out('Cucumber', 'Green', 'Spin', 5), # Too many arguments out('Grape', 'Purple', 'Cluster', 3, 'Isabella'); =head1 FUNCTION =head2 out Возвращает сведения о фрукте. Если каких-то данных не хватает - возвращает значения по умолчанию. =cut sub out { my @args = ($NAME, $COLOR, $SHAPE, $COST); splice @args, 0, scalar @_, @_; return join(q{, }, @args) . "\n"; } # sub out
Пишет:Fruits:
Apple, Red, Ball, 8
Grapefruit, Red, Ball, 8
Kiwi, Brown, Ball, 8
Pear, Yellow, Lamp, 8
Cucumber, Green, Spin, 5
Grape, Purple, Cluster, 3, Isabella