#!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;
In reply to Re: Re: CGI System Commands
by rupesh
in thread CGI System Commands
by rupesh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |