Perl url get: urls aus website auslesen (Allgemeines zu Perl)

[thread]6072[/thread]

Perl url get: urls aus website auslesen

Leser: 3

Gast Gast

2004-02-12 12:05

Hallo,
ich brauche mal dringend Rat.
Ich möchte aus der shoutcast.com seite alle urls mit der endung PLS
via perl script auslesen und diese urls dann in eine textdatei speichern.kann mir jemand verraten wie man das macht?
bin perl ahnungslos...noch :-)
MfG

Ein Gast

tomlong

2004-02-12 13:48

User since
2003-08-04
93 Artikel
BenutzerIn
[default_avatar]

mit LWP::Simple ziehste dir die Seite und mit ner RegEx suchste nach den URLs ... aber bevor du damit loslegst wäre n kleine Perl Tutorial bestimmt empfehlenswert ;)

Live long and prosper!
42;

Crian

2004-02-12 13:58

User since
2003-08-04
5870 Artikel
ModeratorIn

Bei Opera kannst Du Dir übrigens mit Ctrl-J alle Links anzeigen und auch abspeichern lassen...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Ishka

2004-02-12 19:46

User since
2003-08-04
771 Artikel
HausmeisterIn

use strict;
use warnings;
use LWP::Simple;

my $url='http://www.gibtsbestimmtnicht.de/test.html';
my $seite=get($url);
my @urls=grep {m#\.pls$#} $ulr=~m#<a [^<>]*href=(?:"(.*?)"|([^ ]*))#gis;

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

View all threads created 2004-02-12 12:05.