N'Perl ont l'équivalent de Python multi-chaînes?

En Python, vous pouvez avoir une multiligne chaîne comme celle-ci à l'aide d'une docstring

foo = """line1
line2
line3"""

Est-il quelque chose d'équivalent en Perl?

Notez que ce que vous faites n'est pas une docstring. C'est tout simplement le multiligne syntaxe de la chaîne. Docstrings en général sont des chaînes de caractères au début de classes ou de fonctions qui visent à expliquer la classe/fonction et peut être consulté via name.__doc__. Ceux-ci sont également utilisés pour l'automatique, l'aide de génération de la page.
En effet, le plus proche équivalent en Perl pour réel Python docstrings serait Perl "Plain Old Documentation" (perldoc.perl.org/perlpod.html), qui est en même temps la plus expressive et quelques degrés de plus complexe. Je ne sais pas si elle offre la même capacité d'être obtenu par programmation à partir du script il est utilisé, cependant.
POD n'est pas disponible au moment de l'exécution.
daotad: Peut-être pas facilement, mais si on le juge utile, à venir avec quelque chose qui utilise *PackageName::Data et un module analyseur beaucoup de mal, serait tout à fait possible. Mais vous avez certainement raison de souligner que le POD n'est pas inclus dans n'importe quel structure de données par le compilateur.
cikkle: Pod::Utilisation. pour ex.

OriginalL'auteur Mike | 2010-05-20

  1. 31

    Perl n'a pas beaucoup de syntaxe espace vertical, de sorte que vous pouvez juste faire

    $foo = "line1
line2
line3
";

    qui est équivalent à 

    $foo = "line1\nline2\nline3\n";
    Tandis que c'est correct, vous voulez vraiment regarder ici-docs. Voir les autres réponses.
    Pourquoi? Quel est l'avantage d'un ici-doc à l'OP simple chaîne de problème? Ici-docs ont l'inconvénient majeur de compromettre l'indentation de ton code (ils doivent être justifiés à gauche).
    Ne sorte de l'ordinaire devis, sauf si vous voulez plus d'espaces à la fin. ici-docs sont préférables simplement parce que " et " de merde sont des identifiants pour l'analyse de la fin d'une très longue chaîne.

    OriginalL'auteur ire_and_curses

  2. 36

    Normal citations:

    # Non-interpolative
my $f = 'line1
line2
line3
';

# Interpolative
my $g = "line1
line2
line3
";

    Ici-docs vous permet de définir n'importe quel jeton comme la fin d'un bloc de texte cité:

    # Non-interpolative
my $h = <<'END_TXT';
line1
line2
line3
END_TXT

# Interpolative
my $h = <<"END_TXT";
line1
line2
line3
END_TXT

    Regex style de citation opérateurs vous permettent d'utiliser à peu près n'importe quel caractère comme délimiteur, de la même manière une regex permet de modifier les séparateurs.

    # Non-interpolative
my $i = q/line1
line2
line3
/;

# Interpolative
my $i = qq{line1
line2
line3
};

    Mise à JOUR: correction de l'ici-doc jetons.

    Correction mineure. L'Ici-doc jetons doit être la même.

    OriginalL'auteur daotoad

  3. 15

    Oui, un ici-doc.

    $heredoc = <<END;
Some multiline
text and stuff
END

    OriginalL'auteur Steve

  4. 0

    Oui, vous avez 2 options :

    1.heredocs veuillez noter que toutes les données dans heredocs sont interpolées :

    mon $data =<

    vos données

    FIN

    2.qq() voir par exemple :

    print qq(
    HTML

    $votre texte

    CORPS

    HTML
    );

    Bienvenue à Débordement de Pile. Si vous allez à fournir une réponse à une question qui a déjà plusieurs bonnes réponses, surtout une question à laquelle une réponse a déjà été accepté, vous devez vous demander si votre réponse effectivement ajoute de nouvelles informations. Dans ce cas, le tien ne l'est pas. Aussi, lorsque vous êtes en train de rédiger une réponse, s'il vous plaît prêter attention à l'aperçu ci-dessous de la zone d'édition; il aurait montré que votre réponse n'a pas vraiment d'illustrer multiligne cordes très bien. Reportez-vous aux instructions de mise en forme à droite de la zone d'édition.

    OriginalL'auteur oren

  5. 0

    Exemple rapide

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

my $name = 'Foo';

my $message = <<'END_MESSAGE';
Dear $name,


this is a message I plan to send to you.

regards
  the Perl Maven
END_MESSAGE

print $message;

    ...Résultat:

    Dear $name,

this is a message I plan to send to you.

regards
  the Perl Maven

    Référence: http://perlmaven.com/here-documents

    OriginalL'auteur Cristian