index.html

《Perl 5教程》及《perl常问问题集》

<LI>
<A HREF="perlfaq4.html#How_do_I_print_out_or_copy_a_rec" tppabs="http://202.96.217.5/~xiaoyi/perlfaq4.html#How_do_I_print_out_or_copy_a_rec">How
do I print out or copy a recursive data structure?</A></LI>

<LI>
<A HREF="perlfaq4.html#How_do_I_define_methods_for_ever" tppabs="http://202.96.217.5/~xiaoyi/perlfaq4.html#How_do_I_define_methods_for_ever">How
do I define methods for every class/object?</A></LI>

<LI>
<A HREF="perlfaq4.html#How_do_I_verify_a_credit_card_ch" tppabs="http://202.96.217.5/~xiaoyi/perlfaq4.html#How_do_I_verify_a_credit_card_ch">How
do I verify a credit card checksum?</A></LI>
</UL>

<LI>
<A HREF="perlfaq4.html#AUTHOR_AND_COPYRIGHT" tppabs="http://202.96.217.5/~xiaoyi/perlfaq4.html#AUTHOR_AND_COPYRIGHT">AUTHOR
AND COPYRIGHT</A></LI>
</UL>

<H3>
perlfaq5</H3>

<UL>
<LI>
<A HREF="perlfaq5.html#NAME" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#NAME">NAME</A></LI>

<LI>
<A HREF="perlfaq5.html#DESCRIPTION" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#DESCRIPTION">DESCRIPTION</A></LI>

<UL>
<LI>
<A HREF="perlfaq5.html#How_do_I_flush_unbuffer_a_fileha" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_flush_unbuffer_a_fileha">How
do I flush/unbuffer a filehandle? Why must I do this?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_change_one_line_in_a_fi" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_change_one_line_in_a_fi">How
do I change one line in a file/delete a line in a file/insert a line in
the middle of a file/append to the beginning of a file?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_count_the_number_of_lin" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_count_the_number_of_lin">How
do I count the number of lines in a file?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_make_a_temporary_file_n" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_make_a_temporary_file_n">How
do I make a temporary file name?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_manipulate_fixed_recor" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_manipulate_fixed_recor">How
can I manipulate fixed-record-length files?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_make_a_filehandle_loca" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_make_a_filehandle_loca">How
can I make a filehandle local to a subroutine? How do I pass filehandles
between subroutines? How do I make an array of filehandles?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_set_up_a_footer_format" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_set_up_a_footer_format">How
can I set up a footer format to be used with write()?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_write_into_a_string_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_write_into_a_string_">How
can I write() into a string?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_output_my_numbers_with" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_output_my_numbers_with">How
can I output my numbers with commas added?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_translate_tildes_i" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_translate_tildes_i">How
can I translate tildes (~) in a filename?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_come_when_I_open_the_file_re" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_come_when_I_open_the_file_re">How
come when I open the file read-write it wipes it out?</A></LI>

<LI>
<A HREF="perlfaq5.html#Why_do_I_sometimes_get_an_Argum" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#Why_do_I_sometimes_get_an_Argum">Why
do I sometimes get an "Argument list too long" when I use &lt;*>?</A></LI>

<LI>
<A HREF="perlfaq5.html#Is_there_a_leak_bug_in_glob_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#Is_there_a_leak_bug_in_glob_">Is
there a leak/bug in glob()?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_open_a_file_with_a_lea" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_open_a_file_with_a_lea">How
can I open a file with a leading ">" or trailing blanks?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_reliably_rename_a_file" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_reliably_rename_a_file">How
can I reliably rename a file?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_lock_a_file_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_lock_a_file_">How
can I lock a file?</A></LI>

<LI>
<A HREF="perlfaq5.html#What_can_t_I_just_open_FH_fil" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#What_can_t_I_just_open_FH_fil">What
can't I just open(FH, ">file.lock")?</A></LI>

<LI>
<A HREF="perlfaq5.html#I_still_don_t_get_locking_I_jus" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#I_still_don_t_get_locking_I_jus">I
still don't get locking. I just want to increment the number in the file.
How can I do this?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_randomly_update_a_binar" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_randomly_update_a_binar">How
do I randomly update a binary file?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_get_a_file_s_timestamp_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_get_a_file_s_timestamp_">How
do I get a file's timestamp in perl?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_set_a_file_s_timestamp_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_set_a_file_s_timestamp_">How
do I set a file's timestamp in perl?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_print_to_more_than_one_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_print_to_more_than_one_">How
do I print to more than one file at once?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_read_in_a_file_by_para" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_read_in_a_file_by_para">How
can I read in a file by paragraphs?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_read_a_single_characte" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_read_a_single_characte">How
can I read a single character from a file? From the keyboard?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_can_I_tell_if_there_s_a_char" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_can_I_tell_if_there_s_a_char">How
can I tell if there's a character waiting on a filehandle?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_open_a_file_without_blo" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_open_a_file_without_blo">How
do I open a file without blocking?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_create_a_file_only_if_i" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_create_a_file_only_if_i">How
do I create a file only if it doesn't exist?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_do_a_C_tail_f_in_perl" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_do_a_C_tail_f_in_perl">How
do I do a <TT>tail -f</TT> in perl?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_dup_a_filehandle_in_P" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_dup_a_filehandle_in_P">How
do I dup() a filehandle in Perl?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_close_a_file_descriptor" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_close_a_file_descriptor">How
do I close a file descriptor by number?</A></LI>

<LI>
<A HREF="perlfaq5.html#Why_can_t_I_use_C_temp_foo_in" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#Why_can_t_I_use_C_temp_foo_in">Why
can't I use "C:\temp\foo" in DOS paths? What doesn't `C:\temp\foo.exe`
work?</A></LI>

<LI>
<A HREF="perlfaq5.html#Why_doesn_t_glob_get_all_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#Why_doesn_t_glob_get_all_">Why
doesn't glob("*.*") get all the files?</A></LI>

<LI>
<A HREF="perlfaq5.html#Why_does_Perl_let_me_delete_read" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#Why_does_Perl_let_me_delete_read">Why
does Perl let me delete read-only files? Why does <TT>-i</TT> clobber protected
files? Isn't this a bug in Perl?</A></LI>

<LI>
<A HREF="perlfaq5.html#How_do_I_select_a_random_line_fr" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#How_do_I_select_a_random_line_fr">How
do I select a random line from a file?</A></LI>
</UL>

<LI>
<A HREF="perlfaq5.html#AUTHOR_AND_COPYRIGHT" tppabs="http://202.96.217.5/~xiaoyi/perlfaq5.html#AUTHOR_AND_COPYRIGHT">AUTHOR
AND COPYRIGHT</A></LI>
</UL>

<H3>
perlfaq6</H3>

<UL>
<LI>
<A HREF="perlfaq6.html#_g_W" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_g_W">篇名</A></LI>

<LI>
<A HREF="perlfaq6.html#_z" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_z">概述</A></LI>

<UL>
<LI>
<A HREF="perlfaq6.html#_p_W_g" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_W_g">我该如何使用正规表示式才不至於写出不合语法且难以维护的程式码?</A></LI>

<LI>
<A HREF="perlfaq6.html#_L_k_W_L_e_A_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_L_k_W_L_e_A_">我无法对应到超过一行的内容，哪里出了问题?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_X_P_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_X_P_">我如何取出位於不同行的两个模式间之内容?</A></LI>

<LI>
<A HREF="perlfaq6.html#_W_J_o_S" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_W_J_o_S">我把一个正规表示式放入
$/但却没有用。错在哪里?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_b_LHS_i_G_l_B_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_b_LHS_i_G_l_B_">如何在
LHS端【译注：式子中运算元左端部份】作不区别大小写式的替换，但在 RHS端【右端】保留大小写区别?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_C_w_O_a" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_C_w_O_a">如何使
<TT>\w</TT>对应到附重音记号 (accented)的字元?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_A_X_P_locale_i_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_A_X_P_locale_i_">如何作一个适合不同
locale【译注：国家、地区在文字编码上各自的惯例】的 <TT>/[a-zA-Z]/</TT>对应?</A></LI>

<LI>
<A HREF="perlfaq6.html#_b_W_p_J_quot" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_b_W_p_J_quot">在一个正规表示式里如何引入
(quote)变数?</A></LI>

<LI>
<A HREF="perlfaq6.html#C_o_O_F_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#C_o_O_F_"><TT>/o</TT>到底是干麽用的?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_W_N_C_y_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_W_N_C_y_">如何使用正规表示式将档案中
C语言样式的注解删掉?</A></LI>

<LI>
<A HREF="perlfaq6.html#_Perl_W_h_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_Perl_W_h_">我能用
Perl的正规表示式去对应成对的符号吗?</A></LI>

<LI>
<A HREF="perlfaq6.html#_H_W_g_A_O_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_H_W_g_A_O_">有人说正规表示式很贪婪，那是什麽意思?该如何避免它所带来的问题?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_B_z_C_C_r_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_B_z_C_C_r_">如何处理每一行的每个字?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_L_X_r_X_W_v_X_W" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_L_X_r_X_W_v_X_W">我如何印出文字出现频率或行出现频率的纲要?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_">如何能作近似对应?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_v_a_h_W_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_v_a_h_W_">我如何有效率地一次对应多个正规表示式?</A></LI>

<LI>
<A HREF="perlfaq6.html#_C_b_r_j_M_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_C_b_r_j_M_">为何我用
<TT>\b</TT>作字界搜寻时会失败呢?</A></LI>

<LI>
<A HREF="perlfaq6.html#_C_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_C_">为什麽每当我用
$&amp;, $`,或 $'时程式的速度就慢下来了呢?</A></LI>

<LI>
<A HREF="perlfaq6.html#_W_C_G_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_W_C_G_">正规表示式中的
<TT>\G</TT>能给我什麽好处?</A></LI>

<LI>
<A HREF="perlfaq6.html#Perl_W_O_DFAs_NFAs" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#Perl_W_O_DFAs_NFAs">Perl正规表示引擎是
DFAs或 NFAs?它们是 POSIX相容的吗?</A></LI>

<LI>
<A HREF="perlfaq6.html#_b_L_X_U_grep_map_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_b_L_X_U_grep_map_">在无递回的场合下用
grep或 map有什麽不对?</A></LI>

<LI>
<A HREF="perlfaq6.html#_p_h_r_c_r_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_p_h_r_c_r_">如何对应多位元组字母所构成的字串?</A></LI>
</UL>

<LI>
<A HREF="perlfaq6.html#_P_v_y" tppabs="http://202.96.217.5/~xiaoyi/perlfaq6.html#_P_v_y">作者与版权事宜</A></LI>
</UL>

<H3>
perlfaq7</H3>

<UL>
<LI>
<A HREF="perlfaq7.html#_g_W" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_g_W">篇名</A></LI>

<LI>
<A HREF="perlfaq7.html#_z" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_z">概述</A></LI>

<UL>
<LI>
<A HREF="perlfaq7.html#_Perl_BNF_yacc_RE_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_Perl_BNF_yacc_RE_">我能拿到
Perl的 BNF/yacc/RE吗？</A></LI>

<LI>
<A HREF="perlfaq7.html#_o_O_N_H_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_o_O_N_H_">$@%*这些符号是什麽意思？我怎麽知道何时该使用他们呢？</A></LI>

<LI>
<A HREF="perlfaq7.html#_r_r_O_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_r_r_O_">字串加引号或使用分号及逗号是否绝对必要/还是完全没必要？</A></LI>

<LI>
<A HREF="perlfaq7.html#_p_L_H" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_p_L_H">我如何跳过一些传回值？</A></LI>

<LI>
<A HREF="perlfaq7.html#_p_o_i_T_H" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_p_o_i_T_H">我如何暂时滤掉警告讯息？</A></LI>

<LI>
<A HREF="perlfaq7.html#_O_X_R_extension_H" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_O_X_R_extension_H">什麽是一个扩充
(extension)？</A></LI>

<LI>
<A HREF="perlfaq7.html#_Perl_B_l_u_M_C_" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_Perl_B_l_u_M_C_">为何
Perl运算子的优先顺序和 C的不一样？</A></LI>

<LI>
<A HREF="perlfaq7.html#_p_i_c_s" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_p_i_c_s">我如何宣告/生成一个资料结构
(structure)？</A></LI>

<LI>
<A HREF="perlfaq7.html#_p_y_X_module_H" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_p_y_X_module_H">我如何创造出一个模组
(module)？</A></LI>

<LI>
<A HREF="perlfaq7.html#_p_y_O_class_H" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_p_y_O_class_H">我如何创造一个类别
(class)？</A></LI>

<LI>
<A HREF="perlfaq7.html#_p_O_O_Q_V_F_t" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_p_O_O_Q_V_F_t">我如何辨别一个变数是否被污染了(tainted)？</A></LI>

<LI>
<A HREF="perlfaq7.html#_closure_O_H" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_closure_O_H">闭包
(closure)是啥？</A></LI>

<LI>
<A HREF="perlfaq7.html#_S_p_H" tppabs="http://202.96.217.5/~xiaoyi/perlfaq7.html#_S_p_H">何谓变数自杀而我又该如何防止它？</A></LI>