Wie implementiere ich Versandtabellen in Perl?

Ich muss eine speicherbezogene App in Perl schreiben. Die App muss Dateien vom lokalen Computer auf einige andere Speicherknoten hochladen. Gegenwärtig ist die Upload-Methode FTP, aber in Zukunft kann es sich um eine Bittorrent- oder eine unbekannte Super-File-Transfer-Methode handeln.

Für jede Datei, die hochgeladen werden muss, gibt es eine Konfigurationsdatei, die den Dateinamen, den Speicherknoten, auf den die Datei hochgeladen wird, und die Übertragungsmethode definiert, die während des Uploads verwendet werden soll.

Natürlich kann ich mein Problem mit der folgenden Methode lösen:

{
  if ( $trans_type == "ftp" ) { ###FTP the FILE}
  if ( $trans_type == "bit" ) { ###BIT the FILE}
  ### etc ###
}

Aber selbst mit meinen grundlegenden OO-Kenntnissen, die ich in der Schule gelernt habe, bin ich der Meinung, dass dies kein gutes Design ist. (Der Fragentitel ist möglicherweise etwas irreführend. Wenn Sie der Meinung sind, dass mein Problem mit einer Nicht-OO-Lösung problemlos gelöst werden kann, ist dies für mich in Ordnung. Eigentlich ist es besser, da ich nur begrenzte OO-Kenntnisse habe.)

Könntet ihr mir also generell einen Rat geben? Wenn Sie auch Beispielcode bereitstellen, ist dies natürlich eine große Hilfe.

Antworten auf die Frage(7)

Ihre Antwort auf die Frage