03-20-2008
Not sure what this is supposed to do:
%ARCHIVE=('*.$MONTH.*'=>1);
archive() is not a perl function, not sure what that does unless you have loaded a module that has that function imported into your perl program.
This line is wrong:
printf $filename\n;
\n will not be interpolated properly when unquoted:
printf "$filename\n";
printf in perl is for writing to files or adding formatting, you should just use print instead of printf when printing to stdout. Add the warnings pragma to your script:
use warnings;
and it will alert you to problems and potential problems.
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello,
I only know the basic for shell programing. I need help for this, I thinks this is a basic for anyone who know a litle of shell scripting.
I need creat a script for a rotatate logs, when a filesystem is full. I have a filesystem.
The rotate consist in zip the current log (copy) and... (1 Reply)
Discussion started by: El Rengo
1 Replies
2. UNIX for Dummies Questions & Answers
Hello All,
I am learning unix and basically I want to rotate one of my application logs every 1 hour. I need to rotate that file every one hour. I looked in the forums and googled.. but couldn;t get proper information. Requesting you all to kindly guide me.
Our application is running on... (4 Replies)
Discussion started by: arunpvp
4 Replies
3. Shell Programming and Scripting
Hi all,
Am trying to write my own log rotate script. Curremtly, what I have is as below:
#!/bin/ksh
file_to_rotate=${1}
x=${2}
while ]
do
let curr=${x}
let prev=${x}-1
if ] ; then
#echo "cp -p ${file_to_rotate} ${file_to_rotate}.${curr}"
cp -p... (7 Replies)
Discussion started by: newbie_01
7 Replies
4. Shell Programming and Scripting
Hi Experts,
I have script on crontab and give output quite large. I would like to know how to create rotate log when the size of log maximum 50MB
if the test.log is 50MB then create test.0
Thanks
Edy (2 Replies)
Discussion started by: edydsuranta
2 Replies
5. Shell Programming and Scripting
Hi all,
I am developing a log parsing agent in perl to send windows Event logs to Zenoss Monitoring tool. Using Win32::EventLog i can able to get the Event messages but only one Eventype eg Application or System could able to parse at a time. Can you please help to how to open mutiple eventlogs... (3 Replies)
Discussion started by: kar_333
3 Replies
6. Shell Programming and Scripting
Hi Friends,
Can anybody help me to create a perl script to generate log file for last 24 hrs from cron log file ??
Thank You (2 Replies)
Discussion started by: syamji.vm
2 Replies
7. UNIX for Dummies Questions & Answers
I have few solaris-10 non global zones, where one application is writing some logs to /var/ovd/ConfigLogs. It keeps increasing all the time, as it is needed by application team as of now. I want a small script, which I can configure in cronjob, which should :
- Run every Saturday 10 PM
- Copy... (5 Replies)
Discussion started by: solaris_1977
5 Replies
8. UNIX for Dummies Questions & Answers
My problem: Both access and error logs do not rotate any more and get really large.
They are located here: /srv/www/+vHost name here+/logs/
Configuration seems to be here:
/etc/logrotate.conf => looks OK, including "size 10M" to avoid large files
(/etc/logrotate.d => is empty)
manually... (4 Replies)
Discussion started by: floko
4 Replies
9. Shell Programming and Scripting
Appreciate help for the below issue.
Im using below code.....I dont want to attach the logs when I ran the perl twice...I just want to take backup with today date and generate new logs...What I need to do for the below scirpt..............
1)if logs exist it should move the logs with extention... (1 Reply)
Discussion started by: Sanjeev G
1 Replies
LEARN ABOUT CENTOS
warnings
warnings(3pm) Perl Programmers Reference Guide warnings(3pm)
NAME
warnings - Perl pragma to control optional warnings
SYNOPSIS
use warnings;
no warnings;
use warnings "all";
no warnings "all";
use warnings::register;
if (warnings::enabled()) {
warnings::warn("some warning");
}
if (warnings::enabled("void")) {
warnings::warn("void", "some warning");
}
if (warnings::enabled($object)) {
warnings::warn($object, "some warning");
}
warnings::warnif("some warning");
warnings::warnif("void", "some warning");
warnings::warnif($object, "some warning");
DESCRIPTION
The "warnings" pragma is a replacement for the command line flag "-w", but the pragma is limited to the enclosing block, while the flag is
global. See perllexwarn for more information and the list of built-in warning categories.
If no import list is supplied, all possible warnings are either enabled or disabled.
A number of functions are provided to assist module authors.
use warnings::register
Creates a new warnings category with the same name as the package where the call to the pragma is used.
warnings::enabled()
Use the warnings category with the same name as the current package.
Return TRUE if that warnings category is enabled in the calling module. Otherwise returns FALSE.
warnings::enabled($category)
Return TRUE if the warnings category, $category, is enabled in the calling module. Otherwise returns FALSE.
warnings::enabled($object)
Use the name of the class for the object reference, $object, as the warnings category.
Return TRUE if that warnings category is enabled in the first scope where the object is used. Otherwise returns FALSE.
warnings::fatal_enabled()
Return TRUE if the warnings category with the same name as the current package has been set to FATAL in the calling module. Otherwise
returns FALSE.
warnings::fatal_enabled($category)
Return TRUE if the warnings category $category has been set to FATAL in the calling module. Otherwise returns FALSE.
warnings::fatal_enabled($object)
Use the name of the class for the object reference, $object, as the warnings category.
Return TRUE if that warnings category has been set to FATAL in the first scope where the object is used. Otherwise returns FALSE.
warnings::warn($message)
Print $message to STDERR.
Use the warnings category with the same name as the current package.
If that warnings category has been set to "FATAL" in the calling module then die. Otherwise return.
warnings::warn($category, $message)
Print $message to STDERR.
If the warnings category, $category, has been set to "FATAL" in the calling module then die. Otherwise return.
warnings::warn($object, $message)
Print $message to STDERR.
Use the name of the class for the object reference, $object, as the warnings category.
If that warnings category has been set to "FATAL" in the scope where $object is first used then die. Otherwise return.
warnings::warnif($message)
Equivalent to:
if (warnings::enabled())
{ warnings::warn($message) }
warnings::warnif($category, $message)
Equivalent to:
if (warnings::enabled($category))
{ warnings::warn($category, $message) }
warnings::warnif($object, $message)
Equivalent to:
if (warnings::enabled($object))
{ warnings::warn($object, $message) }
warnings::register_categories(@names)
This registers warning categories for the given names and is primarily for use by the warnings::register pragma, for which see
perllexwarn.
See "Pragmatic Modules" in perlmodlib and perllexwarn.
perl v5.16.3 2013-03-04 warnings(3pm)