- 论坛徽章:
- 0
|
一个网站需要发布新闻,每次通过手工发布太麻烦,而且时效性不高
现在打算想个办法自动发布新闻,每次检查文件夹是否有新的word文件,将其内容发布到网站。
用Perl是否有办法?我试了Win32::OLE,网上找来的代码:
use Win32::OLE;
use Win32::OLE::Enum;
$document = Win32::OLE -> GetObject($ARGV[1]);
open (FH,">$ARGV[0]");
print "Extracting Text ...\n";
$paragraphs = $document->Paragraphs();
$enumerate = new Win32::OLE::Enum($paragraphs);
while(defined($paragraph = $enumerate->Next()))
{
$style = $paragraph->{Style}->{NameLocal};
print FH "+$style\n";
$text = $paragraph->{Range}->{Text};
$text =~ s/[\n\r]//g;
$text =~ s/\x0b/\n/g;
print FH "=$text\n";
}
|
运行时提示找不到method “Paragraphs”
有什么好的方法可以实现这个自动发布的功能? |
|