很牛X 2010/7/14 徐卓夫 <[email protected]>
> 大哥可以适当少用些叹号，， > 标点符号堆砌一起让你觉得气势很足？ > > 在 2010年7月14日 下午4:09，bigkk913 <[email protected]>写道： > > >> #!/usr/bin/perl -wT >> 那就直接帮我看看我写的程序吧！！！！！try2.fa为什么生成不了？？？？？？ >> #!/usr/bin/perl -wT >> use strict; >> use CGI qw(:standard); >> my $word=param('word'); >> print header(),start_html('using CGI.pm with forms'); >> print p('Enter one of your favorite words here:'); >> print start_form(),textfield('word'); >> print submit('submit word'),end_form(); >> >> if($word){ >> open FILE,">","try2.fa"or die; >> print FILE $word; >> } >> print end_html; >> >> 在2010-07-14 15:57:50，"azure wang" <[email protected]> 写道： >> >> >> 想咋存 你自己就咋存呗。 >> >> open FH,">file"; >> >> print FH $value; >> >> >> 在 2010年7月14日 下午3:55，bigkk913 <[email protected]>写道： >> >>> use CGI; >>> >>> my $q = CGI->new; >>> >>> >>> $value = $q->param('form_field'); >>> 这只是把它存在了变量里！！！！！我想生成一个文件，把表单里的数据存到文件里！！！ >>> >>> >>> -- >>> 我为人人，人人为我！ >>> >>> 在2010-07-14 15:21:40，"azure wang" <[email protected]> 写道： >>> >>> >>> use CGI; >>> >>> my $q = CGI->new; >>> >>> >>> $value = $q->param('form_field'); >>> >>> >>> 在 2010年7月14日 下午3:13，bigkk913 <[email protected]>写道： >>> >>>> >>>> 大家好： >>>> 我想从表单里读取数据，然后存入一个文件里，这个怎么实现？？？？？？？？？？初学者，见笑了！！！！！！！！ >>>> -- >>>> 我为人人，人人为我！ >>>> >>>> >>>> -- >>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>>> 要取消订阅此网上论坛，请发送电子邮件至 >>>> [email protected]<perlchina%[email protected]> >>>> 。 >>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>>> >>> >>> >>> >>> -- >>> Azure.Wang >>> >>> -- >>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>> >>> >>> >>> -- >>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>> 要取消订阅此网上论坛，请发送电子邮件至 >>> [email protected]<perlchina%[email protected]> >>> 。 >>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>> >> >> >> >> -- >> Azure.Wang >> >> -- >> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >> >> >> >> -- >> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >> 要取消订阅此网上论坛，请发送电子邮件至 >> [email protected]<perlchina%[email protected]> >> 。 >> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >> > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 > [email protected]<perlchina%[email protected]> > 。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
