#!/usr/local/bin/perl use CGI; print "Content-type: text/html\n\n"; print <<"EOF"; <HTML> <HEAD> <TITLE>Sub Version!</TITLE> </HEAD> <BODY> <H1><center>version</center></H1> <center> <table border="2"> <th>serial no</th><th>name</th><th>anagement</th> <tr> <td>1</td> <td>$str</td> <td>g</td> </tr> </table></center></BODY> </HTML> EOF open(file,"csk.access"); @name=grep { $_ =~ m/^\[/} <file>; s/\W//g for @name; $str=join '',@name; print $str,"\n"; close file;
In reply to How to pass my variables into html part using perl cgi? by gopikavi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |