#!/usr/bin/perl $hi = `ls`; `setenv LM_DIR /opt/corp/projects/board_simulation/tools/hw_model-3.4/ +sms/lm_dir`; `setenv LM_LIB /opt/corp/projects/board_simulation/tools/hw_model-3.4/ +sms/models:/opt/corp/projects/board_simulation/tools/hw_model-3.4/sms +/maps`; `setenv VCS_LMC_HM_ARCH sun4.solaris`; `setenv LMC_PATH /opt/corp/projects/board_simulation/lib/custom_swift_ +v41`; $lm = `lm show_modeler -m wmers0c3.1`; $logfile = "lmout.txt"; open (FILE, ">$logfile") or die "I can't open that now\n"; print FILE "hi"; print FILE "$hi"; print FILE "$lm"; close(FILE); open (FILE, "$logfile") or die "I can't open that now\n"; while (<FILE>) { push @Contents, $_; } close(FILE); print "Content-type: text/html\n\n"; print "<html>\n <head>\n <title>lm</title>\n </head>\n\n"; print "<body>\n"; foreach $Content(@Contents){ print "$Content<br>"; } print "\n"; print "</body>\n</html>\n";
In reply to calling a unix prog by Max_Glink
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |