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>
posted @ 2015-07-09 15:18  liuhui_pine  阅读(108)  评论(0)  编辑  收藏  举报