Help for this page

Select Code to Download


  1. or download this
    my $url = qq|/directory/directory/some-file.html|;
print substr($url, 0, rindex($url,'/')),"\n";
  2. or download this
    (split('/',$url))[-1]
  3. or download this
    use strict;
use Benchmark;
...
(linux kernal 2.2.14-5.0, dual 450MHz)

=cut