perl · [高亮] · [原始]

1. #==================== Step 1
2. # 找到
3. use LWP::Simple;
4. # 後面加上
5. use Encode;
6. use HTML::Entities;
7.  
8. #==================== Step 2
9. # 找到
10. sub parser
11. # 前面加上
12. sub pronun
13. {
14.     my $p = shift;
15.     my $cdict= get("http://cdict.giga.net.tw/?q=$p");
16.  
17.     $cdict =~ s/\r//g;
18.     $cdict =~ s/\n//g;
19.  
20.     if($cdict =~ m{<span class=pronun>\s*/(.*?)/\s*</span>}i) {
21.         my $line = $1;
22.         $line =~ s/<[^>]+>//g;
23.         return encode(‘utf8′, decode_entities($line)).RESET;
24.     } else {
25.         return "沒有音標";
26.     }
27. }
28.  
29. #==================== Step 3
30. # 找到
31.         print "<h2>" if $debug;
32.         print BOLD."$line".RESET."\n";
33. # 改 print BOLD."$line".RESET."\n"; 那一行
34.         print BOLD.$line."  [".pronun($line)."]".RESET."\n";

#==================== Step 1
# 找到
use LWP::Simple;
# 後面加上
use Encode;
use HTML::Entities;

#==================== Step 2
# 找到
sub parser
# 前面加上
sub pronun
{
	my $p = shift;
	my $cdict= get("http://cdict.giga.net.tw/?q=$p");

	$cdict =~ s/\\r//g;
	$cdict =~ s/\\n//g;

	if($cdict =~ m{<span class=pronun>\\s*/(.*?)/\\s*</span>}i) {
		my $line = $1;
		$line =~ s/<[^>]+>//g;
		return encode(\'utf8\', decode_entities($line)).RESET;
	} else {
		return "沒有音標";
	}
}

#==================== Step 3
# 找到
		print "<h2>" if $debug;
		print BOLD."$line".RESET."\\n";
# 改 print BOLD."$line".RESET."\\n"; 那一行
		print BOLD.$line."  [".pronun($line)."]".RESET."\\n";

[高亮] · [原始] · perl