#!/usr/bin/perl # # CGI-BIN script to show today's value of EDB ASA options # use CGI; use Time::Local; $maxhours = 0.5; # Max age of kursfil #Filplassering $kursdata = "/tmp/edbkurs"; $solurl = "http://www.solbors.no/quotes/overview.ephtml?item_id=25007"; # Opsjonsutovelse: 1. mai (antatt) $date1 = timelocal(0, 0, 0, 1, 5, 1999); $date2 = timelocal(0, 0, 0, 1, 5, 2000); $now = time; $years1 = ($date1 - $now) / (86400*365); $years2 = ($date2 - $now) / (86400*365); $entry = new CGI; $opt1 = $entry->param(opt1); $opt2 = $entry->param(opt2); $interest = $entry->param(rente); $interest = 2 if (!$interest); # Disse er 30 + 1% per maaned fra 1. juli 1998 $innkurs1 = 33.3; $innkurs2 = 36.9; $adjust1 = (1+$interest/100)**$years1; $adjust2 = (1+$interest/100)**$years2; $vkurs1 = $innkurs1 / $adjust1; $vkurs2 = $innkurs2 / $adjust2; # Hent kursen hvis den er mer enn 2 timer gammel, # hvis filen er borte eller hvis filen er tom $age = ( -M $kursdata) * 24; # -M is in days, we want hours if (!-f $kursdata || ! -s $kursdata || $age > $maxhours) { print STDERR "Henter kurs\n"; system("/home/hta/bin/edbkurs > $kursdata"); } open(KURS, $kursdata); $kurs = ; $henttid = ; close KURS; $age = ( -M $kursdata) * 24; # -M is in days, we want hours $age = int($age*10)/10; $value1 = $opt1 * ($kurs - $vkurs1); $value2 = $opt2 * ($kurs - $vkurs2); $value = sprintf("%.2d", $value1 + $value2); print < Verdi av opsjonene akkurat nå

Verdi av opsjoner

Dato	Antall	Innkurs	Nåverdi	År igjen	Netto EoF printf("
%s	%d	%.2f	%.2f	%.2f\n	%.2f", "1. Mai 99", $opt1, $innkurs1, $vkurs1, $years1, $value1); printf("
%s	%d	%.2f	%.2f	%.2f\n	%.2f", "1. Mai 00", $opt2, $innkurs2, $vkurs2, $years2, $value2); print < Dagens kurs er $kurs, hentet $henttid, som er for $age timer siden. Kilde er SOL Børs Internrente $interest prosent Dagens verdi: Kr $value Merk at dette er basert på en MEGET forenklet beregning av opsjonsverdi, og at det er umulig å tape penger på opsjoner! EoF