print qq~ subroutine ~; <- geht das?
Daniel
- perl
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
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
Achja... auf die idee bin ich gar nicht gekommen ;)
danke!