riywoããã®ãPerlã§ssh tail -fãã¦ç®çã®è¡ãæ¥ããçµäºãããã«ä¾¿ä¹ããã³ãã¿ã ãã°ãtailããªãã(ã»ã¼)ãªã¢ã«ã¿ã¤ã ã§è§£æãã¦ããworkerã®å¦çãã©ããããé 延ãã¦ããã®ã確èªãã¦ããããgrowthforecastã§ã°ã©ãåããããªã¨æã£ãã®ã§ä»¥ä¸ã®ãããªã¹ã¯ãªãããæ¸ãã¦cronã§å®è¡ãã¦ãããã¨ãã話 #!/usr/bin/perl use strict; use Time::Piece; use LWP::UserAgent; my $worker = `/usr/bin/pgrep worker.pl`; chomp($worker); die "couldnot find worker pid" unless $worker; pipe my $logrh, my $logwh or die "Died: failed to create pipe
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}