Chinaunix
标题:
perl 字符串截取小问题
[打印本页]
作者:
logo111
时间:
2017-03-23 17:30
标题:
perl 字符串截取小问题
问个小问题
my vip=192.168.2.122/22;
截取前面的 ip，该怎么写？
谢谢
作者:
logo111
时间:
2017-03-23 17:38
substr +index?
作者:
logo111
时间:
2017-03-23 18:02
my $vip1 = substr($vip,0,index($vip,'/'));但是如果 vip='192.168.2.122'的时候貌似不行。
作者:
sunzhiguolu
时间:
2017-03-23 19:02
my $pos = index ($vip, '/');
print substr ($vip, 0, $pos > 0 ? $pos : length ($vip));
复制代码
作者:
L_WC
时间:
2017-03-24 11:39
回复
1#
logo111
s///
split
substr
作者:
大米白面
时间:
2017-03-24 12:32
perl -E "say((split '/', '192.168.2.122/22')[0])"
复制代码
结果： 192.168.2.122
欢迎光临 Chinaunix (http://bbs.chinaunix.net/)
Powered by Discuz! X3.2