perl 字符串操作
发布时间:2020-12-15 21:06:39 所属栏目:大数据 来源:网络整理
导读:字符串数组元素赋值:@tmp=qw(aaa bbb kkk 9000);相当于@tmp= (“aaa”,“bbb”,“kkk”,“9000); ? ? 字符串比较,绝不能用==? ?,要用eq [macg@localhost perltest]$ vi tip.pl #!/usr/bin/perl print"input:"; while(chomp($input=)) { print"your input i
字符串数组元素赋值:@tmp=qw(aaa bbb kkk 9000);相当于@tmp= (“aaa”,“bbb”,“kkk”,“9000);
?
字符串用==是最常犯的错误 ? while(chomp($input=<STDIN>)) ? ? ? ? ? |
||
Do you want to change eth0:2 's ip address ??回车 Argument "" isn't numeric in numeric eq (==) at ./address.pl line 77,<STDIN> line 2. 对整形变量$input==$i,如果$input是回车,并不走else,而是报错 |
正确的做法是:?
while(chomp( $input=<STDIN> ))
{
for($i=1,$found=0;$i<=$int_num;$i++)
?{
?if ( $input eq $i ) { $found=1;}
?}
which interface you want to config ? choice a number 1 2 3 4 q:1
Do you want to change eth0 's ip address ?
字符串几种连接运算符
,运算符 , 常用于输出
print? "純金 ",$v1;
$str,"nn";
.运算符 和,类似 也是字符串相加 但,通常只用于print 而.可以用在任何字符串相加的地方
print '12345 大家來跳舞' . " hello world";
結果變成:
12345 大家來跳舞 hello world
x运算符号
print "OK" x 4;
OKOKOKOK
为什么字符串相加只能用.?
因为可能+就是 真加 了 (数字相加) ,而不是字符串合并
$v1 = 99;
$v2 = '121';
print $v1 + $v2;
$v2 = '121';
print $v2 . $v1;
字符串的连接可以连接整形和字符形,整形也被当作字符型处理,没有printf里的%d问题
$min=1;
$date="date "."0".$min;
print $date,"n";
?
date 01
uc?
$str="abCD99e";
$str = uc($str);
$str = lc($str);
ABCD99E?
abcd99e
??
#!/usr/bin/perl
$str="abCD99e";
$strlen=length($str);
print $strlen,"n";
7
substr?
#!/usr/bin/perl
$str = "ABCDEFG1234567";
$a = substr $str,5;
print $a,sans-serif; line-height:18px"> [macg@localhost perltest]$ ./tip.pl
ABCDE?
$a = substr $str,?-4,2;?
?
45
index?
#!/usr/bin/perl
$str = "ABCDEFG1234567";
$a = "12";?
$pos=index($str,$a);
print $pos,"n";
#!/usr/bin/perl
$str = "ABCDEi FG12i 345 6 7";
@array=split(/ /,$str);按空格分
foreach (@array) {
?
}?
ABCDEi
FG12i
345
6
7
@array = split (/ +/,$line);?
空格和TAB混杂情况下的 split
[macg@localhost perltest]$ vi tip.pl
#!/usr/bin/perl
$str = "ABCDEi FG12i?
@array=split(/t /,$str);
foreach (@array) {
?
}
ABCDEi FG12i
345 6 7
因为同时满足TAB和空格的只有一处
所以必须加[ ]
@array=split(/[t?]/,$str);?
ABCDEi
FG12i
345
6
7
用join定义字符串数组格式符号(缺省是,)?
语法:join($string,@array)
@array=qw(one two three);
$total=join(":",@array);?
数组内grep
@array=("one","on","in");
$count =grep(/on/,@array);
查询结果赋值给单变量
查询结果赋值给数组
(编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!