10 lines
223 B
Tcl
10 lines
223 B
Tcl
|
package require ftp
|
||
|
|
|
||
|
|
set conn [::ftp::Open kernel.org anonymous "" -mode passive]
|
||
|
|
::ftp::Cd $conn /pub/linux/kernel
|
||
|
|
foreach line [ftp::NList $conn] {
|
||
|
|
puts $line
|
||
|
|
}
|
||
|
|
::ftp::Type $conn binary
|
||
|
|
::ftp::Get $conn README README
|