Perl-Catalyst/その他/ファイルアップロードのバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-Catalyst/その他/ファイルアップロードへ行く。
- 1 (2008-09-05 (金) 20:37:35)
- 2 (2008-09-05 (金) 20:38:33)

ファイルアップロード

$c->req->upload('csv_file')でオブジェクト取得、$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] );
    }
 }