Help for this page

Select Code to Download


  1. or download this
    my $url = $link->url_abs;
    my $filename = URI::Escape::uri_escape( $link->url_abs->path );
    $filename =~ s[^.+/][];
    
  2. or download this
    my $base = "http://www.xxxx.com/programs_results/pdf/";
    
    my $filename = join '', $link->rel($base)->path_segments();