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.[...]

CODE:

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;

Oguzz
oguz@thecoders.net
12 Mart 2009 21:15