#!/usr/bin/perl -w## Burak Gürsoy <burak[at]cpan[dot]org># Win32::OLE MS Excel Örneği# Sun Dec 28 18:41:03 2003#use strict;use Win32::OLE qw[with];use Win32::OLE::Const;# Excel sabitlerini yükleyelimmy $constant = Win32::OLE::Const->Load('Microsoft Excel');# Nesneyi oluşturalım veya varolanı kullanalımmy $excel = Win32::OLE->GetActiveObject('Excel.Application')       ||            Win32::OLE->new('Excel.Application',sub {shift->Quit}) ||            die "Excel nesnesi olusturulamadi: ".Win32::OLE->LastError;# Programı görünür yapalım$excel->{Visible} = 1;my $workbook  = $excel->Workbooks->Add;   # Yeni bir workbook açalımmy $worksheet = $workbook->Worksheets(1); # 1. Worksheet' i alalım# adını değiştirelim$worksheet->{Name} = "Perl OLE Excel Chart";$worksheet->Range("A1")->{Value} = "X";$worksheet->Range("B1")->{Value} = "Y";my @aval = (1..9);my @bval = (11..19);for (2..10) {   $worksheet->Range("A".$_)->{Value} = $aval[$_ - 2];   $worksheet->Range("B".$_)->{Value} = $bval[$_ - 2];}$worksheet->Range("A:B")->Select;my $chart = $workbook->Charts->Add;$chart->{ChartType} = $constant->{xlPie};$chart->Location($constant->{xlLocationAsObject}, $worksheet->{Name});# excel hatası. $chart geçersiz oldu!$chart = $excel->ActiveChart;# Başlık ve lejandwith($chart, HasLegend => 1,             HasTitle  => 1);$chart->ChartTitle->Characters->{Text} = "Mutasyon Örnek";# Beyaz arkaplan ve siyah çerçeve$chart->PlotArea->Border->{LineStyle} = $constant->{xlContinuous};$chart->PlotArea->Border->{Color}     = RGB(0,0,0);$chart->PlotArea->Interior->{Color}   = RGB(255,255,255);$workbook->SaveAs("$ENV{TMP}\\mutasyon_perl_ole_excel.xls");$workbook->Close;sub RGB { $_[0] + ($_[1]*256) + ($_[2] * 256**2) }__END__