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
{{#tags}}- {{label}}
{{/tags}}