Hello
I was installing ssh in Aix 4.3 but found that "perl.rte and rpm.rte" was not installed. but to my bad luck i was not able to find these packages for Aix 4.3. Ibm site just has these packages only for 5L. Can anyone help me in finding these packages.
Bala (1 Reply)
Hi all,
I'm a rookie in Perl scripting, and I have a task to do.
Generally it's something like that:
I have a reference file consisting of a number and name, tab-separated. One entry in one line, about 99 lines in file.
The other file is an XML log file, where in one specific branch, eg.... (8 Replies)
Hi,
I need your help on this script wherein I am matching up the input phone numbers for a partical pattern (xxx-xxxx). However in this I want to have null output where first value of input is null. ( For Example: $record = " ,111-5555") . Ideally I would expect to recieve input in this format... (6 Replies)
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)
For the following command I need a perl script equivalent with a couple of more things -
cat /tmp/mail |grep Appname > /tmp/mail1;cat /tmp/mail >> /tmp/mail1; mail -s "mail subject here" allan@mail.com < /tmp/mail1; >/tmp/mail ; >/tmp/mail1
==================
cat /tmp/mail
***** Alert *****... (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,
I am novice in PERL enviornment. I have a text files withso many entries in rows and columns. I have to pick up entries
named as "Uniprot ID" in the file and create a new text file with list of particular Uniprot ID entries. Can anybody guide regarding this.. I came to know abut fgrep... (1 Reply)
Hi,
I want to validate strings in perl, the string may contains characters from a-zA-Z0-9 and symbols +-_.:/\
To validate such a string I computed a regex
if ($string =~ m/^/) {
print "valid";
} else {
print "invalid";
}
but this regex also validates strings that contain... (8 Replies)
Hi, I will be asking a series of major newbie questions, and you help is greatly appreciated in advance!!
I have to write a script that will parse a logfile in a directory, the directory name changes daily.
So far I have:
#!/usr/bin/perl
open LOGFILE,">logfile.txt";
($day, $month,... (3 Replies)
Discussion started by: BG_JrAdmin
3 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)