/bin/extract-news.rb
Ruby | 24 lines | 23 code | 1 blank | 0 comment | 3 complexity | 19a96ab219cd31a43ca2a6c2dddc6b05 MD5 | raw file
- date=ARGV.shift
- $s = ''
- extract1 = false
- extract2 = false
- finish = false
- IO.foreach('src/news/index.html.wml') do |l|
- if finish
- nil # do nothing.
- elsif (l =~ /#{date}/)
- extract1 = true
- elsif extract2 then
- if (l =~ /^<h2/)
- finish = true
- else
- $s += l.gsub(/\$\(ROOT\)/, 'http://perl-begin.org')
- end
- elsif extract1 then
- if (l =~ /<\/h2/)
- extract2 = true
- end
- end
- end
- print $s