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文でこんな感じでやれば・・・というアドバイスがあればお願いいたします。

回答No.4

shiren2 · ベストアンサー

こんな感じでしょうか。
動作確認はしていないのでバグがあるかもしれませんが…。

#!/usr/bin/perl
use strict;
use Net::FTP;

chdir("保存先ディレクトリ") or die;
my $ftp = Net::FTP->new("example.com") or die;
$ftp->login("user", "pass") or die $ftp->message;
$ftp->cwd("取得元ディレクトリ") or die $ftp->message;

# すべてのログを取得
my @files = grep{ /^LOG_/ } $ftp->ls;

# 12月分を取得
# my @files = grep{ /^LOG_12/ } $ftp->ls;

# 最新の30日分を取得
# my @files = sort{ $b cmp $a }grep{ /^LOG_/ } $ftp->ls;
# @files = splice(@files, 0, 30);

# 11月20日から12月19日までを取得
# my @files = grep{ /^LOG_(\d+)/ && 1120 <= $1 && $1 <= 1219 } $ftp->ls;

for(@files){
# 取得済みならスキップ
next if -e $_;

printf("get %s\n", $_);
$ftp->get($_) or warn $ftp->message;
}

お礼

ご回答有難うございます。
様々な取得条件で書いてくださったこと感謝いたします。

実際動かしてみたら特にバグも発生せずできました。

回答No.3

ryu_chan

Date::Calcモジュールを使えばうるう年を気にせず書けると思いますが、多分、重いです。
日付関係では有用なモジュールなので今後の参考にされるといいと思います。

use Date::Calc qw(Delta_Days Add_Delta_Days);

my $year = '2010';
my $startdate = '1120';
my $enddate = '1219';

my ($startmonth, $startday) = $startdate =~ /\d\d/g;
my ($endmonth, $endday) = $enddate =~ /\d\d/g;

my $delta_days = Delta_Days($year, $startmonth, $startday, $year, $endmonth, $endday);

my @target_files;
for my $day (0..$delta_days) {
push @target_files, sprintf("LOG_%02d%02d.csv", (Add_Delta_Days $year, $startmonth, $startday, $day)[1,2]);
}

お礼

Date::Calcモジュール　初めて聞きました。
勉強不足で恐縮です。

今後、多用しそうなので勉強させていただきます。
有難うございました。

回答No.2

Tacosan

それは「必要な日付のリスト」を作ってしまうのが簡単じゃないかな.

たとえば, まず
my @daysofmonth = (0, 31, 29, 31, ..., 31); # 各月の日数
my @dates = ();
for my $month (1 .. 12) {
push @dates, map { sprintf "%02d%02d", $month, $_ } 1 .. $daysofmonth[$month];
}
でリストを作っておく (必ず 2月29日が含まれることに注意: これが問題になるときは「うるう年かどうか」の判定も追加すること).
んで,
$startdate = '1120';
$enddate = '1219';
に対して
grep { $startdate <= $_ && $_ <= $enddate } @dates
で必要な日付のリストが取れるからあとはファイル名を組み立てて get.

「年をまたぐ」必要があるときには, そのまま扱うと面倒なのでまたがないように分けた方が楽だと思う.

お礼

なるほど、確かにリストを作ってしまった方がやりやすそうです。

うるう年のこと全く忘れていました。><
難しそうですが、1つの方法としてやってみます。
有難うございます。

回答No.1

Tacosan

ここに挙がっている例だと
my @logfiles = qw(aaa bbb ccc);
for my $logfile (@logfiles) {
$ftp->get("取得元パス/$logfile.csv", "c:/log/$logfile.csv");
}
でいいと思うんだけど....

その「LOGファイル」の名前の規則性, あるいはローカルなシステムにおける (「LOGファイル」を持ってきたファイルの) 名前の規則性がわかればもっと簡単かもしれん.

お礼

なるほど配列を使うやり方があるんですね。
For文も方うまくいきました。
有難うございます。

LOGファイルの出力は、LOG_月日.csvで出力されています。
例:　LOG_0101.csv　や　LOG_1228.csv　など

例えば、11月20日から12月19日までのLOGを取得したい場合も、
配列の部分をFor文にして行うことも可能なのでしょうか?
(LOG_1120.csv　から　LOG_1219.csvまで)

何度も申し訳ありません　><