camel

鐃緒申敵!

鐃初算鐃緒申 | 鐃緒申 overload 鐃緒申鐃緒申 TT 鐃塾フワ申鐃暑タ鐃淳わ申鐃緒申鐃淑居申法鐃緒申鐃緒申鐃緒申鐃緒申鐃� - 鐃緒申鐃緒申鐃緒申 鐃熟てな誌申店
<?= $value | replace('x','y') | uri ?>
鐃緒申鐃緒申鐃緒申鐃緒申暴颪韻鐃緒申鐃緒申鐃重�鐃叔わ申鐃緒申諭鐃緒申箸鐃緒申鐃緒申鐃緒申箸任鐃緒申鐃淑のわ申颪い討澆鐃緒申鐃�

鐃叔も、鐃緒申鐃塾ままではわ申鐃緒申辰隼箸鐃緒申鼎蕕わ申里如鐃緒申鐃緒申鐃緒申佞鐃縦常申鐃緒申鐃�Sub::Pipe鐃夙わ申鐃緒申CodeRepos鐃祝わ申p鐃緒申鐃銃わ申鐃緒申鐃殉わ申鐃緒申鐃緒申

鐃緒申鐃緒申鐃緒申鐃熟￥申鐃淑駕申鐃緒申鐃縮り。

  • 鐃緒申鐃緒申鐃緒申鐃緒申Filter鐃夙わ申鐃緒申鐃盾ジ鐃遵ー鐃緒申名鐃熟まわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃春ワ申鐃暑タ鐃緒申鐃熟とわ申鐃瞬る。
  • 直鐃緒申coderef鐃緒申bless鐃緒申鐃緒申里呂鐃緒申鐃獣わ申鐃緒申鐃緒申鐃緒申鐃緒申足鐃緒申覆鐃緒申鐃�

鐃淑常申鐃縦常申鐃緒申鐃緒申里鐃緒申鐃緒申焚鐃緒申任鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑�鐃緒申AS IS鐃叔￥申

package Sub::Pipe;
use warnings;
use strict;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw/joint/;

use overload '|' => sub { $_[0]->( $_[1] ) };

sub joint(&) { bless $_[0], __PACKAGE__ };

if ( $0 eq __FILE__ ) {
    local $\ = "\n";
    my $uri = joint { use URI::Escape; uri_escape_utf8(shift) };
    my $html = joint {
        my $str = shift;
        $str =~ s{([&<>"])}{
            '&' . { qw/& amp  < lt > gt " quot/ }->{$1} . ';' ;
        }msgex;
        $str;
    };
    my $html_line_break = joint {
        local $_ = $_[0];
        s{\r*\n}{<br/>}g;
        $_;
    };
    my $replace = sub {
        my ( $regexp, $replace ) = @_;
        joint {
            my $str = shift;
            $str =~ s{$regexp}{$replace}g;
            $str;
        }
    };
    print "dankogai" | joint { uc shift };
    print "<pre>" | $html;
    print "Perl & Me" | $uri;
    print "PHP" | $replace->( 'HP', 'erl' );
    print "Rock\nRoll" | $html_line_break | $uri;
}

1; # End of Sub::Pipe

鐃殉わ申CPAN鐃祝はわ申p鐃緒申鐃銃まわ申鐃藷。わ申鐃塾まわ申 id:sfujiwara 鐃緒申鐃緒申鐃� CodeRepos 鐃緒申由鐃塾器申贈鐃夙わ申鐃緒申鐃緒申鐃夙で￥申鐃緒申鐃宿わ申鐃淑わ申CPAN鐃舜のわ申p鐃緒申笋�鐃緒申辰討鐃緒申鐃緒申泙鐃緒申鐃緒申鐃�

Dan the Perl Monger