HTML perl script - Printable Version

Code:
#!/usr/bin/perl



if ($#ARGV != 1) {

    print q{

=============================================================

|                                                           |

|                  Coded by Ace - 2011                      |

|              http://www.techlifeforum.net                 |

|                                                           |

|-----------------------------------------------------------|

|   Syntax - html.pl "output file" "number of html files"   |

|                                                           |

|                [Usage: html.pl myfile 3]                  |

=============================================================

};

    exit;

}



#Take the arguments in the input command and define them as our variables to use

$filename = $ARGV[0];

$filecount = $ARGV[1];



#------------------------------------------------------------------------------------------

#Define a loop to loop through this script until we reach

#a $num that is equal to the one specified in the arguments

#--(This will loop through as long as the $num is less than and/or equal to $filecount)

#------------------------------------------------------------------------------------------

for ($num=1; $num <= $filecount; $num++) { #As long as $num is less than or equal to $filecount increment $num



    open(HTML, ">$filename$num.html"); #Open the file we're trying to write to



    if($num==$filecount) {

    $next = 1; #choose 1 as the number

    } else {

    $next = $num+1; #if 1 is taken then the add 1

    }



    #Here's where we add the information to the opened HTML file

    print HTML "<html>\n<head>\n<title>$filename$num</title>\n</head>\n<body>\n";

    print HTML "<a href=\"$filename$next.html\">Link to $filename$num</a>\n";

    print HTML "<p>Automatically Generated by HTML.pl - Created by Ace</p>\n";

    print HTML "</body>\n</html>\n";

    #We are finished with editing/creating this file

    close(HTML);

}

#(Onto the next file if $num has not reached $filecount

#Repeat until we hit the $filecount argument specified in the command