chaîne d'impression en Perl

Question

est-il un moyen facile, en utilisant un sous-programme peut-être, d'imprimer une chaîne en Perl sans échapper à chaque caractère spécial?

C'est ce que je veux faire:

print DELIMITER <I don't care what is here> DELIMITER 

Alors, évidemment, ce sera bien si je peux mettre une chaîne comme délimiteur au lieu de caractères spéciaux.

Answer 1

$str = q(this is a "string"); 
print $str; 

si vous voulez dire des citations et des apostrophes avec 'caractères spéciaux

Answer 2

L'impression ne fait pas des choses spéciales aux évasions, doubles guillemets font. Vous pouvez essayer les chaînes entre guillemets simples:

print 'this is \n', "\n"; 

Dans une seule chaîne entre guillemets les seuls caractères qui doivent être échappées sont entre guillemets simples et une barre oblique inverse qui se produit immédiatement avant la fin de la chaîne (à savoir 'foo\\').

Il est important de noter que l'interpolation ne fonctionne pas avec les chaînes entre guillemets simples, si

print 'foo is $foo', "\n"; 

Ne sera pas imprimer le contenu de $foo.

Answer 3

Si vous souhaitez imprimer une chaîne littéralement et vous avez Perl 5.10 ou plus tard, puis

say 'This is a string with "quotes"' ; 

imprimera la chaîne avec une nouvelle ligne .. La chose importaning est d'utiliser des guillemets simples ' ' plutôt que doubler les " "

Answer 4

perldoc perlop, sous la rubrique « opérateurs apostrophe et type apostrophe », contient tout ce dont vous avez besoin.

Alors que nous pensons généralement des citations comme des valeurs littérales, en Perl ils fonctionnent comme des opérateurs, en fournissant divers types d'interpoler et le modèle correspondant à capacités. Perl fournit des guillemets coutumiers pour ces comportements, mais fournit également un moyen pour vous de choisir votre caractère de citation pour l'un des eux. Dans le tableau suivant, un "{}" représente n'importe quelle paire de délimiteurs que vous choisissez.

Customary Generic  Meaning  Interpolates 
    ''  q{}   Literal    no 
    ""  qq{}   Literal    yes 
    ``  qx{}   Command    yes* 
      qw{}   Word list   no 
    //  m{}  Pattern match   yes* 
      qr{}   Pattern    yes* 
      s{}{}  Substitution   yes* 
      tr{}{} Transliteration   no (but see below) 
    <<EOF     here-doc   yes* 

    * unless the delimiter is ''. 

Answer 5

Vous pouvez utiliser la directive __DATA__ qui traitera toutes les lignes suivantes dans un fichier qui est accessible à partir de la DATA poignée:

while (<DATA>) { 
    print # or do something else with the lines 
} 

__DATA__ 
#!/usr/bin/perl -w 
use Some::Module; 
.... 

ou vous pouvez utiliser un heredoc:

my $string = <<'END'; #single quotes prevent any interpolation 
#!/usr/bin/perl -b 
use Some::Module; 
.... 
END 

Answer 6

Vous pouvez utiliser à peu près n'importe quel caractère avec q ou qq. Par exemple:

#!/usr/bin/perl 

use utf8; 
use strict; use warnings; 

print q∞This is a test∞; 
print qq☼\nThis is another test\n☼; 
print q»But, what is the point?»; 
print qq\nYou are just making life hard on yourself!\n; 
print qq¿That last one is tricky\n¿; 

Vous ne pouvez pas utiliser qq DELIMITER foo DELIMITER.Cependant, vous pouvez utiliser heredocs pour un effet similaire:

print <<DELIMITER 
... 
DELIMETER 
; 

ou

print <<'DELIMETER' 
... 
DELIMETER 
; 

mais votre code source serait vraiment laid.