Programming :: Perl Script To Detect Mythfrontend As Non-responsive?
Feb 20, 2010
I need to figure out if mythfrontend is non responsive. If the frontend was closed by accident, this code restarts it for me as a cron job.
#!/usr/bin/perl
use Env;
$ENV{DISPLAY}=':0';
my $result = `ps aux | grep front`;
[code]....
If I run the above code it works (mythfrontend restarts) however, there are times when the frontend becomes non-responsive and I'd like to detect a non-responsive state but I don't know how. Additionally, I don't have a keyboard on the mythfrontend, just the remote control.
View 2 Replies
ADVERTISEMENT
Oct 4, 2010
Its my first post in here so please be patient I am trying to use regex in perl script to detect allowed words from the file and then print output to the screen.
As an example : I have text file with orders and returns :
Item2-SKU-2-11.08.2010-online
Item3-SKU-3-11.09.2010-return
Item4-SKU-4-11.09.2010-store
My question: is it possible to make sure that i am ony outputing to the screen orders based on few conditions like Item,order form e.g. online.And is it possible to have multiple matches (Item2 only diplay if ordered online etc)
View 1 Replies
View Related
May 12, 2009
Woke up this morning and updated my main myth machine, and now mythfrontend won't start. I get this message:
Code:
2009-05-12 07:57:50.003 Closing DB connection named 'DBManager0'
2009-05-12 07:57:50.006 Primary screen 0.
2009-05-12 07:57:50.008 Connected to database 'mythconverg' at host: ***.***.*.***
2009-05-12 07:57:50.010 Using screen 0, 1680x1050 at 0,0
2009-05-12 07:57:50.069 AudioPulseUtil, Error: Failure to suspend: Invalid argument
2009-05-12 07:57:50.070 AudioPulseUtil, Error: Failure to suspend: Invalid argument
2009-05-12 07:57:50.070 ERROR: ***Pulse Audio is running!!!!***
2009-05-12 07:57:50.070 ERROR: But MythTV was not able to suspend it. EXITING!
So, I googled about, and found this thread on a mythtv dev mailing list:
No Start with Pulse Audio (Changeset 20310) | MythTV | Dev
Apparently, the new mythtv .21-fixes is incorporating the .22 pulseaudio check. Myth checks for pulse and exits if it can't kill it. I had sound issues with 11.1 before, and tried to remove pulseaudio but created bigger headaches for myself by doing so. Interestingly, if you log into a mythtv session from the xdm, mythfrontend will run. So, pulse isn't loaded at the session level. But, I'd like some other workaround that allows me my normal desktop at the same time!!
View 8 Replies
View Related
Jul 21, 2010
Where is the perl module for programming with sockets?
View 4 Replies
View Related
May 9, 2010
I just downloaded Tk-804.028 and try to install it (according to the README.linux) but I get:
> perl Makefile.PL
/opt/ActivePerl-5.10/bin/perl-static is installed in /opt/ActivePerl-5.10/lib okay
PPM for perl5.010001
Test Compiling config/perlrx.c
Test Compiling config/pmop.c
Test Compiling config/pregcomp2.c
[code]...
View 5 Replies
View Related
May 18, 2011
Any recommendations on what Perl tutorial to use?
View 1 Replies
View Related
Jan 30, 2010
I am taking an input from the user for free and Used capacity in a disk. I wish to convert Input entered in MBTB to GB and this is how i am doing it.
Code:
<some code>
print "Enter Total disk space";
$tot = <STDIN>;
convert($tot);
[code]...
how do i pass the value of conv[0] after conversion back to $tot or $use such that they contain only value which is in GB?
View 3 Replies
View Related
Jul 24, 2010
I really would like Perl Qt4 bindings. The best I could find is this:[URL]The problem is that the sources would not compile, and the RPMs are for 32-bit machines.Is there really no such thing as good Perl Qt4 bindings?
View 8 Replies
View Related
Mar 27, 2011
I am a newbie on linux and just searching everything about perl scripting and modules nearly 3-4 days. I need a perl script but one of not easy to find on searching google. Okay now I need a perl script which create or recreate (edit) id3 tags (artist, comment, album, year, cover) of mp3 files stored on my linux centos server. I installed MP3::Tag version 1.13 pearl module to my server. I Searched tutorials about how to use it, finally I get through reading id3 tag of mp3 file but not achieve to modify it or create a new id3tag.
These are the details:
I have a mp3 file called 1.mp3 this script will process that '1.mp3' file read its id3tag if there is one, than modify or create id3tag for it by my fix artist name for example:
'1.mp3' files id3 tag details are like this
Artist: Dj xx
Year:2010
Title:yyyyy
Comment:eerwer
Cover: x.jpg
Now via this perl script which uses MP3::TAG I will change it's
artist as YYY
Title:ttt
Comment:cool
Cover:t.jpg
these are gonna be my fixed values. I mean all '1.mp3' file will have same artist based on script value.
The reason of this script is I will share Dj podcasts on my server and Dj's would have upload their mp3's which has got different id3 tags and cover pics. etc. I want to create more organized podcasts of them by the way I would trigger this perl script via Cronjob.
View 14 Replies
View Related
Mar 31, 2010
How can I generate a md5 or sha-1 code with perl?
View 2 Replies
View Related
Apr 1, 2010
As some of you know that I am new to this forum. I have another problem that I got stuck on. I have this file called "Fib.rbb" and my instructor told us to write an interpreter program by using Fib.rbb.
"You are to write an interpreter in Perl for Rongs Basic Basic (RBB) as explained in class. The BNF description for RBB and a test file called Fib.rbb are part of the RBB.zip file which is available in the Course Documents folder on blackboard. If you call your interpreter myIntp.pl, you would execute the program via perl myIntp.pl Fib.rbb
Code: Print "A few Fibonacci numbers:"
View 3 Replies
View Related
Mar 9, 2011
Just installed Fedora 14. I wanted to try "Hello World" with perl. But where is it?
Code: [user]@user bin]$ ls
View 1 Replies
View Related
May 23, 2011
Im somewhat new at perl and was wondering if there was a way to run a perl script or tool made from perl, from a USB pen that would work both on Linux and on Windows?
View 1 Replies
View Related
Jan 16, 2010
I writed my home.html page in /var/www with following form:
Quote:
<form action="/cgi-bin/login.cgi" method="get" class="form-font">
<label>Already you registered?</label><br/><hr/><br/>
<fieldset><br/>
<legend>Insert your account</legend>
Email: <input type="text" name="email"/><br/><br/>
[Code].....
View 2 Replies
View Related
Jun 8, 2010
I'm the server guy which is why I don't know this, but were staging a new webserver and we use some custom perl scripts and as were moving the site over for testing, apache is blowing a perl error;Can't locate web.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at /home/mcp/htdocs/cgi-bin/newgraph.gif line 11.,Now I can copy that file local, but there are a bunch of things, so the question is how do you globally add a folder to the perl search path
View 1 Replies
View Related
Sep 16, 2010
I have a debian lenny machine that I am trying to add mod_perl to and use apache asp on. I have had a range of failures on it. Is ther a way I can build apache2 with mod_perl in it? Instead of separate. Apache2 is built with some modules built in by default, how can I make mod_perl one of them?
View 1 Replies
View Related
Oct 9, 2009
I would like to ask opinion from perl experts.
I want to compare 2 files and show the differences in a text file.
For example, if i open File A an B in notepad
File A:
File B:
Quote:
line3 is missing in File B
So if I did a File compare (line by line), the differences will be in line3, line4, line5, line 6.
But I dont want it to be like that.
I want it to be like this
Quote:
Can Text:: Diff able to perform the work.
View 1 Replies
View Related
Jun 1, 2010
Using given program , i am able to print current date but is is possible to print last n no. of date. For example i want to print last three date staring from today. so o/p should be like
2010-06-02
2010-06-01
2010-05-31
Code:
my $myTimeStamp = "";
sub _timestamp
{
[Code]...
View 1 Replies
View Related
Jul 24, 2010
How do I download a file to a specified location on disk in Perl?I tried doing a few web searches but suprisingly couldn't find anything.
View 4 Replies
View Related
May 12, 2010
I writed Quote:
#!/usr/bin/perl -w
use Error qw(:try);
try {
[code]....
View 1 Replies
View Related
Aug 19, 2010
What is the difference in perl between:
'function();'
and
'&function();'
with and without ampersand.
View 1 Replies
View Related
Jan 6, 2010
How can I get the total arguments in perl.To be more specific if I try to execute the command
Code:
perl -w myperl.pl ash ok kumar
I should be able to get all the command line arguments.
I know that @ARGV will store only the arguments passed but not the entire arguments.
View 14 Replies
View Related
May 5, 2011
I'm trying to write a Perl script that will go out to a website, log in, pull up a query page, fill-in and submit the query, extract a few specific lines from the query results, and finally place that output into a file. I'm having difficulty with the log in portion. It appears that rather than using the built-in Apache authentication, the developer decided to write their own authentication scheme that uses cookies.
I setup a cookie jar but I'm not certain I'm actually getting and keeping the cookie. When I try to go to a page after the log in page I get an error saying I'm not logged in or my session has expired. Here's the code as I have it thus far.
Code:
#!/usr/bin/perl
use strict;
use LWP;
use HTTP::Cookies;
[Code]....
View 2 Replies
View Related
Feb 28, 2010
My script collects information and writes it to a xls file and should mail it across. I tested the first part of the script which writes the excel file , it does write the excel file fairly with expected data using Spreadsheet::WriteExcel module Second part uses MIME::Lite , All I get is a mail with intended subject intact but without the attachment . Following is the code , I have googled and tried out many options , didn't go any further apart from receiving a mail without attachment.
use MIME::Lite;
$msg = MIME::Lite->new(
From => 'xx',
To => 'xx',
[code]...
I am using RHEL 4 , Perl 5.8
View 5 Replies
View Related
May 12, 2011
im working on a perl script to automate the setup on a few machines. Does any one know how to open ports using perl?
ps: The systems are redhat so id be editing the iptables file..
View 6 Replies
View Related
Dec 2, 2010
I've decided to learn perl and have an application that is going to require the use of mysql.
Are these warnings bad?
Here's the code:
Code:
And the warnings:
Code:
View 2 Replies
View Related
Apr 27, 2010
created this array and the last two elements will not pop - phil and sylvia never get up to bat.
1#!/usr/bin/perl
2use strict;
3use warnings;
[code]...
View 3 Replies
View Related
May 18, 2010
I am following a gtk2-perl tutorial, so I wrote the test program, installed gtk2-perl, and got this error:
Code:
Can't locate readonly.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.10.1 /usr/share/perl5/site_perl/5.10.1 /usr/lib/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib/perl5/core_perl /usr/share/perl5/core_perl /usr/lib/perl5/current /usr/lib/perl5/site_perl/current .) at ./test.pl line 7. BEGIN failed--compilation aborted at ./test.pl line 7.
I googled readonly.pm, and figured out it's part of some Readonly module.But how do I install it? Preferably using the Arch package manager?
View 10 Replies
View Related
Jun 3, 2010
I want to write some script to do a job which is post some data to the website every one hours .I find some information say the Perl can do this job .I know I can write by the vim.but is these any tools can help for coding .may be it will prompt the class .what tools you use ?
View 10 Replies
View Related
Jul 8, 2009
I need to count files in a dir which were updated yesterday.
ls -lth | grep -i 'Jul 7' | wc -l
The dir holds files of last 15 days and total count is as 2067476. Is it efficient to count the files using perl? I have developed the following perl script making use of system().
Code:
#!/usr/bin/perl
@months = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
($sec,$min,$hour,$monthday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
[code]....
View 12 Replies
View Related