Help for this page
#!/usr/bin/perl -w my $path='/tmp/foo'; my @ex=('/tmp/foo', '/tmp/foo/', '/tmp/foo/bar', '/baz/tmp/foo/', '/tm +p/food'); print join(" ", grep( /^$path(?=(\/[\w\/]*|$))/, @ex)), "\n";
www.com | www.net | www.org
No recent polls found