variable in cgi param

2007-07-23 Thread ubergoonz
($1=1; $i <= $cgi->param('totalkey') ; $i++) { print "$i - $cgi->param('ip$i') cgi->param('hn$i') "; } but output seems to be HASHblah ... -- ubergoonz

overcome "ping requires root privilege" when running as a cgi script

2006-09-19 Thread ubergoonz
Hi, I wonder if anyone have a solution to the subject problem when using Net::Ping ? -- Best Regards, ubergoonz

removing characters

2006-09-14 Thread ubergoonz
Hi, I have a certain variables of emplyee number which comes in the format of [a000] or [u000] {whereby 000 is some serial numbers}. I would like to remove the enclosed [ & ] see if it is belong to class a or u , i can do it as follow $var = /\[//; $var = /\]//; if ($var =~ '^a) {

Print output of Table on browser as it is being created

2006-09-12 Thread ubergoonz
I am trying to find out how can i modify my CGI script so that I can it can print out the long table of data as it is running the query. is there any example that I can follow on? -- Best Regards, another perl newbie ubergoonz -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

Re: parse order number from yppoll command

2006-09-12 Thread ubergoonz
Ahh Thanks John !! it works now. On 9/12/06, John W. Krahn <[EMAIL PROTECTED]> wrote: ubergoonz wrote: > I am trying to creat a CGI page that display the ordernumber of the > yppoll output on all my NIS servers, using the following > my $svr_order = `yppoll $nissvr $map |

parse order number from yppoll command

2006-09-11 Thread ubergoonz
I am trying to creat a CGI page that display the ordernumber of the yppoll output on all my NIS servers, using the following my $svr_order = `yppoll $nissvr $map | grep order| awk '{print $NF}'`; but it just seems to be empty. any idea how can I fix this? regards, another perl newbie

perl's awk function

2005-03-22 Thread ubergoonz
Hi, I am trying to read a file which is delimited with : . I only require some information in the first field, and fifth field, i can easily do it in shell script using HN=`awk -F: '{print $1}'` SN=`awk -F: '{print $5}'` I wonder how can i achieve it using perl? -- To unsubscribe, e-mail: [