in reply to Re: CGI System Commands
in thread CGI System Commands
#!c:\perl\bin\perl use strict; use CGI qw(:standard); my $labelpath="\\\\<some computer name or ip address>\\<a shared folde +r (permissions - all)>"; my @arr=`dir $labelpath /b`; print header; print start_html('Thank you'); print <<EOF; <head> <title>Test</title> </head> <body text="#rrggbb" bgcolor="#D7DFEE"> </body> Hello $arr[0] <br> $arr[1]...etc. EOF print end_html;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: CGI System Commands
by BrowserUk (Patriarch) on Aug 05, 2003 at 11:06 UTC |