- バックアップ一覧
- 現在との差分 を表示
- ソース を表示
- バックアップ を表示
- Perl-Catalyst/その他/ファイルアップロード へ行く。
- 1 (2008-09-05 (金) 20:37:35)
- 2 (2008-09-05 (金) 20:38:33)
- 追加された行はこの色です。
- 削除された行はこの色です。
* ファイルアップロード [#dea80ad8] 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] ); } }