system関数で変数を受け継ぐのは?

[上に] [前に] [次に]
やちゅん 2000/04/05(水) 08:43:20
=============test.pl================================
  open (IN,"data.txt");
    @name = <IN>;
  close (IN);

  foreach $name (@name){
    system ("ftp -s:ftpcmd.txt gc1fv188")
  }
====================================================

=======ftpcmd.txt===================================
admin
Master
cd /test/pdf
lcd ../pdf
put $name $name
bey
===================================================
と書いているのですが、当然test.plからftpcmd.txtに$name
は引き継げていないのでうまくいきません。
どうしたら$nameを渡せるのでしょうか?
あとこのプログラムだと$nameの数量分ftpcmd.txtを作成して
putコマンドが動くわけですがそれも一度で送ってしまいたいのですが
なにかいい方法はないでしょうか?
よろしくお願いします。

[上に] [前に] [次に]