Daniel: print qq~ subroutine ~; <- geht das?

Hallo

Ich habe folgenden Code:

...
print qq~
    <html>
    <head>
    PrintJavaScript()
    </head>
    ....
    ~;
...
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?

Vielen Dank!

lg Daniel

  1. 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

    1. Achja... auf die idee bin ich gar nicht gekommen ;)
      danke!