Print "" etter 5 min?

Print "" etter 5 min?

Innleggav telluz » ons 28.04.2010 19:39

Jeg har et Perl script som henter info fra system.log fila på mac'en min. Men etter 5 min vil jeg at den skal skrive ""(altså ingenting). Er det noen som kan hjelpe meg med det?

Her er scriptet:

#!/usr/bin/perl
$file = '/var/log/system.log';

open(INFO, $file);
@lines = <INFO>;
close(INFO);

while (@lines)
{
$last=pop(@lines);
if ($last =~ s/^.*\[\d*\]: Spotify: //g & $last =~ s/\) \- Priority 0$//g) {
$last =~ /(.*) \((.*)\\n(.*)/;
if ($num != 1) { print "$2: $1\n" }; #3=album
last;
}

}

Brukerens avatar
medlem i 176 måneder
 

Re: Print "" etter 5 min?

Innleggav ak » ons 28.04.2010 21:45

Hvordan man skriver ingenting er vel et spørsmål som passer bedre på filosofisk fakultet enn i et teknisk forum, men her har du ihvertfall sove funksjonen:

http://perldoc.perl.org/functions/sleep.html

Administrator
Brukerens avatar
medlem i 236 måneder
 

Re: Print "" etter 5 min?

Innleggav reallife » tor 03.06.2010 14:00

Vel, det finnes en måte å gjøre dette på, hent ut unixtime når scriptet starter, i while loopen sjekker du om start tiden har økt med 300 sekunder, hvis den har det kan du printe ut \n eller noe annet som passer.

(og da evt resete tiden igjen for å gjøre det igjen)
medlem i 205 måneder
 


Returner til Perl



Hvem er i Forumene

Registrerte brukere: Ingen registrerte brukere