点击运行
#!/usr/bin/perl # 定义字符串 $var_test = "jiyik"; $var_string = "www-jiyik-com"; $var_names = "google,taobao,jiyik,weibo"; # 字符串转为数组 @test = split('', $var_test); @string = split('-', $var_string); @names = split(',', $var_names); print "$test[3]\n"; # 输出 o print "$string[2]\n"; # 输出 com print "$names[3]\n"; # 输出 weibo
运行结果 :
正在执行...
