Additionally I have added unlink to clean the files in the end.
One more thing I want to add the hostname to appname & date in the line and append the all the alerts to the mail in the end after all appname/date/hostname (as descrived earlier).
Code:
#!/usr/bin/perl
use strict;
my ($app,$cmd);
open(FH,"<","/tmp/mail") or die "Fail- $!\n";
open(FW,">","/tmp/mail_test") or die "Fail- $!\n";
while(<FH>) {
chomp;
if(/Appname:(.*)/) { $app=$1; }
if (/Date\/Time:(.*)/) { printf FW "%s:%s\n",$1,$app; }
}
$cmd='mail -s "mail subject here" allan@mail.com < /tmp/mail_test 2>/tmp/error_mail';
system($cmd);
if ( $? ne 0 ) { die "Failure - while sending email. Please check file /tmp/error_mail \n"; }
close(FW);
close(FH);
Moderator's Comments:
Please use code tags when posting data and code samples!
Last edited by vgersh99; 04-20-2011 at 06:40 PM..
Reason: code tags, please!
I am new to perl, and need a script to pull a CSV file, strip out 2 leading columns, and 2 ending columns, and resave the file in a new location. The file is basic and has less than 10,000 records. Secondly, can I schedule perl scripts to run daily? Can someone provide the basic script to... (1 Reply)
I need this script to be able to check both IPs that are given to it and exit with an OK... if one of those expected IPs is returned.
The script is run like this:
/bin/dns_checker.pl -s 69.34.55.66 -q htt.jababa.com -e 69.44.56.33,45.47.43.55
Right now, the script is failing, but when I... (4 Replies)
Hi,
I am new to perl scripting.
Can anybody help me in solving the below problem.
I have file, which is called map_file. According to map_file's last column data, i need a output file, which has repeats as like the map_file's last column name.
Thank you in advance
Vasanth (5 Replies)
Hi!
I have a curl call which gets me the following output:
curl http://hostname1.qa.com:8888/getlist
OUTPUT -
{
"token" = "201119041112";
"apps" = {
"PaymentApp" = "http://hostname1.qa.com:2333/cgi-bin/Jboss/PaymentApp-EMEA.woa/paymentInfo";
"OrderConsumer" =... (4 Replies)
i have the following script:
#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;
my $stun_client = STUN::Client->new;
$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;
my $ip = $r->{ma_address};
print "IP: $ip\n\nResult (hash):... (5 Replies)
Hi All,
I need help in accessing a path file (path.xyz_pqr) not having a shell shebang and exporting paths in the following syntax,
export DB_SCRIPT_PATH="/abc/aash/scripts/db_scripts/xyz_pqr"
export SRC_FILES_DIR="/bcd/fdw/incoming/xyz_pqr"
I need to use the path contained in the... (8 Replies)
Hello all,
I am working on a perl script which will read weblogic logfile and send the error messages to Zenoss Monitoring tool. At present the script works and it can able to send the error messages to Zenoss. The problem comes when the logrotate has been applied to the weblogic log file. At... (3 Replies)
Discussion started by: kar_333
3 Replies
LEARN ABOUT DEBIAN
build-lives-rfx-plugin
build-lives-rfx-plugin(1) General Commands Manual build-lives-rfx-plugin(1)NAME
build-lives-rfx-plugin - builds rendered effects for LiVES
SYNOPSIS
build-lives-rfx-plugin script_name [plugin_dir] -get section file
DESCRIPTION
This perl script is used by LiVES to compile an RFX (rendered effect) plugin for LiVES. It is generally called from build-lives-rfx-plugin-
multi for a script which has a language code representing LiVES-perl. The script_name must be the full (absolute) path to the plugin
script, and plugin_dir can be used to specify the output directory where the compiled plugin should be generated. If plugin_dir is not
defined then /tmp is assumed.
The second variant with -get is used to print out a script section from a plugin script to stdout. It is generally only used internally by
LiVES.
Return values The script returns the following values
0 - success 1 - the value of a trigger was greater than the number of parameters 2 - a value could not be read from the script file 3 - the
language code of the plugin script was not equivalent to LiVES-perl 4 - the API version level of the plugin script was invalid 5 - the
<define> section was missing from the plugin script
SEE ALSO build-lives-rfx-plugin-multi(1), lives(1)AUTHOR
Gabriel Finch a.k.a Salsaman (salsaman@xs4all.nl)
May 9 2010 build-lives-rfx-plugin(1)
04-20-2011
