如何刪除第5個斜槓後的所有內容？

Question

需要你的幫助。我有txt文件的內容：

http://www.odnoklassniki.ru/group/50577704157376 
http://www.odnoklassniki.ru/group/50735464710341 
http://www.odnoklassniki.ru/group/51604546650191 
http://www.odnoklassniki.ru/group/51760907550833/album/51760907747441 
http://www.odnoklassniki.ru/group/51104812826795 
http://www.odnoklassniki.ru/group/51512464113845 
http://www.odnoklassniki.ru/group/52331994480761 
http://www.odnoklassniki.ru/group/56283345518632 
http://www.odnoklassniki.ru/group/50763665834200 
http://www.odnoklassniki.ru/group/49222266847410 
http://www.odnoklassniki.ru/group/44709448384597/album/44709465620565 
http://www.odnoklassniki.ru/group/42776675221604 
http://www.odnoklassniki.ru/group/50906863239329 

我需要刪除所有後第5 slesh。解決方案需要在Perl或正則表達式來記事本++

---

Answer 1

用記事本++：

Find what: ([^/]+//[^/]+/[^/]+/[^/]+/).* 
Replace with: \1 

Answer 2

您可以使用此Perl的正則表達式：s{^ ((?:[^\/]* \/){5}) .+ }{$1}x

Answer 3

while (<>) { 
    chomp; 
    s{^http://www\.odnoklassniki\.ru/group/[^/]+\K.*}{}s; 
    print; 
} 

或者，如果你想成爲更通用：

use URI qw(); 

while (<>) { 
    chomp; 
    my $url = URI->new($_); 

    my $path = $url->path; 
    $path =~ s{^/[^/]*/[^/]*\K.*}{}s; 
    $url->path($path); 

    print "$url\n"; 
} 

Answer 4

while(<FILE>){ 
s/([^/]*\/[^/]*\/[^/]*\/[^/]*\/[^/]*\/).*/\1/; 
print $_; 
}