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

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

ファイルアップロード

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] );

}