eventsource/html-event-source/event-source-print-2-data.events.cgi

#!/usr/bin/perl

$| = 1;
print "Content-Type: application/x-dom-event-stream\n\n";

for my $i (1..100) {
  print "Event: test-event-1
data: test-data-$i

";
  sleep 1;
}
1	wakaba	1.1	#!/usr/bin/perl
2
3			$\| = 1;
4			print "Content-Type: application/x-dom-event-stream\n\n";
5
6			for my $i (1..100) {
7			print "Event: test-event-1
8			data: test-data-$i
9
10			";
11			sleep 1;
12			}