Perl.ConvertHtmlToPmwiki History
Hide minor edits - Show changes to markup
September 03, 2005, at 06:56 PM
by �zg�n
Added lines 1-38:
convert_html_to_pmwiki.pl
HTML dosyalarının pmwiki formatına �evrilmesi:
�nce HTML::WikiConverter?::PmWiki perl mod�l� kurulur.
Sonra aşağıdaki perl kodu �alıştırılır.
(:code lang=perl:)
#!/usr/bin/perl -w
#
#
use strict;
use warnings;
use HTML::WikiConverter;
my $wc = new HTML::WikiConverter( dialect => 'PmWiki' );
my $html_dosya;
my $wiki_dosya;
if ($#ARGV >= 0) {
$html_dosya = $ARGV[0];
open(FH, $html_dosya) or die ("$html_dosya acilamadi!\n");
} else {
print "Kullanimi $0 <dosya.html>\n";
exit;
}
close(FH);
$wiki_dosya = $html_dosya . ".wiki";
#print $wc->html2wiki( $html_kodlari );
my $wiki_icerik = $wc->html2wiki(file=>$html_dosya );
open(FH2, '>' . $wiki_dosya);
print FH2 $wiki_icerik;
