CGI::Fast����Ȼ��һ�� CGI Ӧ�ó������ʹ�������Ĵ��루���統����� $ENV{QUERY_STRING} �������ȿ��������ٶ�ʱ�����������ڱ���һ�� 200 KB ��ģ�飩����ʹ��Ԥ������ģ���ֱ�ӱ�д�ű���ȽϺá���ͨ����˵��CGI ģ�������á� CGI ģ��ʹ�� CGI ģ��ĵ�һ���ŵ���������������ļ��ϴ����ܣ���һ���ڲ�ͬ��ƽ̨��������е��������в�ͬ��CGI ģ���ṩ���ϴ��ļ���������й��ߣ��������� HTTP ���� �� cookies�������������нű����Լ�֧�� NPH �ű����ļ��ϴ����ܡ����⣬ģ�����������������ʽ������������ʽ�з����ʹ�á� CGI ģ�鱾����һ�����ӵ������Ǽ��Ѷ��İ������ Perl ����������Ӧ�ó������Բ���֣�ijЩר����Ϊ���������� GGI.pm ģ�飬��ȻҲ�Ͷ����� Perl���� Lincoln Stein ��д�� CGI.pm �Ǵ����ͨ�� Perl ���� Web Ӧ�ó���Ŀ�����Ա���㷺ʹ�õ�ģ�顣����ͨ�� CPAN ��ø�ģ�飬���� CGI.pm ҳ�ϲ������������ĵ��� ���ҵ��ǣ����ӵĿ�ͨ�������������֮���Ӷ�������ʹ�õ��Ѷȡ�����һ���棬CGI ģ��ĸ���֮��ֻ��ij�������²ű��ֳ��������磬�� HTML ����ִ���ļ��ϴ����ܣ��� CGI �ĵ�ȴδ�ܸ�֪���й��ܡ���������嵥 1 ��û���һ���ļ��ϴ��� Web �������ϡ��������ʱ���ű�����ļ������ݲ���ʾ��������У����DZ�����
�����֮�䡣 �嵥 1. �ļ��ϴ��������� #!/usr/bin/perl -Tw use CGI ':standard'; use strict; my $out = start_multipart_form.filefield(-name => 'upload'); $out .= br.submit('submit','Send').end_form; my$file = param('upload'); #the filename returned is also a file handle if(request_method eq 'POST' && defined $file && ref $file && ref $file eq 'Fh') { local $/ = undef; #read the whole file $out .= pre <$file>||''; #takes care not to send uninitialized value close $file if $CGI::OS ne 'UNIX'; #such as Win32 platforms } print header,start_html('Sample upload page'),$out,end_html; ����� "$out .= pre <$file>||'';" ��һ���DZ���ġ����û�����һ�����ļ��������Ч���ļ���ʱ�����β���������δ��ʼ�������ֵ��ʹ pre �������������С� ���⣬ $file ��Ҫ�ܶ�ȷ����Ϣ����Ϊ��һ���ı�ʹ�� POST ����ʱ�� $file ������һ���ļ������ ijЩ����ϵͳ��Ҫ��ʽ�عر���ʱ�ļ���Win32 ϵͳ�������ģ��� UNIX ƽ̨������ˡ���Щ�����ĵ���û��ָ�������� CGI ģ��ľ���֮������������Щ����֮��ʹ��ģ������Щ����±�ø�Ϊ���ӡ� -------------------------------------------------------------------------------- ��ҳ�������������ʾ�ű�������Դ���ʱ���������������ʾ�������ʱ���������á������ǿ�������д�ű�����������Ӧ�����༭�ű��ļ�������ű���ˢ����������ڡ�����������������ô�����ġ��嵥 2. �������ĵ��Դ�ӡ����ִ�� #!/usr/bin/perl -Tw use strict; #restrict unsafe constructs use CGI ':standard'; use CGI::Carp qw/carpout fatalsToBrowser set_message/; use diagnostics -verbose; #print warning diagnostics BEGIN { local *LOG; my $size = -s "my.log" || 0; open LOG, ">>my.log" or die "Can't open: $!"; carpout(\*LOG); my $errors = 0; sub handle_errors #will be called with the text of the error { $errors = defined $_[0] && $_[0] || $errors, $size } set_message(\&handle_errors); } END { my($errors, $size) = handle_errors; if($errors) { local *LOG; local $/ = undef; open LOG, "my.log" or die "Can't open: $!"; seek LOG,$size,0; #skip previous error log local $_ =
"; print "$errors\n$_"; } } print header,start_html('Test page'),'test',end_html; ���ڿ�������һ�����ڴ�����Ե��������ͳ�����ʾ��������ʹ�õ�ģ�飩����Ȼ����������¼���������ͬʱʹ�����еļ���������ÿһ�ֶ�ֵ�������о�����Ȼ -w ��Ǻ� "use strict;" ���������Ҫ���� -T ��Ǹ��DZز����ٵģ���Ϊ���������ʾ�ű��еİ�ȫ©���� -------------------------------------------------------------------------------- ��ҳ�� CGI::LogCarp ��ʹ�ú�ȱ�㵱���ģ��� CGI::Carp ģ��һ��ʹ��ʱ������õ�һЩ��Ȥ�Ľ����CGI::Carp �� $::SIG{__WARN__} �� $::SIG{__DIE__} ���źŴ��������óɼ�����ͬ����ʽ, �����ģ������չ�Ѱ�װ���źŴ�������������� use �����������ģ��Ĵ����Ƿdz���Ҫ��ԭ���⣬ģ�鲻��������� STDERR ��ʾ����������ڣ����������һС����ģ��Ĵ��뱻ʹ���ˡ� ��Ϊ�ظ������ҷ��ˣ��Ĵ�����Ϣ�Ĵ��ڣ����ģ������ʾ�ĸ��Ӵ������ݲ���ÿ�ζ������ġ���һ��� -verbose �����Ϊ���ԣ��ñ��ֻ���ڵ�һ������ʱ�ű�ʹ�á� �����е���һ��������֮��������Գ��ı���ʱ�䣬��ͨ����������Ƭ���Ƶ�����ģ�������⡣���ʹ�ð��ļ������ STDERR ֱ��д��һ������ֵ����������������ʾ������Ϣ�������Ȱ� STDERR д���ļ���Ҫ�á����ҵ��ǣ����� Perl �Ĵ���Ŀǰ��������������һ���� Tie::STDERR ģ�������� Jan Pazdziora ���ϡ�Tie::STDERR �ܲ������ʱ�Ĵ���ֻ֪������Ĵ��ڣ�����֪��ԭ����Ҳ��֪�����������������ĿǰΨһ�Ľ���취�ǽ� STDERR �ض����ļ��С� ����ɽű�����ƺͲ��Խκ�Ҳ���������Խζ��Ȱ�һС���ִ����ϴ����������ϻ���á�Perl Diver��һ���� Perl �ű������������ж�ijЩ�������������Ѱ�װģ�顢�����ʼ���λ�úͻ��������ȵȣ�����Ҳ���Կ�һ�� �ű���ϸ������ -------------------------------------------------------------------------------- ��ҳ�� CGI::* ���͵ı�ģ����Ϊ��Ҫ���ܵIJ��䣬CGI ģ�黹��һЩ���Ӻ��������а���һ�� HTML ��д��������ģ����������˵����Ϊ�� CGI::* ģ�飬Ӧ�÷���ʹ�øú���������HTTP::* �� HTML::* ҲӦ�ò����ڴ˴������ܶ�ģ��ĺ����������Ƿ���ʹ�õģ������Ϊʲô����ʹ�� CGI.pm �����������ʹ�� HTML ��д������ԭ��CGI::Minimal �� CGI_Lite ģ����Ը��õ���ɸù��ܡ����ӵ� CGI �ű���д��ʱ��Ҫ Web ���ģ�顣���ǵ�ִ��ͨ�������ض��������ͨ�� HTML ��д�������й���һ���ģ���嵥���Դ� CPAN ������� �ο����ϣ��ϻ�ã����ﲻ���й��� Perl �ı�̵��������DZ����������ġ���ǿ�ҽ������ڱ�д���ӵĽű�֮ǰ�ȷ��� CPAN�����Ƿdz�ֵ�õġ�
�����Ƶ
����Ķ�Win2003������asp+cgi+php+mysqlapache���һ������PHP+CGI���л���Javascriptʵ���̳�14 JS����CGI��������CGI���������98��֧��cgiphpaspmysql��̬��ҳ����--CGI:ASP:JSP:PHP4��̬��ҳ����--CGI:ASP:JSP:PHP3��̬��ҳ����--CGI:ASP:JSP:PHP2
��������û�в�ѯ���κμ�¼��
��������û�в�ѯ���κμ�¼��
�鿴����0������>>