Net::FTPを使いファイル一覧のみを取得したい
Net::FTPを使いファイル一覧のみを取得したい
以前の質問では大変お世話になりました。
「Net::FTPを使いフォルダ一覧を取得」
http://okwave.jp/qa/q5555220.html
今度は、Net::FTPを使いファイル一覧のみを取得したいと思ってます。
(ここから)
use Net::FTP;
my $ftp = Net::FTP->new("hoge.sav.ne.jpp", Debug => 0 , Passive => "true"); # 接続
$ftp->login("xxxx", "pass"); # ログイン
my @dir = $ftp->cwd('/public_html');
my @dir = grep /^d/, $ftp->dir; # ← フォルダ一覧をdirコマンドで取得
my @dir_names_full = @dir[2..$#dir]; # 自フォルダと親フォルダ("."と"..")を除く。
my @dir_names_short = map { (split)[8] } @dir_names_full; # フォルダ名のみを取得
$ftp->quit;
print "$_<br>\n" for @dir_names_full;
(ここまで)
my @dir = grep /^d/, $ftp->dir; # ← フォルダ一覧をdirコマンドで取得
の部分の「grep /^d/,」を削除したら、ファイルも一緒に表示させることは出来たのですが
正しく表示されませんでした。
(ここから)
drwxrwx--- 2 xxxx xxxxx 48 Sep 3 14:59 Maildir
drwx---r-x 2 xxxx xxxxx48 Sep 3 14:59 log
-rw-r--r-- 1 xxxxnobody 2932 Oct 21 09:34 ent4.html
-rw-r--r-- 1 xxxx nobody 2933 Oct 21 09:34 ent5.html
-rw-r--r-- 1 xxxx nobody 2878 Oct 21 09:34 index.html
(ここまで)
最終的な結果は
(ここから)
-rw-r--r-- 1 xxxx nobody 2932 Oct 21 09:34 ent1.html
-rw-r--r-- 1 xxxx nobody 2932 Oct 21 09:34 ent2.html
-rw-r--r-- 1 xxxx nobody 2933 Oct 21 09:34 ent3.html
-rw-r--r-- 1 xxxx nobody 2932 Oct 21 09:34 ent4.html
-rw-r--r-- 1 xxxx nobody 2933 Oct 21 09:34 ent5.html
-rw-r--r-- 1 xxxx nobody 2878 Oct 21 09:34 index.html
(ここまで)
で表示させたいのです。
検索をしていたら、grepで出来そうなのかと思いやってみましたがうまくいきませんでした。
お手数かけます。
よろしくお願いいたします。
