#!/usr/bin/perl $\ = "\n"; # print < ”Y‚ß‚éŽq—r‚Ì‹L˜^

”Y‚ß‚éŽq—r‚Ì‹L˜^

END $mes = ""; open(LOG,"una.log"); while(){ $mes = $mes.$_; } close(LOG); print

; $_ = $mes; s/‡@/(1)/g; s/‡A/(2)/g; s/‡B/(3)/g; s/‡C/(4)/g; s/‡D/(5)/g; s/‡E/(6)/g; s/‡F/(7)/g; s/‡G/(8)/g; s/‡H/(9)/g; s/‡I/(10)/g; s/‡J/(11)/g; s/‡K/(12)/g; s/‡L/(13)/g; s/‡M/(14)/g; s/‡N/(15)/g; s/‡O/(16)/g; s/‡P/(17)/g; s/‡Q/(18)/g; s/‡R/(19)/g; s/‡S/(20)/g; s/
//g; s/
//g; s/\s[Sun|Mon|Tue|Wed|Thr|Fri|Sat].*200[2-9]/
Next<\/small><\/font>/g; s/\n/
/g; print $_; print
; print <
 
 
  END2