diff options
| -rwxr-xr-x | banner2csv.pl | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/banner2csv.pl b/banner2csv.pl index b1943ff..3a9d7e9 100755 --- a/banner2csv.pl +++ b/banner2csv.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl # FILE: "/home/evmik/src/my_src/GradeBook/banner2csv.pl" -# LAST MODIFICATION: "Mon, 03 Sep 2012 21:05:25 -0400 (evmik)" +# LAST MODIFICATION: "Fri, 17 Jan 2014 11:12:43 -0500 (evmik)" # (C) 2012 by Eugeniy Mikhailov, <evgmik@gmail.com> #use HTML::Entities; @@ -10,6 +10,19 @@ use Encode; #use HTML::TableExtract qw(tree); use Data::Dumper; #use strict; + +if ( @ARGV < 1 ) +{ + print "Converts a WM banner summary list to csv file with students info\n"; + print "\n"; + print "Usage:\n"; + print " " . $0 . "banner_html_file_to_parse\n"; + print "\n"; + print "Example:\n"; + print " " . $0 . "banner_class_summary_list.html\n"; + die; +} + my $html_file = shift; open (F_HTML, "<", $html_file) or die "Failed to read file $html_file : $!"; |