一个比较简单的问题，如何获取perl变量的第一个字符？

hepower

比如：

1. my $var = "hello";
   

复制代码

我想获取变量var的第一个字符，如何写？
谢谢！

超级细菌

利用substr,具体用法自己查下

zhlong8

要一个字符有什么用？

yinyuemi

$a="hello";print $_ if (/^./)

3P用户

1. my $var = 'hello';
   
2. 
   
3. print chr ord $var;

复制代码

x9x9

最好最快的方法就是substr了。

hepower

谢谢大家的答复，substr很好用!

曾经木瓜

回复 7# hepower


    substr($var,0,1);

linux_arm

1. use strict;
   
2. use 5.010;
   
3. 
   
4. my $var = "hello";
   
5. my @tmp = split //, "$var";
   
6. say shift @tmp;

复制代码

Another ugly way

wxlfh

1. use strict;
   
2. my $var   = 'hello';
   
3. my $first = (split //,$var)[0];
   
4. print $first;

复制代码