- 締切済み
WIKI(PERL版）にCSVファイルをインポート可能でしょうか？
Wikiを使って辞書を作ろうと考えております。 現在、EXCELで1万語程度の辞書がありますので、そのファイルをCSVエキスポート し下記のようなCSVフォーマット変換してそれを一気にWIKIシステムに読み込ませ 個別ファイル（単語ごと）にできればと考えております。 ---------term.csv--------- 単語,意味 book,本 pen,ペン use,使う -------------------------- PERL版のWIKIを探して（まだ取り掛かっておりません、複数あるのでしょうが 環境がPERL CGIしか動きません）それから上記のようにCSVを読み込ませようと 考えておりますが、可能でしょうか？
- happy529434
- お礼率70% (7/10)
- CGI
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- estea
- ベストアンサー率44% (39/87)
可能か不可能かだけなら、可能だと思われます。 Wikiによってデータの保存方法が違うでしょうから それにあわせて取り込んでやればいいわけですが・・・。
関連するQ&A
- perlでＣＳＶ形式ファイルのアップロード
本日、同じ質問をしたものです。 前回の問題は解決したのですが、ファイルがアップロードできないで悩んでします。 ＣＧＩのプログラムは以下のソースです。 #! c:/perl/bin/perl use CGI; # CGIヘッダーの出力 print "Content-type: text/html\n\n"; my ($query,$fileName); $query = new CGI; $fileName = $query->param('fileName'); open(OUT, ">./a.csv"); binmode(OUT); while(read($fileName,$buffer,1024)) { print OUT $buffer; } close(OUT); close($fileName); #ファイルハンドルをcloseしています。 exit ; ファイルは、作られるのですが、中身が書き込まれません。 どなたか教えてください。 お願いします。
- ベストアンサー
- Perl
- CSVファイルのダウンロード
よろしくお願いします。 現在、ボタンを押すと(=CGI実行)フィルターによりCSVファイルが作成されるという様なものを開発しております。 しかし、その出来上がったCSVファイルをそのままダウンロードしたいと言う要望がありまして、そのCGIに組み込めないものかといろいろ調べております。 概要 (1)ボタンを押す(=CGI実行) (2)フィルターによりCSVファイル作成 (3)作成されたファイルをダウンロード という具合で、教えていただきたいのは(3)です((1)(2)は作成済み)。 実際にはCSVファイルは3つできるのですが、これらをまとめてダウンロード・・・というのはムリですよねぇ(第1希望)。 ムリなら、処理の中で圧縮させます(これぐらいはできます)ので、そのファイルをダウンロードさせるというやり方でも構いません(第2希望)。 実現が難しいようであれば実行結果画面に<a href= ～>で貼り付けます。 webサーバー・・・HP-UX web・・・IE CGI開発言語・・・Perl 開発端末・・・windows2000(Tera Term 使用) 以上、情報等お持ちの方いらっしゃいましたら、 よろしくお願いいたします。
- ベストアンサー
- CGI
- CSVファイルをCGIでダウンロード
Perlを使ってCGIを書いています。 申し込みフォームを送信すると、CSVファイルに書き込むのとメールで送信するというCGIを作りました。 そこで、その作ったCSVファイルをFTPソフトを使うのではなく、ブラウザ上でCGIを使ってダウンロードしたいのですが、どうしたらよいのでしょう？ 環境は OS：Linux、PerlのバージョンはPerl5です。
- ベストアンサー
- CGI
- perlでcsvファイルから複数行を抽出したい
プログラミング初心者です。 お知恵をお貸しください。 perlでcsvファイルから任意の複数行を、コマンドライン引数を使って抜き出したいです。 1行だけだとうまくいきますが、以下ではすべてのcsvデータが出力されてしまいます。 ----------------------getcsv.pl ここから---------------------- #!/usr/bin/perl -- use strict; use warnings; open(IN, "<adata.csv"); open (OUT, ">$bdata.csv"); while(<IN>){ if($. == $ARGV[0] || $ARGV[1] || $ARGV[2] || $ARGV[3]) { print OUT $_; } } close(IN); close (OUT); ----------------------getcsv.pl ここまで---------------------- ----------------------コマンド ここから---------------------- perl getcsv.pl 1 3 8 10 ----------------------コマンド ここまで---------------------- よろしくお願いします。
- ベストアンサー
- Perl
- csv2wiki.plのエンコーディングについて
Excelで保存したCSVファイルからcsv2wiki.plを用いてMediaWikiに新しいページを作っているのですが、英語だと上手くいくんですけど、日本語だと文字化けしてしまいます。これはExcelがSJISでしか保存できないのと、MediaWikiのエンコーディングがutf8なのが原因なんですが、csv2wiki.plにSJISから、UTF8に変更するような関数を入れれば直ると思います。ただ、ググってみるとjcode.plとかPerl 5.8ではEncode.pmとか、わけの分からない言葉がたくさん出てきます。PHPみたいにmb_convert_encoding($a,"SJIS","UTF8");みたいに簡単に使える関数はありますか？
- ベストアンサー
- Perl
- CSVファイルに出力
Perlを使ってCGIを作っています。 そこで、資料請求フォームを送信した時に、CSV形式で出力するんですけど、ファイル名を現在日時を取ってきて例えば200108.csvみたいに年と月を付けたファイルを作って、出力させたいのですが、どうやって良いのか困ってます。 お教え願えないでしょうか。 よろしくお願いします。
- ベストアンサー
- CGI
- ＣＧＩ（Perl）でWeb上から作成したファイル（ｃｓｖなど）をsendmailで添付
宜しくお願いします。 CGI（Perl）を使い、Web上でメンバー登録などをし、 個人データなどをcsvファイルにして、sendmailで 管理者へ送りたいのですが、 添付ファイルとして、こういったファイルを送る方法をお教え下さい。
- ベストアンサー
- CGI
- CSVファイルのパーミッションは？
アクセス集計等のCGIで、CSVファイルを使用しています。 元になるデータと、吐き出されるデータはCSVファイルになっているんですが、サーバ上で上手く動きません。 ローカルでテストした段階では、データの読み込みも吐き出しも正常に動作しています。 なので、おそらくパーミッションの設定の問題だと思われるんですが…とりあえず、600・606．666と試してみたんですが、読み込みに失敗しているような感じです。 CSVのパーミッションは一般的に666が使われると思っていたんですが…。 複数のファイルから結果を出すような形なので、CSVファイルも個別に設定する必要があるんでしょうか？ よろしくお願いしますm(__)m
- ベストアンサー
- CGI
- perlでＣＳＶ形式ファイルのアップロード方法
perlでＣＳＶ形式ファイルのアップロード方法を教えてさい。 htmlで <HTML> <BODY> <FORM action="excel読み込み.cgi" enctype="multipart/form-data" method="post"> フレアシステムのファイル: <INPUT type="file" name="upload_file" size="60"><BR> <INPUT type="submit" value="読み込み"> </FORM> </BODY> </HTML> として、ファイル名の指定をして、読み込みボタンを押すと、excel読み込み.cgiを呼び出すのですが、プログラムの内容が表示されるだけで終わってしまいます。 excel読み込み.cgiのプログラムは以下の内容です。 #! c:/perl/bin/perl use CGI; $query = new CGI; $filename = $query->param('upload_file'); while(read($filename, $buffer, 2048)) { $file .= $buffer; } @files = split(/\\/, $filename); ($basename, $exp) = split(/\./, $files[-1]); $new_file = $basename . "." . $exp; # ファイルを指定ディレクトリにコピー #open(OUT, "> c:\\foo\\$new_file"); open(OUT, "> c:\\$new_file"); binmode(OUT); print(OUT $file); close(OUT); print "Content-type: text/html\n\n"; print "[$basename] [$exp]\n"; print "正常終了\n"; exit; CGIのプログラムを色々と調べて、別のないようにしても同じようにプログラムがそのまま表示されてしまいます。 どなたか教えてください。 宜しくお願いします。
- 締切済み
- Perl
- perlで大容量CSVのsort方法について
perlで大容量CSVのsort方法について perlでcsvファイル100MB超のファイルをソートしたいと思ってますが、以下の方法でメモリーの関係上(と思ってます。)できません。 ソートを行う方法がありますでしょうか? 件数も11万件あるので、エクセルでソートしてからの受け渡しが出来ずに悩んでます。 (ここから) #sortロジック sub sort { use warnings; use feature ':5.10'; open my $ifh, '<', $inport or &error("Can't open $inport"); my @lines = <$ifh>; close $ifh; print @lines, "\n"; #csvファイル何番目? my @sorted = map { $_->[0] } sort { $b->[0] <=> $a->[0]} map { [(split q{,}, $_)[0], $_] } @lines; @lines = @sorted; exit; } (ここまで) いつも貴重なアドバイスをありがとうございます。よろしくお願いいたします。
- ベストアンサー
- Perl
お礼
ありがとうございました。