Changeset Navigation

Changeset 1786

Timestamp:

10/22/06 22:09:36

Author:

miyagawa

Message:

OMG wowow-liga site looks like maintained manually

Files:

r1752	r1786
47	47
48	48	# 10月15日（日）深夜2:55　WOWOW/BS-5ch/191ch
49		$date =~ m!^\s(\d{1,2})月(\d{1,2})日~~（.?）\s(午前\|午後\|深夜)(\d{1,2}):(\d{2})\sWOWOW.*?/(\d+ch~~)!
	49	$date =~ m!^\s(\d{1,2})月(\d{1,2})日[（$].?[）$]\s(午前\|午後\|深夜)(\d{1,2}):(\d{2})\sWOWOW.*?(\d{3}[cｃ][hｈ])!
50	50	or die "No match: $date";
51	51	my($month, $day, $am_pm_midnight, $hour, $minute, $channel) = ($1, $2, $3, $4, $5, $6);

r1752	r1786
47	47
48	48	# 10月15日（日）深夜2:55　WOWOW/BS-5ch/191ch
49		$date =~ m!^\s(\d{1,2})月(\d{1,2})日~~（.?）\s(午前\|午後\|深夜)(\d{1,2}):(\d{2})\sWOWOW.*?/(\d+ch~~)!
	49	$date =~ m!^\s(\d{1,2})月(\d{1,2})日[（\(].?[）\)]\s(午前\|午後\|深夜)(\d{1,2}):(\d{2})\sWOWOW.*?(\d{3}[cｃ][hｈ])!
50	50	or die "No match: $date";
51	51	my($month, $day, $am_pm_midnight, $hour, $minute, $channel) = ($1, $2, $3, $4, $5, $6);