Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use Path::Class;
use constant THISFILE => file( __FILE__ )->absolute->stringify;
...
}

__END__
  2. or download this
    package Tie::File::UTF8;
use parent qw[ Tie::File ];
sub TIEARRAY {
...
    $rec = encode( 'UTF-8', $rec );
    $self->SUPER::FETCH( $n, $rec );
}