www.ugnews.info

銉掋偄銉夈偔銉ャ儭銉炽儓

鏃呰銇銇c仸銇俱仐銇熴
瀹熴伅涓閫遍枔銇躲倞銇洿鏂般仾銈撱仹銇欍伃銆Perl銈掋倓銈夈仾銇勩仺涓閫遍枔銇屾棭銇!!
銇濄倢銇с倐Perl銇亾銇ㄣ倰蹇樸倢銇熴亾銇ㄣ仾銈撱仸銇亱銇c仧銆傘亾銈撱伀銇°伅銆乽gnews銇с仚銆


浠婃棩銇併儝銈€儔銈儱銉°兂銉堛仺銇勩亞銇倰銈勩仯銇熴傘亾銈屻伅闀枫亜鏂囩珷銈掓枃瀛楀垪銇ㄣ仐銇﹀彇銈婃壉銇嗘鑳姐倝銇椼亜銆傘伨銇傘亾銇嗐亜銇嗘劅銇樸

my $str = <<"EOD";
Programming Lesson
Programming Perl
EOD

print "$str\n";

$str銇唬鍏ャ仚銈嬫枃瀛楀垪銇 <<"EOD" 銇仾銇c仸銈嬨亾銇ㄣ伀娉ㄦ剰銆傘亾銈屻仹銆佹銇銇嬨倝EOD銇ㄣ亜銇嗚銇俱仹銇瘎鍥层亴鍏ㄣ仸澶夋暟$str銇唬鍏ャ仌銈屻倠銆

銇撱倢銈掑疅琛屻仚銈嬨仺銇撱亞銇倠銆

Programming Lesson
Programming Perl

銇俱亗銇撱倢銇ㄥ悓銇樸仹銇欍伃銆

$str = "Programming Lesson\nProgramming Perl\n";

EOD銇孍nd Of Date銆嶃伄鐣ャ傘仭銇伩銇EOD銇с仾銇忋仸銈傛枃瀛楀垪銇倝浣曘仹銈侽K銆傘仧銇犮仐銉掋偄銉夈偔銉ャ儭銉炽儓銇斾腑銇櫥鍫淬仐銇亜鏂囧瓧鍒椼仾銆EOD銈掍亢銇珜銇勩仾銆宮aneme銆嶃伀缃亶鎻涖亪銇︺倓銇c仸銇裤倠銆

my $str2 = <<"maname";
銇俱仾銈併伅銇嗐仚銇瓨鍦ㄣ伅銈搞儳銉笺偗銇裤仧銇勩仾銈傘伄銇
maname

print "$str2\n";

銇撱倢銈掑疅琛屻仚銈嬨仺銇撱亞銇倠銆

銇俱仾銈併伅銇嗐仚銇瓨鍦ㄣ伅銈搞儳銉銈伩銇熴亜銇倐銇仩

淇恒伅銇撱亞銇勩亞銇撱仺銈掓浉銇忋仧銇炽伀銉夈偔銉夈偔銇椼仸銈嬨


鈥曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗


姝g洿銇┍銆佷綍銇屼究鍒┿仾銇亱銇°倗銇c仺鍒嗐亱銈夈仾銇勩儝銈€儔銈儱銉°兂銉堛傚鏁般倰銇熴亸銇曘倱鍩嬨倎杈笺倱銇犮儝銈€儔銈儱銉°兂銉堛伀銇欍倢銇颁慨姝c亴銉┿偗銇犮仺銇嬨傘亾銈撱仾鍏峰悎銇

my $name = "鍏勮泊";
my $bulkneets = "銉炪儵";
my $Aniki = <<"EOD";
銇曘仯銇嶃佸窛鍘熴仹銈勩仯銇熷叚灏$name鍑勩亱銇c仧銇с仚锛侊紒
銈儊銉犮儊銇壊榛$name銇屻偑銉冦偣閫e懠銇у嫉鍨嬨偙銉勩伀銇躲仭銇撱伨銈岃叞鎸仯銇︺伨銇椼仧銆
淇恒倐銇忋倧銇堛仌銇涖倝銈屻仸娴h吀鍠般倝銇勭劇妲樸伀鎺掍究銇曘倝銇椼伨銇椼仧銆
銉愩儶銈兂鍑恒仌銈屻仧銇ㄣ亶銇竴鐬紩銇勩仧銇戙仼銆
$name銇屻亜銈勩仾銈夋銈併仸銇勩亜銈撱仩銇滐紵銆嶃伄涓瑷銇ц鎮熸焙銈併
鐢熴伨銈屻仸鍒濄倎銇︿父鍒堛倞銇仾銈娿伨銇椼仧銆
銇濄伄寰屻佽剣銉汇儊銉炽偛銈傚垐銈夈倢銇︺儞銉炽儞銉炽伄$bulkneets
鎬濄亜銇c亶銈娿仐銇斻亱銈屾淳鎵嬨伀銈儊銉犮儊$name銇銇銇般仐銇俱仐銇熴
銈广儍銈层兗鐢枫倝銇椼亸姘楁寔銇°倛銇嬨仯銇熴仹銇欍
銇俱仧琛屻亸銇ㄣ亶銈偔銈炽仐銇︿笅銇曘亜锛
甯般仯銇︺亱銈変父鍒堛倞銇牠瑕嬨仸銆併伨銇熸劅銇樸伨銇忋仯銇︺伨銇欙紒
EOD

print "$Aniki\n";

銇撱倢銈掑疅琛屻仚銈嬨仺銇撱亞銇倠銆

銇曘仯銇嶃佸窛鍘熴仹銈勩仯銇熷叚灏哄厔璨村噭銇嬨仯銇熴仹銇欙紒锛
銈儊銉犮儊銇壊榛掑厔璨淬亴銈儍銈归e懠銇у嫉鍨嬨偙銉勩伀銇躲仭銇撱伨銈岃叞鎸仯銇︺伨銇椼仧銆
淇恒倐銇忋倧銇堛仌銇涖倝銈屻仸娴h吀鍠般倝銇勭劇妲樸伀鎺掍究銇曘倝銇椼伨銇椼仧銆
銉愩儶銈兂鍑恒仌銈屻仧銇ㄣ亶銇竴鐬紩銇勩仧銇戙仼銆
鍏勮泊銇屻亜銈勩仾銈夋銈併仸銇勩亜銈撱仩銇滐紵銆嶃伄涓瑷銇ц鎮熸焙銈併
鐢熴伨銈屻仸鍒濄倎銇涓稿垐銈銇仾銈娿伨銇椼仧銆
銇濄伄寰屻佽剣銉汇儊銉炽偛銈傚垐銈夈倢銇︺儞銉炽儞銉炽伄銉炪儵銆
鎬濄亜銇c亶銈娿仐銇斻亱銈屾淳鎵嬨伀銈儊銉犮儊鍏勮泊銇銇銇般仐銇俱仐銇熴
銈广儍銈层兗鐢枫倝銇椼亸姘楁寔銇°倛銇嬨仯銇熴仹銇欍
銇俱仧琛屻亸銇ㄣ亶銈偔銈炽仐銇︿笅銇曘亜锛
甯般仯銇︺亱銈涓稿垐銈銇牠瑕嬨仸銆併伨銇熸劅銇樸伨銇忋仯銇︺伨銇欙紒

$name銇叆銇c仸銈嬨屽厔璨淬嶃仯銇︽枃瀛楀垪銈掋屻伨銇倎銆嶃伀銇欍倢銇般$Aniki銇枃绔犮伀鍚伨銈屻倠銆屽厔璨淬嶃亴銆屻伨銇倎銆嶃伀缃彌銇曘倢銇熴倞銇欍倠銈忋亼銇с仚銇傘仢銈撱仾銇究鍒┿亱銆併亾銈屻


鈥曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗


銉掋偄銉夈偔銉ャ儭銉炽儓銇甴tml銇緥銈掓浉銇忋倛銆

my $name = "銉夈儵銈淬兂";
my $mail = q{fuck@maname.com};
my $html = <<"EOD";
<html>
<head>
<title>$name銇儧銉笺儬銉氥兗銈</title>
</head>
<body>
<h1>$name銇儧銉笺儬銉氥兗銈</h1>
<p>$name銇儧銉笺儬銉氥兗銈搞伕銈堛亞銇撱仢銆</p>
<p>銉°兗銉亸銈屻倛銆傘偄銉夈儸銈广伅$mail銇с仚銆</p>
</body>
</html>
EOD

print "$html\n";

銇撱倢銈抙tml銉曘偂銈ゃ儷銇ㄣ仐銇﹀嚭鍔涖仚銈嬪牬鍚堛伅銆perl 銉曘偂銈ゃ儷鍚.pl > 銉曘偂銈ゃ儷鍚.html銆嶃仹OK銆銈炽優銉炽儔銉椼儹銉炽儣銉銇ㄣ亱銇ф墦銇c仸銇忋倢銆

鐢熸垚銇曘倢銇焗tml銉曘偂銈ゃ儷銈掋儢銉┿偊銈躲仹闁嬨亸銇ㄣ亾銇嗚〃绀恒仌銈屻倠銆

銉夈儵銈淬兂銇儧銉笺儬銉氥兗銈


鈥曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗


Perl銇с伅銆佹暟銈勬枃瀛楀垪銇亾銇ㄣ倰銆銈广偒銉┿兗銆嶃仺銇勩亞銆$money銇ㄣ亱銇銈广偒銉┿兗銈掓牸绱嶃仚銈嬪鏁般仾銇仹銆銈广偒銉┿兗澶夋暟銆嶃仺銇勩亞銆


鈥曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗曗


銇撱倢銇у媺寮枫伀浣裤仯銇︺倠鏈伄銆屾暟銇ㄦ枃瀛楀垪銆嶃仺銇勩亞绔犮亴绲傘倧銇c仧鈥︺傘伨銇犮伨銇犲厛銇暦銇勩仾銉笺傘仱銇嗐亱銇撱伄銉栥儹銈般伀鏇搞亜銇︺倠銇撱仺銆併亼銇c亾銇嗗繕銈屻仸銈嬧︺