PERL两个字符串，不关心大小写

slwj

大家好，请教下，如何使用PERL来比较两个字符串，而不关心它的大小写，多谢！

pitonas

1. while(<DATA>){
   
2.   my ( $one, $two) = split;
   
3.   say lc($one) eq lc($two) ? 'yes' : 'no';
   
4. }
   
5. __DATA__
   
6. abc Abc
   
7. abc abd
   
8. abc ABC

复制代码

huang6894

回复 2# pitonas


    niubility~

slwj

pitonas 发表于 2014-04-01 15:19

牛，不过想问下，
my ( $one, $two) = split;
，这里的split后面怎么是空的？

pitonas

split后面是空的 == split 空格

回复 4# slwj


   

黑色阳光_cu

1. say "\L$one\E" eq "\L$two\E" ? 'yes' : 'no';

复制代码

slwj

pitonas 发表于 2014-04-01 15:38
split后面是空的 == split 空格

回复 4# slwj

那split是分割哪个字符串呢，$_？

yestreenstars

回复 7# slwj

split后面不接参数表示以空格分割$_
   

q1208c

我是真心不建议使用 $_ 这个变量.

jason680

回复 4# slwj

study more detail ...

$ perldoc -f split
    split /PATTERN/,EXPR,LIMIT
    split /PATTERN/,EXPR
    split /PATTERN/
    split   Splits the string EXPR into a list of strings and returns that
            list. By default, empty leading fields are preserved, and empty
            trailing ones are deleted. (If all fields are empty, they are
            considered to be trailing.)
    ...