fork download
  1. # draft: http://o...content-available-to-author-only...e.jp/qa/q6917237.html
  2.  
  3. $stdin.map{|line|
  4. if %r!^\*(\w+) \w+ (?:/\w+){4}/(\w+)\.txt, (\w+)\|(\w+)\): (\w+)$! =~ line
  5. $~[1..5]
  6. else
  7. raise 'invalid input'
  8. end
  9. }.transpose.each do |row|
  10. puts row.join(',')
  11. end
Success #stdin #stdout 0s 4760KB
stdin
*1a N1 /N2/N3/N4/N5/1b.txt, 1c|1d): 1e
*2a N1 /N2/N3/N4/N5/2b.txt, 2c|2d): 2e
*3a N1 /N2/N3/N4/N5/3b.txt, 3c|3d): 3e
stdout
1a,2a,3a
1b,2b,3b
1c,2c,3c
1d,2d,3d
1e,2e,3e