#!/usr/bin/perl # 定义字符串 $var_test = "W3xue"; $var_string = "www-W3xue-com"; $var_names = "google,taobao,W3xue,weibo"; # 字符串转为数组 @test = split('', $var_test); @string = split('-', $var_string); @names = split(',', $var_names); print "$test[3]\n"; # 输出 com print "$string[2]\n"; # 输出 com print "$names[3]\n"; # 输出 weibo