<snip>
> push @files, @dirfiles;
> }
>
> return {
> src_uri => $src_uri,
> dest_uri => $dest_uri,
> files => \@files
> };
> }
>
> sub prompt_to_continue
> {
> my ($instructions) = @_;
> print Dumper $instructions;
> print "Continue? (yes/no) ";
> exit(1) unless <STDIN> =~ /^y(?:es)?$/i;
> }
>
> __DATA__
> download the files form wget http://castopulence.org and upload on
> http://prodserver/weebsite1
>
> news.html
> projects.xhtml
> downloads.xml
> js/acc.dev.js acc.js
> schitzwin/index.html schitzwin.pl
>
>
wow !! you have actually come up with with a solution ... i kind of new to
perl .. and will take some time to understand and read you code . .. thanks
a lot .
--
Regards
Agnello D'souza
