Re: cmss3は存在する？

名前: 大友
日時: 2006-02-10 13:12:27
IPアドレス: 130.34.177.*

>>41264
ありがとうございます。

Perlは5.8以降ですので、日本語の扱いに問題ないことになります。

ただ、結局shiftjisでもだめのようです。相変わらず文字化けします。

すみません。エラーメッセージを書いていませんでした。（関係ないような気もしますが。）

shiftjis "\x88" does not map to Unicode at Wguitartex-2.8.2\guitartex.pl line 41
3.

ちなみに413行目は、次のようなテキストのハイライトを行う部分のようです。ハイライトさせるべきテキストがなければエラーは出ません。

sub highlight {
	if ( $highlight eq "yes" ) {
		$text = $t->get("1.0", "end");		#store text from the editor in variabel $text
		$t->delete("1.0","end");		#delete text in the editor
		@lines = split (/\n/, $text);		#split the text into an array of lines
		foreach $line (@lines) {
			if ( $line=~/^{/ ) {		#if the line starts with '{' it is a directive
				$t -> insert ( "end", "$line\n", 'directive' );	#insert line with directive colors
			}elsif ( $line=~/^#/ ) {	#if the line starts with '#' it is a comment
				$t -> insert ( "end", $line, 'comment' );
			}elsif ( $line=~/\[.*\]/ ){			#if the line contains chords
				@words = split (/\[/, $line);		#split the line at every chord
				foreach $word (@words) {
					@words2 = split (/\]/, $word);	#split chord and lyrics
					if ( $word =~ /\]/ ) {		#if there was a chord insert it with chord color
						$t -> insert ( "end", '[' . $words2[0] . ']', 'chord' );
					}else{				#else insert the lyrics
						$t -> insert ( "end", $words2[0] );
					}
					$t -> insert ( "end", $words2[1] );
				}
			}else{	#a lyrics line without comment, directive or chord
				$t -> insert ( "end", $line );
			} #if-elsif-else  # ←ここが413行目
			if ( $line!~/^{/ ) {			#if the line is not a directive
				$t -> insert ( "end", "\n" );	#append newline character
			}
		} # foreach
	} #if
}

この書き込みへの返事：