Bug in Perl ? - #16191 (Allgemeines zu Perl)

Strat

2003-08-28 12:18

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=BrownWolf,28.08.2003, 05:41]

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;

    print<<"EOT";
    bla
    EOT

######

[/quote]
vor und hinter dem EOT duerfen/muessen zwei zeilenumbrueche kommen, sonst nichts. Deshalb verwende ich HERE-Dokumente kaum noch, sondern mehr qq~...~ (oder aehnliches):

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;

    print qq~
    bla
    ~;

Dann darf halt kein ~ in der Zeichenkette vorkommen. Anstelle von ~ kann man auch (fast) jedes andere Zeichen verwenden, z.B. | # + * () [] {} <>

qq~...~ verhaelt sich wie "..."
q~...~ verhaelt sich wie '...'

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/