RE: Perl Subroutines

[Dan Muey]

If you are on unix and index.cgi prints all of the html that you'd like in index.html 
then eithe command line or backtick in a script :

./index.cgi > index.html

Dan

-----Original Message-----
From: Bob X [mailto:[EMAIL PROTECTED]] 
Sent: Thursday, January 09, 2003 7:12 PM
To: [EMAIL PROTECTED]
Subject: Re: Perl Subroutines



"Joshua Scott" <[EMAIL PROTECTED]> wrote in message 
5D23931127B7EB409640001B7E8A6E32014A2AFA@PASNT32">news:5D23931127B7EB409640001B7E8A6E32014A2AFA@PASNT32...
> I've created a group of Perl subroutines to handle the creation and 
> layout of my web pages.  These subs are used when browsing to my 
> website. Basically all they do when invoked is print a bunch of HTML.  
> I've now run into the scenario where I'd like to use these same subs 
> to print static
web
> pages where the output doesn't go to the web browser, but instead goes 
> to
a
> file.  How could I go about doing that?
>
> Here's an example of what my subs look like:
>
> Sub opentbl {
> Print "<table>";
> Print "<tr>";
> Print "<td></td>";
> Print "</tr>";
> Print "</table>";
> };
>
> I call the sub from webpages the standard way.
>
> I sure hope I explained this clearly.  I'm still getting used to Perl. 
> Thank you for any help you can provide!
>
> Joshua Scott
>
>
Not sure from the web but I do this:

sub web_file {
    open(WEB_FILE, ">>filename.txt") || die "Unable to open $!";
    print WEB_FILE "<table>";
    print WEB_FILE "<tr>";
    print WEB_FILE "<td></td>";
    print WEB_FILE "</tr>";
    print WEB_FILE "</table>";
    close( WEB_FILE);
}

You may be better served putting the text file in a variable like:

my $web_file = "path/to/file/filename.txt";

This is off the cuff. I know the sub works from the prompt since I use it onWindows to 
create batch files on the fly.

Hope this helps...or at least gives you an idea.

Bob



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]