[Moscow.pm] (без темы)
Nikolay Mishin
mi на ya.ru
Ср Ноя 16 08:53:40 PST 2011
все решилось, написанием такого кода
use 5.8.4;
use strict;
use warnings;
my ( $start, $end, $sysid, $ver, $tradetype );
( $start, $end ) = ( 1, 10 );
my $test = make_string( $start, $end, $sysid, $ver, $tradetype );
print $test;
sub make_string {
my @input = @_;
my @input_init = map { $_ || '' } @input;
my $rezult = join q{,}, @input_init;
return $rezult . "\n";
}
16.11.2011, 20:16, "Nikolay Mishin" <mi на ya.ru>:
> да, но все равно проблема у меня в том, что в perl v5.8.4
> $perl -e 'use warnings;my ($a,$b);$c=$a.$b;print $c'
> Use of uninitialized value in concatenation (.) or string at -e line 1.
> Use of uninitialized value in concatenation (.) or string at -e line 1.
>
> 16.11.2011, 20:03, "Alexandr Gomoliako" <zzz на zzz.org.ua>:
>
>> On Wed, Nov 16, 2011 at 5:39 PM, Nikolay Mishin <mi на ya.ru> wrote:
>>> $EMPTY = q{};
>>> $message = $EMPTY; #best
>> И вот это perlcritic приводит к такому корявому коду? :)
>>
>> --
>> Moscow.pm mailing list
>> moscow-pm на pm.org | http://moscow.pm.org
>
> --
> Nikolay Mishin
--
Nikolay Mishin
Подробная информация о списке рассылки Moscow-pm