Perlでもなんでも、ソースをブログに載せるときは気をつけたいもの。
ファイルを見ると、2年前から使っている自分用のツールがある。
「<」や「>」など、HTMLでそのまま表示できないものを実体参照に変更したり、preとcodeで括ってソースとして表示しやすくするためのものだ。
少し前に、perltidyを覚えたのだが、ブランクがあいていたのと、パソコンを変えていたので、改めてインストールすることにした。
自分の記事も役に立つものです。
ただ、以前と違っていたのは、perlと同じbinフォルダではなく、site/binのほうに入っていた。
で、ソースがきれいにハイライトされているページをちらほら見かけたので、色気づいて調べてみた。
とりあえず簡単にできそうだったのが、「Quick Highlighter」というサイト。
というわけで。
euc2utf8.plをperltidyで整形して、Quick Highlighterでハイライトさせてみた。
しかし、スタイルシートが競合するのか、ブログ上で見るといまいちかなぁ
。
もう少し調べてみよう。
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Fatal qw/open close/;
- use Encode;
- use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
- use File::Find::Rule;
- my $rule = File::Find::Rule->new;
- $rule->file;
- $rule->name( '*.cgi', '*.pm' );
- my @files = $rule->in('.');
- foreach my $file (@files) {
- euc2utf8($file);
- }
- sub euc2utf8 {
- if ( -f $filename ) {
- my $fh;
- my $doc;
- {
- $doc = <$fh>;
- }
- my $enc = guess_encoding($doc);
- Encode::from_to( $doc, $enc, "utf8" );
- }
- }


コメントする