Unable to create logfile with local time stamp using perl
Hello All,
Morning,
I am facing problem with my code while creating a log with name as current time stamp using perl. Here is the code.
Code:
#!/usr/bin/perl
my $time=localtime;
my ($day,$month,$date,$tm,$year)=split(/ /,$time);
my $stamp=$year."_".$month."_".$date;
my $logdir="SAP_IN_".$stamp;
my $LOGFILE = "E:/pearl/$logdir.log" ;
print " Log file name is : $LOGFILE ";
out put:
Code:
E:/pearl/SAP_IN_12:09:04_Feb_.log
It should be
Code:
E:/pearl/SAP_IN_12:09:04_Feb_3.log.
I think value of localtime gives date in single digit hence split is failing to get value. But this code works if date in 2 digit.
Can some one help me to correct the code?
Thanks
Krsna..
Last edited by Franklin52; 02-06-2012 at 06:46 AM..
Reason: Please use code tags for data and code samples, thank you
Hi,
Sounds a simple request but I also need (would like) to gather the seconds too. I'm not even sure if this is held. I would think it is, somewhere??!!?!
I belive that stat would/could work but I don't do C (we'll not yet).
Is there any comamnd line util I can use?
SunOS.
Cheers... (7 Replies)
Hi Guys,
Could you tell me how you can get the time stamp for 60th minutes?
Currently, we name our file using time stamp upto minutes and then add seconds at the end starting from 01.
And when the seconds reaches 60 we simply add 1 to the time stamp and reset the seconds to 00.
But the... (3 Replies)
Hi,
while running the perl script i am getting this error message ,
Day '' out of range 1..31 at rsty.sh line 44
what do iam missing in the script, any suggestion
#!/usr/bin/perl
use Time::Local;
my $wday = $ARGV;
my $month = $ARGV;
# convert the month shortname into 0-11 number
if... (4 Replies)
Hi Dudes,
Can you please suggest me how to create a logfile to track the below script output ? Thanks
#!/bin/ksh
# backup the "std" I/P file descriptor
exec 5<&0
#echo "Proceed ?"
while read config_line; do
# backup the I/P file descriptor of "while" block
exec 6<&0
# restore the... (2 Replies)
Hi,
I have to find the next time stamp in perl.
Here is the code.
@time = loaltime(time);
print "\n Present time: $time:$time:$time \n";
For example if the time is: "12:55:02" after some process the time becomes 1:00:00.
How do i check when it becomes 00:00 i.e from "12:55:02... (0 Replies)
Here is two time I have:
Jul 12 16:02:01
Jul 13 01:02:01
and how can I do a simple match to get difference between two time which is 09:00:00
Thanks in advance. (3 Replies)
Hi, How to create array every time user input and store user input and display all array
print " Enter input "
my @input = split(' ', $input)
chmop($input = <STDIN>;
foreach ($input)
{
@array= @input;
}
print @array"\n"; (1 Reply)
On Solaris 10 server the system date won't match with the timestamp on files created by a cron jobs, Please help
here is what i get when i check for system date
infodba-ie10ux014:/tcpdv1_ie10/tcadmin/bin\n\r-> date
Tue Apr 24 15:27:43 GMT 2012at same time i executed a cron job, and checked... (4 Replies)
Hi
I have a bash script which takes parameters
sh /tmp/gdg.sh -b BASE-NAME -n 1 -s /source/data -p /dest/data/archive -m ARC
gdg.sh will scan the /source/data and will move the contents to /dest/data/archive after passing through some filters. Its working superb from bash
I have... (0 Replies)
Help with Perl script :
I have a web.xml file with a line
<display-name>some_text_here</display-name>
Need to append the current date and time stamp to the string and save the XML file
Something like
<display-name>some_text_here._01_23_2014_03_56_33</display-name>
-->Finally want... (5 Replies)
Discussion started by: gaurav99
5 Replies
LEARN ABOUT DEBIAN
prima::calendar
Prima::Calendar(3) User Contributed Perl Documentation Prima::Calendar(3)NAME
Prima::Calendar - standard calendar widget
SYNOPSIS
use Prima::Calendar;
my $cal = Prima::Calendar-> create(
useLocale => 1,
onChange => sub {
print $_[0]-> date_as_string, "
";
},
);
$cal-> date_from_time( localtime );
$cal-> month( 5);
DESCRIPTION
Provides interactive selection of date between 1900 and 2099 years. The main property, date, is a three-integer array, day, month, and
year, in the format of perl localtime ( see "localtime" in perlfunc ) - day can be in range from 1 to 31,month from 0 to 11, year from 0 to
199.
API
Events
Change
Called when the date property is changed.
Properties
date DAY, MONTH, YEAR
Accepts three integers in format of "localtime". DAY can be from 1 to 31, MONTH from 0 to 11, YEAR from 0 to 199.
Default value: today's date.
day INTEGER
Selects the day in month.
firstDayOfWeek INTEGER
Selects the first day of week, an integer between 0 and 6, where 0 is Sunday is the first day, 1 is Monday etc.
Default value: 0
month
Selects the month.
useLocale BOOLEAN
If 1, the locale-specific names of months and days of week are used. These are read by calling "POSIX::strftime". If invocation of
POSIX module fails, the property is automatically assigned to 0.
If 0, the English names of months and days of week are used.
Default value: 1
See also: date_as_string
year
Selects the year.
Methods
can_use_locale
Returns boolean value, whether the locale information can be retrieved by calling "strftime".
month2str MONTH
Returns MONTH name according to useLocale value.
make_months
Returns array of 12 month names according to useLocale value.
day_of_week DAY, MONTH, YEAR, [ USE_FIRST_DAY_OF_WEEK = 1 ]
Returns integer value, from 0 to 6, of the day of week on DAY, MONTH, YEAR date. If boolean USE_FIRST_DAY_OF_WEEK is set, the value of
"firstDayOfWeek" property is taken into the account, so 0 is a Sunday shifted forward by "firstDayOfWeek" days.
The switch from Julian to Gregorian calendar is ignored.
date_as_string [ DAY, MONTH, YEAR ]
Returns string representation of date on DAY, MONTH, YEAR according to useLocale property value.
date_from_time SEC, MIN, HOUR, M_DAY, MONTH, YEAR, ...
Copies date from "localtime" or "gmtime" result. This helper method allows the following syntax:
$calendar-> date_from_time( localtime( time));
AUTHOR
Dmitry Karasik, <dmitry@karasik.eu.org>.
SEE ALSO
Prima, Prima::Widget, POSIX, "localtime" in perlfunc, "time" in perlfunc, examples/calendar.pl.
perl v5.14.2 2009-02-24 Prima::Calendar(3)