print the line controlled by grep Grep命令
#print only lines 13,19
perl -ne 'print if grep/s./,(13,19)' file
#print from line 13 to line 19
perl -ne 'print if grep/s./,(13..19)' file
print $_ unless grep {$.==$_} @array
#print only lines 13,19
perl -ne 'print if grep/s./,(13,19)' file
#print from line 13 to line 19
perl -ne 'print if grep/s./,(13..19)' file
print $_ unless grep {$.==$_} @array