Hi Friends,
As my old friends knows, I'm old to shell script but very new to perl script, currently I'm writing
a PERL script with the following functionality:
I've multiple product directories, like BUSS, FIN, SALES, MKT etc., :
/export/home/GLK/BUSS,
/export/home/GLK/FIN, ... (11 Replies)
Hi,
My script is here--
#!/usr/bin/perl
no warnings "uninitialized";
use File::Copy;
use File::stat;
use Time::Local;
use IO::Handle;
use DateTime;
use Getopt::Long;
use File::Glob ':glob';
my $Summary;
my $Individual;
my $Diagnostics;
my $All; (3 Replies)
Hi
i want to search two pattern on same line and replace onther pattern..
INPut file
aaaa bbbbb nnnnnn ttttt
cccc bbbbb nnnnnn ppppp
dddd ccccc nnnnnn ttttt
ffff bbbbb oooooo ttttt
now i want replace this matrix like.. i want search for "bbbbb","nnnnnn" and search and replace for... (4 Replies)
Hi All,
This Monday 15th March 2010, i have faced a weired issue with my Perl script execution, this script is scheduled to run at 1 minute past midnight on daily basis ( 00:01 EST ) generally for fetching previous business date , say if it is Monday it should give last Friday date, for Tuesday... (0 Replies)
hi guys,
i have a variable date that stores the current date....now i need to subtract 2 minutes from it...can someone tell me how to do it in perl.... (5 Replies)
Hi All,
I am facing an issue with perl..
I have a perl script that executes the stored procedure and puts the data in a file. In stord proc we have one date column also. In table from which it is fetching the data, date is in the form "14/03/2010 00:00:00.000" (DD/MM/YYYY). But when the perl... (4 Replies)
Hi All,
what i want to do in perl is i should give the date at run time .Suppose date given is 23/12/2011(mm/dd/yyyy) the perl script shold find week start date, week end date, previous week start date,end date,next week start date, end date. In this case
week start date will be-:12/19/2011... (2 Replies)
my $sysdate = strftime('%Y-%m-%d', localtime );
biDeriveByDate('Table_Str',$sysdate,\@lIndx,\@lResVals)
In a perl script, when I'm trying to pass $sysdate to some external function it's not working since $sysdate is passed as a string mentioned above but my function is expecting a date value... (1 Reply)
Discussion started by: Devesh5683
1 Replies
LEARN ABOUT DEBIAN
email::date
Email::Date(3pm) User Contributed Perl Documentation Email::Date(3pm)NAME
Email::Date - Find and Format Date Headers
SYNOPSIS
use Email::Date;
my $email = join '', <>;
my $date = find_date($email);
print $date->ymd;
my $header = format_date($date->epoch);
Email::Simple->create(
header => [
Date => $header,
],
body => '...',
);
DESCRIPTION
RFC 2822 defines the "Date:" header. It declares the header a required part of an email message. The syntax for date headers is clearly
laid out. Stil, even a perfectly planned world has storms. The truth is, many programs get it wrong. Very wrong. Or, they don't include a
"Date:" header at all. This often forces you to look elsewhere for the date, and hoping to find something.
For this reason, the tedious process of looking for a valid date has been encapsulated in this software. Further, the process of creating
RFC compliant date strings is also found in this software.
FUNCTIONS
find_date
my $time_piece = find_date $email;
"find_date" accepts an email message in any format Email::Abstract can understand. It looks through the email message and finds a date,
converting it to a Time::Piece object.
If it can't find a date, it returns false.
"find_date" is exported by default.
format_date
my $date = format_date; # now
my $date = format_date( time - 60*60 ); # one hour ago
"format_date" accepts an epoch value, such as the one returned by "time". It returns a string representing the date and time of the
input, as specified in RFC 2822. If no input value is provided, the current value of "time" is used.
"format_date" is exported by default.
format_gmdate
my $date = format_gmdate;
"format_gmdate" is identical to "format_date", but it will return a string indicating the time in Greenwich Mean Time, rather than
local time.
"format_gmdate" is exported on demand, but not by default.
PERL EMAIL PROJECT
This module is maintained by the Perl Email Project
<http://emailproject.perl.org/wiki/Email::Date>
SEE ALSO
Email::Abstract, Time::Piece, Date::Parse, perl.
AUTHOR
Casey West, <casey@geeknest.com>.
Ricardo SIGNES, <rjbs@cpan.org>.
COPYRIGHT
Copyright (c) 2004 Casey West. All rights reserved.
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
perl v5.10.1 2007-12-01 Email::Date(3pm)