【不断补充中...】 1. 转换大小写 my $str = 'ifeq ($(strip $(RELEASE_PROJECT_VERNO),K520M00_PR1)'; #/L 为转为LowerCase #/U 为转为UpperCase if ( $str =~ s/(/w+)//L$1/g ) { say $str; } 2. 输入输出 1)文件句柄: open LOG, "log.txt";#输入输出 open LOG, "< log.txt";#输入 open LOG, "> log.txt";#覆盖 if ( open LOG, ">> log.txt”)#追加 { print LOG "Debug strings.../n"; } else { die "Can't open logfile:$!" ; } #改变默认输出文件句柄: select LOG; $| = 1 ;#output directly ,not through buffer print LOG "Defautl to print to LOG./n"; select STDOUT; close LOG; 内置文件句柄: STDIN/STDOUT/STDERR/DATA/ARGV/ARGOUT 2)标准输入输出: while ( defined($_ = <STDIN> )) { print $_; } 3.