Perl scripts for Amibroker

milind · #1 29th September 2008, 12:57 AM

Hello All,

Java scripts have horrible performance doing anything other than trivial jobs with Amibroker. Besides I am not familiar with the language - but I know Perl. So I started out writing some utilities I needed to manage my Amibroker database. I will post them here as and when I develop them. Hopefully someone will find some use. If you are like me, coming from Unix background, and have some similar Perl scripts for Amibroker, please share. I googled and no hits.

You need to have cygwin installed on your computer, along with Perl and Perl Win32 module.

-- Milind

milind · #2 29th September 2008, 01:03 AM

This script changes groupIds of the symbols. A textfile is required listing symbols and groupId. Sure, you can do it with organize assignments in Amibroker. But I am learning perl scripting through some simple exercises, right?

#!/bin/perl

use Win32::OLE;
#my $server = Win32::OLE->new('Broker.Application','Quit');
my $server = Win32::OLE->new('Broker.Application','');
my $stocks = $server->Stocks;

# Do a hash of index vs ticker
for ($i=0; $i < $stocks->Count; $i++) {
$ticker = $stocks->Item($i)->Ticker;
$iticker{$ticker} = $i;
$groupId{$ticker} = $stocks->Item($i)->GroupID;
}

# Read file mapping new groupIds
open(FIN,"<bsenseintra.txt");
while (<FIN>) {
split;
$ticker = $_[0];
$ngroupId = $_[1];
if (defined($groupId{$ticker})) {
print "$ticker $groupId{$ticker} $_[1]\n";
$stock = $stocks->Item($iticker{$ticker});
$stock->{GroupID} = $_[1] + 0;
}
else {
print "ticker $ticker notfound\n";
}
}
close FIN;
exit;