Wiki | Perl / ConvertHtmlToPmwiki

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.

#!/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;