Jaki jest łatwy sposób drukowania ciągu wielowierszowego bez podstawiania zmiennych w języku Perl?

Question

Mam program Perl, który czyta w zbiorze danych, munges go, a następnie wyprowadza kilka różnych formatów plików. Chciałbym, aby Perl był jednym z tych formatów (w postaci pakietu .pm) i pozwalał ludziom używać zmasakrowanych danych w ich własnych skryptach Perla.

Drukowanie danych jest łatwe przy użyciu .

Chciałbym również wydrukować niektóre funkcje pomocnicze do wynikowego pakietu.

Jaki jest łatwy sposób wydrukowania ciągu wieloliniowego bez podstawienie zmiennych?

Chciałbym móc zrobić:

print <<EOL; 
    sub xyz { 
    my $var = shift; 
    } 
EOL 

Ale wtedy musiałbym uciec wszystkie z $ 's.

Czy istnieje prosty sposób na zrobienie tego? Być może mogę stworzyć rzeczywistą subadę i mieć magiczną, ładną drukarkę, która wydrukuje zawartość? Wydrukowany kod nie musi pasować do danych wejściowych, a nawet być czytelny.

Answer 1

Spróbuj wpisać kod jako rzeczywisty podprogram perl, a następnie użyj B::Deparse, aby uzyskać kod źródłowy w czasie wykonywania.

Answer 2

Powoduje umieszczenie nazwy separatora w pojedynczych cudzysłowach, a interpolacja nie zostanie wprowadzona.

print <<'EOL'; 
    sub xyz { 
    my $var = shift; 
    } 
EOL 

Answer 3

Można użyć pakietu szablonów jak Template::Toolkit lub Text::Template.

Albo, można toczyć własną prymitywny system szablonów, który wygląda mniej więcej tak:

my %vars = qw(foo 1 bar 2); 
Write_Code(\$vars); 

sub Write_Code { 
    my $vars = shift; 

    my $code = <<'END'; 

    sub baz { 
     my $foo = <%foo%>; 
     my $bar = <%bar%>; 

     return $foo + $bar; 
    } 

END 

    while (my ($key, $value) = each %$vars) { 
     $code =~ s/<%$key%>/$value/g; 
    } 

    return $code; 
} 

To wygląda ładne i proste, ale istnieje wiele pułapek i sztuczek czeka na ciebie, jeśli DIY. Czy zauważyłeś, że nie udało mi się użyć quotemeta na moich kluczowych nazwiskach w podmenu?

Polecam korzystanie z przetestowanej biblioteki szablonów, takiej jak te wymienione powyżej.

Answer 4

Użyj sekcję danych do przechowywania kodu Perl:

#!/usr/bin/perl 

use strict; 
use warnings; 

print <DATA>; 
#print munged data 

__DATA__ 
package MungedData; 

use strict; 
use warnings; 

sub foo { 
    print "foo\n"; 
} 

Answer 5

Rzeczywiście można kontynuować ciąg dosłowny w następnej linii, na przykład:

my $mail = "Hello! 

Blah blah."; 

Osobiście uważam, że bardziej czytelne niż heredocs (<<<EOL rzecz, o której mowa w innym miejscu).

Pokój cytat "interpoluje zmienne, ale można użyć« Zauważ, trzeba uciec każdy»w ciąg to zadziałało.

Perl jest całkiem bogaty w wygodnych rzeczy, aby rzeczy bardziej czytelny , np. inne operacje wyceny.qq i q odpowiada „i" i można go używać niezależnie od separatora sens:

my $greeting = qq/Hello there $name! 
Nice to meet you/; # Interpolation 

my $url = q|http://perlmonks.org/|;  # No need to escape/

(Zauważ, że kolorowanie składni tutaj nie całkiem nadążyć)

Czytaj perldoc perlop (Znajdź na stronie:” Quote and Quote-like Operators "), aby uzyskać więcej informacji: