Variable Typ - .txt-Inline?

[Beat]

Abend zusammen,

So, der 500er ist weg. Aber das Script schreibt bei Aufruf "import". Was soll das bedeuten?

Das weiss meine Glaskugel

PerlProg:

Von mir etwas netter geschrieben.

  
#!/usr/bin/perl -w  
  
# wir schalten eine stricte Interpretation für Variablennamen ein  
use strict;  
  
print <<'HERE';  
Content-type: text/html;  
  
<!-- ############################### -->  
<!-- #Das ist die Klasse Text Links# -->  
<!-- ############################### -->  
  
<div class="inner_left_links">  
   <p class="report">  
HERE  
  
open(LESER, "</artikel_text/rauchen.txt") or die();  
flock LESER, LOCK_SH;  
print <LESER>;  
close LESER;  
  
print <<'HERE';  
    </p>  
</div>  
  
<div class="inner_right_links">  
    <img src="bild_05.png" alt="import">  
</div>  
HERE  
  
exit;  
__END__  

Längere Print-Statements lassen sich übersichtlcher gestalten mit

print <<"DEIN_TOKEN";
drucke das und interpoliere $variablen
DEIN_TOKEN

print <<'DEIN_TOKEN';
drucke das und interpoliere $variablen NICHT
DEIN_TOKEN

mfg Beat