Pour mes besoins personnels, j'ai programmé un petit script pour afficher, en temps réel, les valeurs et la performance de quelques lignes d'actions.

boila a quoi ca peut ressembler:

snapshot

Comment ca marche ??? je vous expliquerai plus tard, mais pour les plus pressés, voici le code perl:

getstock.pl

vous serez toutefois sans doute amené a faire quelques changements dans ce fichier, comme par exemple la première ligne qui contient l'emplacement de l'interpreteur perl.

Il nécessite egalement de renseigner son portefeuille d'action, ansi que les opérations eventuellement effectuées dans le passé (pour calculer les plus ou moins values). Tout ceci doit etre dans le fichier ~/.quotes (ou $HOME/.quotes). Le mien ressemble a ca (je sais la perf est nul, mais je suis nul en bourse :) )


# list of quotes for the getstock.pl script
# in the form NAME NB COST DATE
#
# comme je m'en sert pour mon PEA, je mentionne egalement les liquidites
# et les parts sociales !
 
LIQUIDITES 0 53.12 20060816
PSB 0 150 20040831
 
# notez que le code est celui que yahoo finance comprends (exemple: LR.PA est
# legrand sur la bourse de paris)
BOB.PA 29 (1004.16+1054.00)/(34+40) 20060428
GAZ.PA 31 719.20/31 20050805
LR.PA  30 592.50/30 20060407
MAU.PA 60 1030/60 20060411
HIM.PA 200 1458/200 20060816

# historique des operations effectues
# label nb montant date plus-ou-moins-value
V-BOB 45 18.45 20060706 -431.33
I-PSB 1 1.50 20050701 1.50
V-CM_EUR 1 0 20060411 31.55
C-GAZ 1 0 20060531 21.08
C-LR 1 0 20060608 12.30
I-PSB 1 4.50 20060701 4.50
C-MAU 1 0 20060704 19.80

Enfin, ce script utilise les modules suivant:

  • Finance::Quote
  • Term::Screen
  • Date::Manip
  • Finance::QuoteHist (expérimental)