www.ugnews.info

August 22, 2009

銉汇倎銇氥倝銇椼亸4鏅傘仺銇勩亞鏃┿兗銇勬檪闁撱伀鐪犮倠銆


銉9鏅傘伀璧峰簥銆傜洰銇岃銈併仧銈11鏅傘仩銇c仧(銇紵)銆


銉汇仺銇傘倠鐞嗙敱銇х枎閬犮仺銇勩亞銇嬨佽窛闆€倰銇°倗銇c仺缃亜銇︺亜銇熴倱銇犮亼銇┿佷箙銇椼伓銈娿伀銇层伆銈娿亴涓樸伄銉┿兗銉°兂浜岄儙銇搞備粬銇簩閮庛仾搴楄垪銇浼戙伩銈掋仐銇c亱銈婂彇銇c仸銈嬨仺銇勩亞銇伀銆併亾銇撱伄浜岄儙銇佸勾鏈伄銇ㄣ亶銇ㄤ竴绶掋仹浼戙伩銇彇銈夈仛銇柖妤仐銇︺亜銈嬨伄銇х礌鏅淬倝銇椼亜銇兗銇ㄣ亱鎬濄亞銈撱仩銇戙仼銆併仼銇嗐倐銇濄伄浠曚簨銇儚銉笺儔銇曘伄銇涖亜銇с佹渶杩戙仭銈囥仯銇ㄤ粫浜嬨亴闆戙伀銇仯銇︺倠銇ㄣ亱銇с併倓銇熴倝濉╄緵銇勩仩銇ㄣ亱銇笉婧銇0銇屻仭銈夈伝銈夈仺銆傘仹銆併亪銉笺仺銆佹樇鏅傘伀銇勩仯銇熴倝涓︺伋銇10浜恒亹銈夈亜銆傛敞鏂囥伅灏忚睔(銉嬨兂銉嬨偗)銆

銇勩倓銉笺仐銇嬨仐銇撱亾銇簩閮庛伅鏈綋銇編鍛炽亜銇兗銆傚懗銇績銇曘伅銇熴伓銈撱亜銇ゃ倐閫氥倞銇с併仺銇亱銇忛汉銇屻亞銇俱亜銆傘仭銈囥亞婧瓒炽伄涓鏉仩銇c仧銆


銉诲赴瀹呫仐銆併偡銉c儻銉兼荡銇炽仸浠婂害銇儛銈ゃ儓銇搞


銉汇亜銇ゃ倐銇┿亰銈婁簨鍕欏銇叆銇c仧銈夎鎱c倢銇亜浜恒亴銆銇娿伅銈堛亞銇斻仏銇勩伨銇欍佹柊浜恒仌銈撱仹銇欍亱銇ㄣ亱瑷娿亜銇熴倝銇ㄣ仾銈娿伀銇勩仧鏃ョ劶銇戦噹閮庛伄K鍚涖亴銆併儛銉愩儛銈簵闀枫仌銈撱仩銈堛仺銇嬭█銇c仸銇嶃仸銆併亰鍓嶃伅浣曘倰瑷銇c仸銈嬨倱銇犵姸鎱嬨伀銇仯銇︺仐銇俱仯銇熴傝仦銇忔墍銇倛銈嬨仺銆佷粖銇俱仹銇簵闀枫仌銈撱伅浠婃棩闄愩倞銇х暟鍕曘伀銇倠銇ㄣ伄銇撱仺銆傘伨銇傛鐩淬佺劇鎰涙兂銇ㄣ亜銇嗐亱銇勩仱銈備笉姗熷珜銇濄亞銇с屻亾銇簵闀枫伅銈儸銈ゃ偢銉笺仩銆傘伨銈嬨仹銈搞儳銉笺偗銇犮倛銆嶃仾搴楅暦銇犮仯銇熴倱銇犮亼銇┿併亾銇簵闀枫伀鎺$敤銇曘倢銇︺亰銈屻伅浠娿亾銇撱仹銉愩偆銉堛仐銇︺倱銇犮倛銇兗銇ㄣ亱鎬濄亞銇ㄣ仾銇溿亱瑜囬洃銇皸鎸併仭銇仾銇c仸銇椼伨銇c仧銆傘倓銇曘仐銇勩


銉绘柊銇椼亜搴楅暦銇併仧銇躲倱銇娿倢銇10銇愩倝銇勩仐銇嬮洟銈屻仸銇亜銇愩倝銇勩伄浜恒仹銆併仚銇斻亸浠曚簨鐔卞績銇劅銇樸傘儛銈ゃ儓銇腑銇с倐No.1銈偣銇亰銈屻亴瑷銇嗐伄銈傘亰銇撱亴銇俱仐銇勩亼銇┿併亾銈屻仹銉愩偆銉堛亴銇勩亜鎰熴仒銇銈忋倠銇ㄣ亜銇勩儕銉笺


銉汇伨銇傛尐鎷躲仐銇﹀嚱椁ㄣ伄鍦熺敚銈掍簨鍕欏銇斁鍑恒仸銇ㄣ仯銇ㄣ仺閫冦亽銇俱仐銇熴伃銆備粖銇俱仹銇┿亞銈傘仼銇嗐倐銆


銉汇仈銇忎竴閮ㄣ伄銉栥儹銈般仹瑭遍銇仾銇c仸銈媣itaminwater銈掗2銈撱仹銇裤仧銈堛傞2銇垮彛銇屽ぇ銇嶃亜銇撱仺銈傘亗銇c仸椋层伩銈勩仚銇忋偞銈偞銈仺銇勩亼銈嬨倱銇犮亼銇┿佹按銇仭銈囥仯銇ㄦ灉姹併倰鍏ャ倢銇俱仐銇熴倛銇裤仧銇勩仾鍛炽仺銇勩亞銇撱仺銈傘亗銇c仸銇嬨仾銈婂井濡欍傝瑱铏氥仾瑷銇勬柟銈掋仚銈嬨仺缇庡懗銇忋仾銇勩倱銇с仚銇屻併儤銈裤兗銇敇銇勩偣銉濄兗銉勩儔銉兂銈倰椋层個銈堛倞銇偝銉倰椋层倱銇犮伝銇嗐亴銇勩亜銈堛亞銇併仢銈撱仾椋层伩鐗┿仩銇c仧銆


銉汇偒銉兗椋熴仯銇︺偊銉忋偊銉忋傘亾銇亜銇犮伄G1姹哄嫕鎴︺倰瑕炽仧銆傜湡澹併仌銈撱伅銇欍仈銇忋儣銉儸銈广儵銉笺仯銇姐亸銇﹀ソ銇嶃仩銇兗銆傘亗銇ㄥ疅銇亱銇倞銇勩亜浜恒仩銇ㄣ亜銇嗐伄銇屻佹瑕忚粛銇犮仺銇嬨仢銇嗐亜銇嗐儢銉冦偗銇珛鍫淬伄銉偣銉┿兗銇瘮銇广仸鍏ㄧ劧濂藉嵃璞°仺銇勩亞銇嬨


銉籔erl銇媺寮枫仐銇c仸銇堛亪銇堛亪銇堛亪銇堛亪銇堛亪銇堛傘亾銇嗐亜銇嗘棭銇忋儮銉儮銉浉銇嶃仧銇勩

use strict;

require Exporter;
use vars qw(@ISA @EXPORT $VERSION);
@ISA     = qw(Exporter);
@EXPORT  = qw(flip_words flip_boundary);
$VERSION = 1.0;

my $Separatrix = ' ';  # default to blank; must precede functions

sub flip_boundary {
    my $prev_sep = $Separatrix;
    if (@_) { $Separatrix = $_[0] }
    return $prev_sep;
}
sub flip_words {
    my $line  = $_[0];
    my @words = split($Separatrix, $line);
    return join($Separatrix, reverse @words);
}

銇┿仯銇嬨亱銈夐仼褰撱伀鎷俱仯銇︺亶銇熴偨銉笺偣銈炽兗銉夈仾銇仹銇撱倢銇т綍銇с亶銈嬨伄銇嬬煡銈夈伃銆