Каков правильный способ разбить строку кода Perl на два?

$ cat temp.pl
use strict;
use warnings;

print "1\n";
print "hello, world\n";

print "2\n";
print "hello,
world\n";

print "3\n";
print "hello, \
world\n";

$ perl temp.pl
1
hello, world
2
hello,
world
3
hello, 
world
$

Чтобы сделать мой код легко читаемым, я хочу ограничить количество столбцов до 80 символов. Как я могу разбить строку кода на две без каких-либо побочных эффектов?

Как показано выше, простой ↵ или \ не работает.

Каков правильный способ сделать это?

Ответ 1

В Perl возврат каретки будет выполняться в любом месте, где выполняется обычное пространство. Обратные косые черты не используются, как на некоторых языках; просто добавьте CR.

Вы можете разбить строки на несколько строк с помощью операций конкатенации или списка:

print "this is ",
    "one line when printed, ",
    "because print takes multiple ",
    "arguments and prints them all!\n";
print "however, you can also " .
    "concatenate strings together " .
    "and print them all as one string.\n";

print <<DOC;
But if you have a lot of text to print,
you can use a "here document" and create
a literal string that runs until the
delimiter that was declared with <<.
DOC
print "..and now we're back to regular code.\n";

Вы можете прочитать здесь документы в perldoc perlop.

Ответ 2

Еще одна вещь из Perl Best Practices:

Разрыв Длинные строки: Разрыв длинных выражений перед оператором. как

push @steps, $step[-1]
                  + $radial_velocity * $elapsed_time
                  + $orbital_velocity * ($phrase + $phrase_shift)
                  - $test
                  ; #like that

Ответ 3

Это потому, что вы находитесь внутри строки. Вы можете разделить строки и объединить с помощью . как:

print "3\n";
print "hello, ".
"world\n";

Ответ 4

Используйте ., оператор конкатенации строк:

$ perl
print "hello, " .
"world\n";ctrl-d
hello, world
$