init III
This commit is contained in:
35
Perl Browse Links/extract_from_bookmarks.pl
Normal file
35
Perl Browse Links/extract_from_bookmarks.pl
Normal file
@@ -0,0 +1,35 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
$in=$ARGV[0];
|
||||
$out=$ARGV[1];
|
||||
|
||||
if ($ARGV[1] eq "") {
|
||||
print "input und output Datei angeben!\n";
|
||||
exit 1;
|
||||
}
|
||||
print "in $in\nout $out\n";
|
||||
print "Suche nach Beginn\n";
|
||||
|
||||
open IN, "$in"; open OUT, ">>$out";
|
||||
|
||||
$s=0;
|
||||
foreach (<IN>) {
|
||||
chomp;
|
||||
if ($_ =~ /<H3 ADD_DATE="[0-9]*" LAST_MODIFIED="[0-9]*">_____<\/H3>/) {
|
||||
$s = 1; print "Beginn gefunden\n";
|
||||
next;
|
||||
}
|
||||
if ($_ =~ /<H3 ADD_DATE="[0-9]*" LAST_MODIFIED="[0-9]*">.*<\/H3>/ and $s == 1) {
|
||||
$s = 2; print "\nEnde gefunden\n";
|
||||
}
|
||||
|
||||
if ($s == 1) {
|
||||
print ".";
|
||||
($a) = $_ =~ /href="(.*?)"/i;
|
||||
printf OUT "$a\n";
|
||||
}
|
||||
if ($s == 2) {
|
||||
close IN; close OUT;
|
||||
exit 0;
|
||||
}
|
||||
}
|
||||
84
Perl Browse Links/get_links.pl
Normal file
84
Perl Browse Links/get_links.pl
Normal file
@@ -0,0 +1,84 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use LWP::Simple;
|
||||
|
||||
open FILE, "<links_todo";
|
||||
@LINKS=<FILE>;
|
||||
close FILE;
|
||||
|
||||
open DONT, "<links_done";
|
||||
@DONE=<DONT>;
|
||||
close DONT;
|
||||
|
||||
print "\nExtrahiere Links\n\n";
|
||||
|
||||
foreach $link (@LINKS) {
|
||||
chomp $link;
|
||||
next if already_done("$link",@DONE);
|
||||
next if ($link eq "");
|
||||
|
||||
$html = get ($link);
|
||||
$html =~ m{<TITLE>(.*?)</TITLE>}gism;
|
||||
$title = $1;
|
||||
chomp $title;
|
||||
|
||||
print "Link: $link\nVerzeichnisnamen eingeben [xxx | \"$1\"]: ";
|
||||
$path = <STDIN>;
|
||||
chomp $path;
|
||||
|
||||
$path = $title if ($path eq "");
|
||||
|
||||
if ($path ne "xxx") {
|
||||
|
||||
print "Pfad '$path' wird erstellt\n";
|
||||
mkdir ($path);
|
||||
|
||||
open_default_browser("$link");
|
||||
|
||||
open DONE, ">>links_done";
|
||||
printf DONE "$link\n";
|
||||
close DONE;
|
||||
|
||||
print "\n";
|
||||
}
|
||||
else {
|
||||
print "Abbruch\n";
|
||||
exit 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "Ende\n\n";
|
||||
|
||||
|
||||
|
||||
|
||||
sub already_done {
|
||||
$link = shift;
|
||||
foreach (@DONE) {
|
||||
chomp;
|
||||
if ($_ eq $link) {
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
sub open_default_browser {
|
||||
my $url = shift;
|
||||
my $platform = $^O;
|
||||
my $cmd;
|
||||
|
||||
|
||||
if ($platform eq 'darwin') { $cmd = "open \"$url\""; } # Mac OS X
|
||||
elsif ($platform eq 'linux') { $cmd = "x-www-browser \"$url\""; } # Linux
|
||||
elsif ($platform eq 'MSWin32') { $cmd = "start $url"; } # Win95..Win7
|
||||
if (defined $cmd) {
|
||||
qx /$cmd 2>&1/;
|
||||
} else {
|
||||
die "Can't locate default browser";
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
4
Perl Browse Links/links_done
Normal file
4
Perl Browse Links/links_done
Normal file
@@ -0,0 +1,4 @@
|
||||
http://www.novojoy.com/hot-bethanie-badertscher
|
||||
http://www.morazzia.com/a-perfect-match
|
||||
http://www.sexykittenporn.com/babes/victoria-sweet
|
||||
http://www.morazzia.com/madison-ivy-2
|
||||
42
Perl Browse Links/links_todo
Normal file
42
Perl Browse Links/links_todo
Normal file
@@ -0,0 +1,42 @@
|
||||
http://www.morazzia.com/playboy-galleries/18117/kellie-smith
|
||||
http://www.nudity911.com/daisa-hubert
|
||||
http://www.hottystop.com/jess-davies-peach-lingerie/?
|
||||
http://www.chickteases.com/kate-hughes
|
||||
http://www.grabpussy.com/meghan-williams-in-thong-panties-outdoor
|
||||
http://www.decorativemodels.com/gemma-massey-cow
|
||||
http://www.sexykittenporn.com/playboyplus/beautiful-playboy-playmate-kristen-nicole
|
||||
http://www.novoporn.com/taylor-vixen-strips-off-her-black-lingerie
|
||||
http://www.glam0ur.com/rebecca-lynn
|
||||
http://www.novojoy.com/hot-bethanie-badertscher
|
||||
http://www.morazzia.com/a-perfect-match
|
||||
http://www.sexykittenporn.com/babes/victoria-sweet
|
||||
http://www.morazzia.com/madison-ivy-2
|
||||
http://www.babesandgirls.com/sexy-blonde-danica
|
||||
http://www.morazzia.com/kendall-rayanne-2
|
||||
http://www.exgirlfriendmarket.com/galleries/busty-brits/nuts-magazine/holly-peers/sexy-outtakes
|
||||
http://www.babesanatomy.com/strip-leah-francis
|
||||
http://galleries.pmates.com/gals/photodromm/2013/01/talia_in_pink_sunset/index.php?
|
||||
http://www.girlsofdesire.org/galleries/sexy-goddes-theresa-correa/?
|
||||
http://www.exgirlfriendmarket.com/galleries/glamour/playboy/aleksa-slusarchi
|
||||
http://www.babesbang.com/aimee-ryan-&-anjelica-sharing-my-boy
|
||||
http://www.babesandbitches.net/beauty-naked-teen-clover-spreads-her-pink-pussy
|
||||
http://www.morazzia.com/jaslyn-ome
|
||||
http://www.babesandgirls.com/kiera-winters-2
|
||||
http://www.novoporn.com/summer-brielle-liberates-her-big-boobs
|
||||
http://www.babesaround.com/hoyden-nelly-shaped-body
|
||||
http://www.babesbang.com/lilly-roma---lost-in-the-woods
|
||||
http://www.100bucksbabes.com/tessa-stripping-on-bed
|
||||
http://www.decorativemodels.com/candice-swanepoel-wet
|
||||
http://www.morazzia.com/playboy-galleries/18117/kellie-smith
|
||||
http://www.nudity911.com/daisa-hubert
|
||||
http://www.hottystop.com/jess-davies-peach-lingerie/?
|
||||
http://www.chickteases.com/kate-hughes
|
||||
http://www.grabpussy.com/meghan-williams-in-thong-panties-outdoor
|
||||
http://www.decorativemodels.com/gemma-massey-cow
|
||||
http://www.sexykittenporn.com/playboyplus/beautiful-playboy-playmate-kristen-nicole
|
||||
http://www.novoporn.com/taylor-vixen-strips-off-her-black-lingerie
|
||||
http://www.glam0ur.com/rebecca-lynn
|
||||
http://www.novojoy.com/hot-bethanie-badertscher
|
||||
http://www.morazzia.com/a-perfect-match
|
||||
http://www.sexykittenporn.com/babes/victoria-sweet
|
||||
http://www.morazzia.com/madison-ivy-2
|
||||
Reference in New Issue
Block a user