#!/bin/bash
mail=/var/spool/mail/$USER
#get the first date that's within last two days:
D=$( egrep "^From " $mail | #filter the lines starting with 'From '
sed 's/^From [^ ][^ ]*//' | #get only the date
while read D ; do #loop through dates
[[ $((`date +%s`-`date -d "$D" +%s`)) -lt $((2*24*3600)) ]] && echo $D && break #compare and exit loop as soon as you find one that's within 2 days
done )
#print only from this date on:
sed -n "/^From .* $D/,$ p" $mail
Last edited by mirni; 04-22-2011 at 04:18 PM..
Reason: comments
Hi
I have a file in which I have 5 columns which are delimited by “|” as shown
ABC|12|YAK|METRIC|000000019.5
XYZ|10|ABX|META|000000002.5
Now my requirement is to take the last column trim the leading zero's for that column values and write back to the same file in the same... (7 Replies)
I have a variable that is a full path name and I just want the file name with out the extension. I have figured out how to do this using some temp files but I would really like to avoid that if possible.
I know I can do
echo ${TMPNAME%.*} to drop the extension is there a similar way to drop... (3 Replies)
Hi all ,
I am creating the file which holds the create query to run in the sql prompt:
so when i am creating:
create table XXX( SD Varchar2(10),
DF Varchar2(10),)
I am getting one comma at the last ,before i am inserting the closing bracket i need to delete that? kindly provide me the... (1 Reply)
HI I HAVE A PROBLEM,MY SOURCE FILE IS OF PATTERN
S1,E-Certified,29,29,2.7,Certified,4,3,2.7,,0,0,0
S2,Certified,4,3,2.7,,0,0,0,,0
S3,E-Certified,29,29,2.7,,0,0,0
S4,,0,0,0,,0,0,0,,0,0,0,,0,0,0
AND THE EXPECTED OUTPUT IS
S1,E-Certified,29,29,2.7
S1,Certified,4,3,2.7... (1 Reply)
Hi All,
I have a ln between two files (say ln a b), when i truncate file " b ", this truncates file " a " also, a binary line is being added as the first line of both the files.
This is causing problems with other scripts which grep on the above files.
(though i can work my way around... (4 Replies)
Hi
The below script working when we are sending the html as attachment can u please guide how to send thesmae data in table form direct in the mail and not in mail attachment .
cat Employee.sql
SET VERIFY OFF
SET PAGESIZE 200
SET MARKUP HTML ON SPOOL ON PREFORMAT OFF ENTMAP ON -
HEAD... (0 Replies)
Hi,
I need to truncate a file based on date.Suppose i have a log file which is getting updated every date,i need to keep 7 days worth of data(like sysdate-7) and rest i want to truncate it.Can some help me? (5 Replies)
consider the small piece of code
while read line
do
echo $line
done < example
content of example file
sadasdasdasdsa erwerewrwr ergdgdfgf rgerg erwererwr
the output is like
sadasdasdasdsa erwerewrwr ergdgdfgf rgerg erwererwr
the... (4 Replies)
I'm using plink.exe on WinXP to run some commands on Z/OS BASH. My commands are interspersed with echo commands so that I can parse the output and work out what is where.
The first hundred or so commands run fine, but then one of them gets truncated. For example:
Input:
echo :end_logdetail:... (6 Replies)
Legends,
I have 2 files f1 and f2. when i use nawk to compare the difference(subtraction) from 4th column of the file, it truncates the output.
can you please help to resolve this.
subtraction is (4th col of f1 - 4th col of f2). but it gives only below lines out of 116. I want to print all... (7 Replies)
Discussion started by: sdosanjh
7 Replies
LEARN ABOUT DEBIAN
www::topica::mail
WWW::Topica::Mail(3pm) User Contributed Perl Documentation WWW::Topica::Mail(3pm)NAME
WWW::Topica::Mail - parse a single Topica mailing list mail
SYNOPSIS
my $index = WWW::Topic::Index->new($index_html);
foreach my $mess_id ($index->message_ids) {
# the mail has some information and also provides a link to the reply ...
my $mail = WWW::Topica::Mail->new($topica->fetch_mail($mess_id), $mess_id);
# which has other information (like the un-htmled mail and the email address) ...
my $reply = WWW::Topica::Reply->new($topica->fetch_reply($mail->id, $mail->eto), $mail->id, $mail->eto);
}
print "Next offset is ".$index->next."
";
print "Previous offset is ".$index->prev."
";
DESCRIPTION
Used to parse a single message page from Topica.com's mailing list indexes.
Message pages have the subject and the date and time of the mail being sent as well as a full name of each sender.
METHODS
new <page html> <id>
Takes the page html and the message-id and parses the html.
parse <html>
Parse the html to get message ids and next & prev offsets.
id
Get the id of this mail
eto
Get the eto of the next reply we need to get
date
Get the date of this mail
subject
The subject of the mail
from
Get the name of the person it was from
body
Get the body of the mail.
AUTHOR
Simon Wistow <simon@thegestalt.org>
COPYRIGHT
Copyright (c) 2004, Simon Wistow
perl v5.10.1 2006-01-03 WWW::Topica::Mail(3pm)