[root@XXXXXX]# cat ./EOD.pl
#!/usr/bin/perl

$text=<<"EOD";
Tommorw is a good day.
and it nerver rain.
I'll be with you.

EOD
print $text;

print  <<DATA;
Tommorw is a good day.
and it nerver rain.
I'll be with you.

DATA
[root@XXXXXX]# ./EOD.pl
Tommorw is a good day.
and it nerver rain.
I'll be with you.


Tommorw is a good day.
and it nerver rain.
I'll be with you.

arrow
arrow
    全站熱搜

    hweily 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄