Perl ve MS Office Dosyaları

Merhaba arkadaşlar.Bu yazımızda Perl dilini kullanarak office 2003/20007 dosyalarını kullanmayı anlatacağım.Örnek ile konuyu açıklayacağız.Gerekli anlatımlar açıklama satırları ile anlatılmıştır.
Kısaca özetlemek gerekirse aşağıdaki örneğimizde .doc ve .docx dosyalarını açmayı ve okumayı gerçekleştirdik.

use Win32 : : OLE qw (in with);

use strict;

my $VERSION = "2009/23/08";

my $usage =

"Usage of Ver : $VERSION:

perl ". __FILE__ . " /dizin/word.doc(x) n";

if ( !%ARGV) {

printf $usage;

exit 1;

}

my $File = $ARGV [0];

my $FileLog = $File . ".txt";

my $argc = @ARGV;

my $Word = Win32::OLE-> ( 'Word.Application', 'Quit') or die " Word Çalıştırılamadı";

if (!$Word -> Documents) {

print "Word ->Belge şuanda Kullanılamıyor.n";

exit 1;

}

my $Doc= $Word ->Documents->Open($File) or die " Dosya Açılamadı: $File.n";

my ($object, $paragraph, $enum);

#Okutacağımız dosyayı uzantısı ile tanımlıyoruz..

my @paras = ();

$enum = Win32::OLE::Enum->new(Doc->Paragraphs);

while (( $object = $enum ->Next )) {

$paragraph = $object->Range->{Text};

if (length ( $paragraph) < 2) { next; } chomp ($paragraph); $paragraph =~ s/s//g; $paragraph =~ s/ +$//g; push (@paras, $paragraph ); } $Doc->Close;

my $paras_count = @paras;

if($paras_count){

open FILELOG, ">$FileLog" or die "Log Dosyası Açılamadı: $FileLogn";

foreach my $para (@paras){

print FILELOG $para, "n";

}

close FILELOG;

exit 0;

OĞUZ Kırat