Unknown::Programming このページをアンテナに追加 RSSフィード

2007-05-12 逃走

Template::Plugin::CSV::Escapeの方がいいかな

CSVエスケープしてくれるTemplateのプラグイン - Unknown::Programming

CPANTemplate::Plugin::XML::Escapeってのがあったんで、なんとなく名前を揃えてみた。

ついでにfilter名のデフォ値もパッケージ変数に出しといた。


package Template::Plugin::CSV::Escape;
use strict;
use warnings;
use base qw/Template::Plugin::Filter/;

our $VERSION     = '0.01';
our $FILTER_NAME = 'csv';

sub init {
    my $self = shift;
    $self->install_filter($self->{_ARGS}->[0] || $FILTER_NAME);
    $self;
}

sub filter {
    my ($self, $text) = @_;
    $text =~ s/\x22/\x22\x22/go;
    return qq{"$text"};
}

1;

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証

トラックバック - http://d.hatena.ne.jp/fbis/20070512/1178959454