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	wakaba	1.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;