ファイルアップロード

$c->req->upload('csv_file')でCatalyst::Request::Uploadオブジェクト取得、$upload->fhでIO::Fileオブジェクトを取得。

sub import_csv : Local {
   my ( $self, $c ) = @_;

   my $upload;
   unless ($upload = $c->req->upload('csv_file') ) {
       $c->detach('index');
   }

   my $csv = Text::CSV->new( { binary => 1 } );
   my $idx = 0;
   my $fh = $upload->fh;
   while ( my $col = $csv->getline($fh) ) {
      my ( $login_id, $passwd ) = ( $col->[0], $col->[1] );
   }
}

http://search.cpan.org/perldoc?Catalyst::Request::Upload


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2008-11-10 (月) 05:56:39 (3601d)