| Pat Rice 2007-10-05, 6:56 pm |
| hi all
have the following problem
I cannot for the life of me get the following working:
28 testing the header
29 print header;
30 print start_html("Thank You");
31 print h2("Thank You");
32
33 my $i;
34 foreach $i (@vmsupportTest)
35 {
36 print h3("$i ");
37 }
excuse comments (#) as I was trouble shooing the problem but to no avail, it
does work when I run it from the commnad line.
I am not sure if I am implementing line 36 correctly, as I can see that
there is informaion in the array, but it is not being sent to the screen.
Thanks
Pat
1 #!/usr/bin/perl -w
2 use CGI qw(-debug :standard);
3 use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
4 use strict;
5 #### adding the bits from teat.pl
6 use warnings;
7 #use LWP::Simple;
8 use LWP::Simple qw(!head);
9 use diagnostics;
10 use URI;
11
12
13
14
15
16 ###### setting up the variables for the form
17 my $query;
18 my $p;
19 my $variable_name = param("srNumber");
20 #my $variable_name = 194951021;
21
22
23 #@myarray = `/usr/bin/perl mysecondperlscript.pl` ;
24
25 my @vmsupportTest=`/usr/bin/perl
/var/www/cgi-bin/downLoadTeatbook4.pl
http://test.test.com/pending/$variable_name`<http://test.test.com/pending/$variable_name%60>
;
26
27 print "@supportTest";
28 #testing the header
29 #print header;
30 #print start_html("Thank You");
31 #print h2("Thank You");
32
33 #my $i;
34 #foreach $i (@vmsupportTest)
35 #{
36 # print h3("$i ");
37 #}
38
|