Elakadtam a splittel... (perl) Segitsetek pls surgos...

Elakadtam a splittel... (perl) Segitsetek pls surgos...

Hozzászólások

Persze, lehet s/// nelku is...
[code:1:895e838df0]...
$buf =~ /href="([^"]+)"/;
print $1;
...[/code:1:895e838df0]

Zsiraf

Az a bajom hogy egy szovegbe (ami tobb sor) keresek 1 mondatott... az utana levot szeretnem kiszedni aminek a vege ". Na marmost ezt http rol szedem i es olvasom ki (net::HTTP)
use Net::HTTP;
my $s = Net::HTTP->new(Host => "www.origo.hu");
$s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.6) Gecko/20040113");
my $buf;
my $n = $s->read_entity_body($buf, 1024);
($k0, $k1) = split(!/987">&nbsp;<br><a href="/, $buf);
($k3, $k4) = split(!/"/, $k1);
print($k3);

persze ez igy nem mukodhet sajnos ... De perl be kell megoldaom... itt viszont nincs crop csak split ... pls help me..

Azt ugye bar sejtettem hogy a szavazasnak kb mi lesz az eredmenye de nem lehettne egy paar soros valasz a kerdesemre?:)

1. Nézd meg a chomp fgv.-t dokumentációban....
2. szedd ki vele az újsort, utána működik a split...

( ez pontosan 1 pár sor :lol: )

[quote:7f48752df1="Testa"]Az a bajom hogy egy szovegbe (ami tobb sor) keresek 1 mondatott... az utana levot szeretnem kiszedni aminek a vege ". Na marmost ezt http rol szedem i es

Amire neked szukseged van, aza mintaillesztes.(regex)
Elso ranezesre ez:
$buf =~ s/987">&nbsp;<br><a href="([^"]+)".*/$1/m;
Ekkor a buf-ban mar csak a link "bele" lesz. Ha gond lenne, akkor man perlop, vagy man perlretut