- 締切済み
Perlでファイルの存在確認をするには
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- moon_night
- ベストアンサー率32% (598/1831)
CSVがどのような形式になっているかは分かりませんが、 単に横にカンマ区切りの場合。 $csv = ('file,file,file,file'); (@file_name) = split(",",$csv); foreach (@file_name) { if (-e $_) { #存在します } else { # 存在しません }
関連するQ&A
- PerlでCSVファイルからRSS対応のXMLファイル（UTF-8フォーマット）を作成する方法を教えて下さい。
初めてＯＫＷｅｂを使わせて頂きます。よろしくお願い致します。 社内でホームページを作成しており、新着情報などはＣＳＶファイル（日付、タイトル、内容、ＵＲＬなどが一行に記載されたもの）を元にＰｅｒｌプログラムでホームページに表示するようにしています。 このＣＳＶファイルを使って、ＲＳＳ対応のＸＭＬファイルを生成したくＰｅｒｌでCSVファイルからXMLファイルを作成するプログラムを記述してみたのですが、作成後、ＵＴＦ-８フォーマットでファイルを保存する方法がわかりません（現在はShift-JISになっていると思います）。 ファイルをＵＴＦ-８に変換し保存するPerlの記述方法がわかりましたらお教えください。 尚、環境は以下となります。 ＯＳ：Windows2000Server Web：IIS5.0 ソフト：ActivePerl5.6 他の人が作ったPerlプログラムもあり、できればこの環境（Versionなど）は変えずできると嬉しいです。Perl初心者ですので、できれば具体的な記述方法をお教え頂ければとても助かります。申し訳ありませんが、よろしくお願いします。
- ベストアンサー
- Perl
- perl初心者です。
すみません、xmlファイルからＣＳＶファイルに変換するプログラムを作成しなくてはいけないのですが、 perlを１からあまり書いた事がないので イメージがわきません。 何か参考になるページをネットで探してるのですが、 どなたか参考になりそうなＨＰをご存じでしたら ＵＲＬを教えていただけると助かります。
- ベストアンサー
- Perl
- perl-cgi「日時によるファイル操作」について
perl-cgi「日時によるファイル操作」について perl-cgiで、あるディレクトリ中のファイル更新日が最も若い2ファイルを表示して、それ以外を削除したいのですがどのようにすればよいでしょうか? #調べたいディレクトリを読み込む。 $Dir = "./cache"; opendir DIR,"$Dir"; my @alldir = readdir DIR; close DIR; #ファイル(パス)名と作成日時を求める。 #最新２つのファイルパス(名)を表示する。 print "NewFile".ファイルパス１; print "<HR>"; print "OldFile".ファイルパス２; #最新２つ以外は全て削除 unlink($_); exit(0);
- ベストアンサー
- Perl
- Perlでのファイル処理方法について
プログラミングを始めたばかりです。 Cygwin環境でPerlを行っています。計算プログラムをPerlで書いています。 下に示すように、計算プログラムの中にデータを記入し、そのデータを処理することは出来たのですが、外部のファイルを読みそのデータを処理する方法が分かりません。 # y = ax + bを求める @x=(1,2,3); @y=(1,4,9); for(<stdin>){ for($i=0;$i<$n;$i++){ $A = $A + ($y[$i] * $y[$i]); $B = $B + ($x[$i] * $x[$i]); ・ ・ ・ $a=・・・ $b=・・・ print("a=$a,b=$b"); open (IN, $file) or die "$!"でｃｓｖファイルに記載されてある数値をCygwin上で実行することは出来ました。 作成したプログラムとcsvファイルをCygwinで入力して、入力したｃｓｖファイルのデータを処理（直線近似して傾きを求めたりなど）したいのですが、どうすればよいのでしょうか。 よろしくお願いします。
- ベストアンサー
- Perl
- ファイルの存在確認の方法
下記のようにファイルが存在するかを確認したいのですが、御教授いただけないでしょうか。 http://www.abc.co.jp/test.jpg test.jpgがあれば画像表示、なければ 「画像がありません」と表示。 ほとんどperlは使っていない初心者です。
- ベストアンサー
- Perl
- Perlで圧縮ファイルを作成するには？
質問なんですが・・・ perlで、ディレクトリ毎圧縮してしまうようなことが出来るのでしょうか？ 検索条件に一致したレコードを取り出し、複数のcsvファイルをperlで作成するのですが、ダウンロードをまとめてさせたいと考えています。 圧縮形式はzipまたはlzhを予定しています。 環境としては、perl5、サーバーはLinuxです。
- 締切済み
- Perl
- perlプログラムが動かない
パールのプログラムを作成して拡張子「.pl」で保存するとアイコンがパールのマークになりますよね。 プログラムファイルにデータファイルをドラッグすると、プログラムファイル（拡張子.pl）のアイコンが白黒反転して、目的の加工データをファイルとして出力するプログラムがるのですが、プログラムを作成したパソコンともう一台しか動作しません。他のパソコンでは、プログラムファイルにデータファイルをドラッグしても、プログラムファイル（拡張子.pl）のアイコンが白黒反転せず、パールプログラムが動作しません。 どこの設定をどのように変更すればいいのでしょうか。（プログラムファイルのアイコンを白黒反転させるにはどうしたらいいのでしょうか。） コマンドプロンプトでパスが通っているか確認をしたのですが、どのパソコンもパスは通っています。 プログラムの動作するパソコンの「システム環境変数のpathとPATHEXT」をプログラムの動作しないパソコンにコピーペーストしてもNGでした。 ※perl.exeが入っているディレクトリは同じにしています。プログラムファイとデータファイルをperlフォルダに入れても駄目でした。 OSは、Windows XPです。
- 締切済み
- Perl
- Perlを用いてtxtファイルをmail送るやり方
Perlを用いて、そのサーバー上にあるTxtファイルをmailで送りたいのですが、どのようにプログラムを書けばよろしいのでしょうか？ txtfileは、1日一回更新するようになっております。 perlをはじめて使う者です。なにとぞ、よろしくお願いいたします。 かなり初歩的なことで申し訳ありませんが、ご教授お願いいたします。
- 締切済み
- Perl
- perl ftp取得したファイルの保存先設定
perl初心者です。 FTPサーバーのLOGを取得する場合のプログラムをperlで作成しております。 保存先設定を1回(1行)設定しただけで設定先フォルダにLOGファイルが保存されるような方法はありますでしょうか? 今現在以下のように保存先を指定して取得しています。 my $local_file1 = 'C:/log/aaa.csv''; my $local_file2 = 'C:/log/bbb.csv'; my $local_file3 = 'C:/log/ccc.csv'; $ftp->get('取得元パス/aaa.csv',$local_file1); $ftp->get('取得元パス/bbb.csv',$local_file2); $ftp->get('取得元パス/ccc.csv',$local_file3); ただ、1ヶ月分のLOGを取得するとなるとmy $local_fileも$ftp->getも1ヶ月分作成しなければならないため長文のプログラムになってしまいます。 他、1ヶ月分ならFor文でこんな感じでやれば・・・というアドバイスがあればお願いいたします。
- ベストアンサー
- Perl
- perlでデータベースに接続したい。
PerlでCSVに保存されている内容を確認したい時、 #!/usr/bin/perl $file = 'xxx.csv'; open(TXT, "+>$file"); print << __PRINT__; content-type:text/html <html><head><title>表\示</title></head> <body>$file</body></html> __PRINT__ exit; こういった感じでブラウザに表示できるかと思いますが、 データベースに保存されている内容をブラウザ表示したい時は、 どんなソースになりますか？
- ベストアンサー
- MySQL
お礼
お答え頂き、ありがとうございます。 早速試行してみます。