Perlben szeretnék egy html-ből kicsípni sok hasonló adatot, és azt elmenteni egy array-be. Hogyan kéne mindezt? ->>
Azt kéne megoldani, hogy a html forrásból kiszedni a dátumokat, amik ilyen formában vannak:
<SELECT NAME="date">
...
<option value="2010-10-13">1</option>
<option value="2010-10-14">2</option>
<option value="2010-10-15">3</option>
<option value="2010-10-16">4</option>
...
</SELECT>
és ebből az option-ből rengeteg, viszont van olyan dátum, ami hiányzik.
Hogy tudnám akár ciklussal, akár anélkül megírni, hogy minden egyes dátumot (elég ha csak stringként) elment egy array egy elemébe?
válasza: válasza: válasza: válasza:Itt tudod letölteni: [link]
A kód:
#!/usr/bin/perl
# (c) Doncike 2011
# Csak, mert jo napom van.
use strict;
use warnings;
my $html = '
<SELECT NAME="date">
<option value="2010-10-13">1</option>
<option value="2010-10-14">2</option>
<option value="2010-10-15">3</option>
<option value="2010-10-16">4</option>
</SELECT>
';
my @minden_sor = split(/\<\/option\>/,$html);
my @datumok = ();
foreach my $egy_sor (@minden_sor){
if ($egy_sor =~ /(\d{4}-\d{2}-\d{2})/){
unshift (@datumok, $1);
}
}
foreach my $datum (@datumok){
print "$datum\n";
}
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!