From c33a448e4a5753121b1204a6f224dfd23d3fe081 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Fri, 17 Jan 2014 11:13:08 -0500 Subject: added usage for banner2csv.pl --- banner2csv.pl | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'banner2csv.pl') 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, #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 : $!"; -- cgit v1.2.3