Perl　ヒアドキュメント、文章を一気に表示する、文章を一気に変数に入れる

ヒアドキュメント
複数行に渡る文章を一気に表示させる

print <<‘EOS’;

#!/usr/bin/perl

use Tk;
use Encode qw(decode);

# トップウィンドウを作る
$top = MainWindow->new();
#メインウィンドウのタイトル
$top->title(decode(‘utf8’,”PerlTkソフト”));
$top->optionAdd( ‘*font’ => ‘ＭＳゴシック 10’);
#####################
#
#
#
#ここに処理を書きます
#いわゆるスケルトン
#
#
#####################

# メインループ
MainLoop();

EOS
↑print分の最初の文字と同じにする、文字は何でもOK

複数行を一気に変数に入れる

$text = <<‘hyouji’;

#!/usr/bin/perl

use Tk;
use Encode qw(decode);

# トップウィンドウを作る
$top = MainWindow->new();
#メインウィンドウのタイトル
$top->title(decode(‘utf8’,”PerlTkソフト”));
$top->optionAdd( ‘*font’ => ‘ＭＳゴシック 10’);
#####################
#
#
#
#ここに処理を書きます
#いわゆるスケルトン
#
#
#####################

# メインループ
MainLoop();

hyouji
↑print分の最初の文字と同じにする、文字は何でもOK