Main Page: Difference between revisions
mNo edit summary |
mNo edit summary |
||
| Line 28: | Line 28: | ||
| | | | ||
|} | |} | ||
< | <source lang="perl">#!/usr/bin/perl | ||
use strict; | use strict; | ||
use File::Copy; | use File::Copy; | ||
use Net::FTP; | use Net::FTP; | ||
use Socket; | use Socket; | ||
sub ftp_folder { | sub ftp_folder { | ||
my $dir = shift; | my $dir = shift; | ||
| Line 71: | Line 73: | ||
return $i; | return $i; | ||
} | } | ||
</source> | |||
</ | |||