#!/usr/bin/env perl
print ("<!DOCTYPE html>\n");
print ("<html>\n");
print ("<body>\n");
my @files = `ls *.mp4`;
foreach $a (@files) {
print ("<video width=\"320\" height=\"240\" controls>\n");
print ("<source src=\"$a\" type=\"video/mp4\">\n");
print ("</video>\n");
}
print ("</body>\n");
print ("</html>\n");
No comments:
Post a Comment