okuchuu/blue-oceans/.whatsnew.pl

#!/usr/bin/perl

require 'jcode.pl';

open H2H, 'whatnew.ja.h2h';
  while (<H2H>) {
    $f = 1 if m#^UL#;
    next unless $f;
    last if m#^/UL# || 4 lt $i;
    unless (m#^UL#) {
      s#^LI \{[^}]*\}##;
      print STDOUT '<li>'.jcode::jis($_, 'euc').'</li>';
      $i++;
    }
  }
close H2H;
1	#!/usr/bin/perl
2
3	require 'jcode.pl';
4
5	open H2H, 'whatnew.ja.h2h';
6	while (<H2H>) {
7	$f = 1 if m#^UL#;
8	next unless $f;
9	last if m#^/UL# \|\| 4 lt $i;
10	unless (m#^UL#) {
11	s#^LI \{[^}]*\}##;
12	print STDOUT '<li>'.jcode::jis($_, 'euc').'</li>';
13	$i++;
14	}
15	}
16	close H2H;