Jag sitter och pillar med ett perlscript som presenterar en person utifrån uppgifter den angivit. En uppgift är icq-nummer.
Efter icq-nummret är det ju coolt om det står offline eller online. Jag tycker dock ikonerna som ICQ erbjuder är fula, vill hellre ha ren text. Jag får det genom att ladda bilden till scriptet och kolla vad det är för fil som kommer. (Se kod nedan)
Detta funkar perfekt förutom att scriptet stannar upp och väntar på att filen ska överföras. Ibland kan det ta lång tid. Söker ett tips på hur man kan få scriptet att först ta itu med detta och sedan fortsätta med allt annat det ska göra. Om inte bilden är hemladdad när scriptet är färdigt och vill skriva ut status så struntar det helt enkelt i detta, alternativt väntar ett maximalt antal sekunder. Antar att det går att göra med "fork" på något sätt, men jag har aldrig använt denna funktion så jag vet inte riktigt hur jag ska börja.
(use LWP::Simple;)
$doc = get "http://online.mirabilis.com/scripts/online.dll?icq=$icq&img=5";
@doc = split/d/,$doc;
if (@doc[1] =~ /\\/) {
$icq.=" (online)";
}
else {
$icq.=" (offline)";
}