Perl: Line text analysis

?

# Written by quentin.c.yuanATgmail.com require v5.6.1; use strict; die "Usage: $0 <src file> <dst file>" if $#ARGV ne 1; # open files open(INPUT,"$ARGV[0]") or die "Couldn't open $ARGV[0]: $!/n"; if ( !open(OUTPUT,">$ARGV[1]") ) { close INPUT; die "Couldn't open $ARGV[1]: $!/n"; } while (my $line=<INPUT>) # read input line by line { $line =~ s//A(/s+)//; # remove leading white spaces chop $line; # remove /n character from the end of the line my @items = split(//s+/,$line); # split input file into items array next unless ($items[0] =~ /int/); # Analyze the itme print OUTPUT "$line/n"; } close INPUT; close OUTPUT;

?

L4:

1) Perl的判断条件有2种写法: 符号和英语

!=/ne: not equal

>=/ge: greater or equal

>/gt: greater than

<=/le: less or equal

</lt: less than

==/eq: equal

?

2) Perl的命令行参数放在预定义数组@ARGV中,第一个参数是$ARGV[0],以此类推,程序名放在预定义变量$0

?

L7:

以写方式打开文件须加'>'符号,如果是追加写则是">>"

?

L14:

Perl的正则表达式有三种用法:

1) 匹配,m/regExp/,但是通常简化省略了m前缀,如L20的表达式,$items[0] =~ /int/,完全的写法应该是$items[0] =~ m/int/

2) 替换,s/regExp/substituteText/

3) 转换,tr/charClass/subCharClass/,将在charClass中的字符集转换成subCharClass的对应字符

s//A(/s+)//

a) 将匹配/A(/s+)的字符串用空字符(null)代替,即remove.

b) /A,等于^,所以这里也可以这样写 s/^(/s+)//,与之对应的是,/Z等于$

c) /s,所有的空白字符,与之相反的是/S,表示所有的非空白字符.

?

L15:

chop的作用是将字符串最后一个字符去掉,不做任何判断. 用于数组时会对每个元素起作用.

?

L16:

split的作用是将字符串以模式串的地方切割开,模式串可以是正则表达式,结果返回到一个数组中,切割后的元素不包括分割的模式串部分.