?? image_fetch.cgi
字號:
#!/usr/bin/perl -wTuse strict;my $image_type = $ENV{HTTP_ACCEPT} =~ m|image/png| ? "png" : "jpeg";my( $basename ) = $ENV{PATH_INFO} =~ /(\w+)/;my $image_path = "$ENV{DOCUMENT_ROOT}/images/$basename.$image_type";unless ( $basename and -B $image_path and open IMAGE, $image_path ) { print "Location: /errors/not_found.html\n\n"; exit;}my $buffer;print "Content-type: image/$image_type\n\n";binmode STDOUT;while ( read( IMAGE, $buffer, 16_384 ) ) { print $buffer;}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -