Linux论坛 » 其他语言/软件测试 » 一行看不懂的代码,大家帮忙看看
开源小学五年级
if ($a =~ /Fail|Error/){.....}
if ($a =~ /Fail|Error/oi){.....}
查看详细资料
TOP
linuxpk.com站长
宝库管理员
查看个人网站
宝库总监
$url =~ s/^http:\/\///isg; ($host, undef) = split(/\//, $url); $path = $url; $path =~ s/^$host//iso;
$host='www.linuxmine.com'; $path="wwwwlinuxmine.com/a/b"; $path =~ s/^$host//iso; #path should be 'wwwwlinuxmine.com/a/b'.因为.不能匹配w
my $result; my $var = 1; my $line = <STDIN>; while ($var < 10) { $result = $line =~ /$var/o; print "ok" if ($result); print "ok\n"; $line = <STDIN>; $var++; }