Perl Übungsaufgabe

[NOE_2.0]

Hallo Leute,

Hier habe ich eine Kleine Übungsaufgabe!
Es ist ein ganz kleies Tool das Berechnet wie lange es dauer von Rapidshar zu laden

Wer will kann das ganze noch ein bisschen verbessern oder in anderen Sprachen schreiben.

Lösung

#!/usr/bin/perl
#Dieser Downloadzeitberechner wurde von "NEO_2.0" Geschriben
#Bei Fragen hi-sers@web.de
print "----------------------------------------------------------------------------\n";
print "\n";
print " Rapidsharedownloadzeitberechner C0ded By NEO_2.0 \n";
print "\n";
print "----------------------------------------------------------------------------\n";
print "Geben Sie die Größe des einzelnen Downloadparts in MB an :\n";
$dgr = <STDIN>;
print "Geben Sie die Anzahl ader Parts an :\n";
$pz = <STDIN>;
print "Geben Sie die Wartezeit zwischen jedem Download in Sekunden an :\n";
$wzzp = <STDIN>;
print "Gebens Sie die Downloadgeschwindokgeit an in Kb/s :\n";
$dgw = <STDIN>;
$dgrap = $dgr * $pz;
$dgrkb = $dgrap * 1000;
$dz = $dgrkb / $dgw;
$zz = $wzzp * $pz;
$dzm = $dz / 60;
$dzh = $dzm / 60;
$dz0 = $dz + $wzzp;
$wzzpm = $wzzp /60;
$wzzph = $wzzpm /60;
$dzm0 = $dzm + $wzzpm;
$dzh0 = $dzh + $wzzph;
print "\n";
print "\n";
print "Ihr Download dauert :\n";
print "\n";
print "Free Account :\n";
print "-------------------\n";
print $dz0, " Sekunden\n";
print $dzm0, " Minuten\n";
print $dzh0, " Stunden\n";
print "\n";
print "\n";
print "Premium Account :\n";
print "------------------\n";
print $dz, " Sekunden\n";
print $dzm, " Minuten\n";
print $dzh, " Stunden\n";
print "\n";
print "\n";
print "Wartezeit in Sekunden :\n";
print $zz, "\n";
print "\n";
print "Downloadgeschwindigkeit in KB/s :\n";
print $dgw;
print "\n";
print "\n";
print "Anzahl der Parts :\n";
print $pz, "\n";
print "------------------------------------\n";
print "Größe aller Parts in MB :\n";
print $dgrap, "\n";
print "\n";
print "Gröse eines Enzelnen Parts in MB :\n";
print $dgr, "\n";
print "------------------------------------\n";
print "Downloadzeit einzeler Part :\n";
$dgrep = $dgr * 1000;
$dzeps = $dgrep / 60;
$dzepm = $dzeps / 60;
$dzeph = $dzepm / 60;
print "------------------------------------\n";
print $dzeps, " Sekunden\n";
print $dzepm, " Minuten\n";
print $dzeph, " Stunden\n";
print "------------------------------------\n";
print "\n";
print "C0ded By NEO_2.0\n";
print "Fragen hi-sers@web.de\n";
print "\n";
print "------------------------------------\n";