有時程式裡會夾著html的標籤
想放到網路上的話會被網頁伺服器給解釋掉
因此可能得先處理一下
應該有適合的模組
但我還沒發現

##程式碼轉成html格式
##用法 perl trhtml.pl filename

my $fname= $ARGV[0];
open(IN, $fname) or die;
while(<IN>){
  chomp;
  s/\&/\&amp;/g;
  s/\"/\&quot;/g;
  s/\</\&lt;/g;
  s/\>/\&gt;/g;
  s/ /\&nbsp;/g;
  print $_, "\n";
}
close(IN);

ps.只要想得到,替換的地方可以一直加下去

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