Rolf Rost: print qq~ subroutine ~; <- geht das?

Beitrag lesen

Moin,

machs do einfach so:

Hallo

Ich habe folgenden Code:

...

my $src = &PrintJavaScript;

print qq~
    <html>
    <head>
    <!-- PrintJavaScript() -->

$scr;

</head>
    ....
    ~;
...

sub PrintJavaScript{
   return qq(<script type="text/javascript">);
}

sub PrintJavaScript
{
    print qq~
        <script language....
        ~;
}

so funktioniert das nicht, er printed immer "PrintJavaScript()". Ist es möglich eine subroutine in einem print aufzurufen? Auch wenn sie in einem Modul ist? Wie mach ich das?

Rolf

Vielen Dank!

lg Daniel