##########  たくさんのファイルをftp から取る 2
前処理
#pkg > ./allpkg
kde など いらない ファイルを除く

cat ./allpkg | grep -v "kde" > allpkg.ok
perl スプリクトでファイル名の前から５文字抜き取り
.....................
Xft*
Xft*
adobe*
...................

#!/usr/bin/perl     (pkgget.pl )
#
# 2004 8-4 ok
open(F, "allpkg.ok");
while ($abc =<F>){
$abc =~  /(^....)/ ;
#print "mget $1* \nall\n";   ＃１
 }
print "\n";
close (F);

重複行 削除
#perl pkgget.pl > pkg.out
pkg.out から重複行 削除
 
#sort pkg.out | uniq > pkg.ok  さらに＃１を加えて実行
#!/usr/bin/perl     (pkgget.pl )
# 2004 8-4 ok
open(F, "allpkg.ok");
while ($abc =<F>){
$abc =~  /(^....)/ ; 
print "mget $1* \nall\n";   ＃１
 }
print "\n";
close (F);

.................................................
mget Xft* 
all
mget adobe* 
all
...........＃１で上のように作る........

結果 下のようになる

#!/bin/sh
ftp -v ftp://ftp.jp.freebsd.org << EOC
           cd /pub/FreeBSD/ports/i386/packages-5.1-release/All
mget Xft*
all
mget adobe*
all
mget expat*
all
mget xsnow*
all
    bye
EOC