Well the short answer is "Yes" it is possible to create code which does this.
I think that most people would question why you would wish to do this though, there are many tools which solve this problem already which have been mentioned above.
If you have some specific problem with them then you should probably mention it - instead of looking to reinvent the wheel.
For example you might have a problem with entering passwords - in which case you should investigate the use of shared keys and SSH, making passwords unnecessary.
Or if you do not have root access to the machine you wish to copy files to, and cannot install or modify software there then that might be a valid vetoing option. However you may be able to do things in reverse in that case, instead of connecting to the machine connect from there and "pull" the files.
The perl code to do the copying is going to open up a whole can of worms:
- You will need to create a protocol to specify the password (you are going to password protect this, right?) to allow the copy to proceed.
- You will have to pass the name of the file you wish the receiving side to write to.
- You probably want to "lock" the sender into a particular directory, so they don't write to ~/.ssh/authorized_keys, or /etc/password for example.
- You'll need to deal with errors writing and signal them back to the client.
Those are just a small list of things that occur to me.
However if you really want to do this, and it's not exposed to the internet you should start by looking at IO::Socket::INET, File::Copy and related modules.
|