Net::FTPを使いフォルダ一覧を取得したいと思い以下の参考サイトを
Net::FTPを使いフォルダ一覧を取得したいと思い以下の参考サイトを発見しました。
http://dqn.sakusakutto.jp/2008/06/perl_netftpftp.html
非常に分かりやすく早速スクリプトを使用して作成しましたがこのスクリプトですと「/」ルート直下の一覧で取得されてしまいます。
(ここから)
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;
(ここまで)
$ftp->cwd('/public_html');を追加したのですが、
drwxrwx--- 2 xxxx xxxxx 48 Sep 3 14:59 Maildir
drwx---r-x 2 xxxx xxxxx48 Sep 3 14:59 log
drwx---r-x 1019 xxxx xxxxx 40584 Dec 28 00:25 public_html
となってしまいます。
$ftp->dir; を
$ftp->dir('/public_html');
としてもみましたがうまくいきませんでした。
すみません。ご指導を賜りたく書き込みました。
よろしくお願いいたします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
