here 文档

#!/usr/bin/perl -w

use strict;

my $someURL = 'http://www.perl.com';

my $html = <<EOF; # EOF 可以换成其他字符

<HTML>

<BODY>

<P><A HREF="$someURL">Perl Homepage</A></P>

<?BODY>

</HTML>

EOF

#open (DATAFILE, ">data.file") || die "Could not open 'data.file' $!";

#print DATAFILE $html;

#close(DATAFILE);

print $html;

<HTML>

<BODY>

<P><A HREF="http://www.perl.com">Perl Homepage</A></P>

<?BODY>

</HTML>

相关文章