getting closer!
I got it to do this:
The Famous Joke of the Day One Liner!
Roses are red, Violets are blue. I'm Schizophrenic and so am I.
%
The Famous Joke of the Day One Liner!
Seek domestic happiness and faithful friends.
%
The Famous Joke of the Day One Liner!
Sex is hereditary. If your parents never had it,
chances are you won't either.
This is the current version, it just needs to insert the:
���`����,��,����`�������`����,��,����`�������`����,��,����`����
#! /usr/bin/perl
$joke=0;
while(<>) {
if(m/Liner!/) { $joke=1;}
if(m/^From .+\@.+/) { print "%\n" if ($joke); $joke=0; }
print $_ if($joke);
}
print "%\n" if($joke);
On Wednesday 22 January 2003 06:40 pm, Linux Rocks! wrote:
: So... I was thinking, we could just insert:
: ���`����,��,����`�������`����,��,����`�������`����,��,����`����
:
: The Famous Joke of the Day One Liner!
: then insert the text after "One Liner!", and before if(m/^From .+\@.+/)
: which would save from having to search
: " ���`����,��,����`�������`����,��,����`�������`����,��,����`����
:
: The Famous Joke of the Day One Liner!"
:
: I tried hacking at it a bit... got some ugly results!
:
: Jamie
:
: On Wednesday 22 January 2003 05:51 pm, Cory Petkovsek wrote:
: : Ok, try this perl script:
: :
: : #! /usr/bin/perl
: : $joke=0;
: : while(<>) {
: : if(m/`....,..,/) { $joke=1;}
: : if(m/^From .+\@.+/) { print "%\n" if ($joke); $joke=0; }
: : print $_ if($joke);
: : }
: : print "%\n" if($joke);
: :
: :
: : save it to a file, turn on executable flag and use like this:
: :
: : cat archive inbox | fortunes.pl > fortunes.txt
: :
: : Cory
: :
: : On Wed, Jan 22, 2003 at 05:19:45PM -0800, Linux Rocks ! wrote:
: : > On Wednesday 22 January 2003 01:24 pm, Cory Petkovsek wrote:
: : > : Where is your email located? In an mbox? If so start with grep.
: : > : Does the one liner have a particular format such as:
: : >
: : > I have a couple files they could be in my inbox ( a text file named
: : > inbox), and my archive file (named archive
: : > I want the text between:
: : > "???`????,??,????`???????`????,??,????`???????`????,??,????`????
: : >
: : > The Famous Joke of the Day One Liner!"
: : >
: : > and from
: : >
: : > "From"
: : > Heres a sample one, Infact, it would be nice to keep thier ascii art!
: : > and text about where its from... like the example below...
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`????
: : >
: : > The Famous Joke of the Day One Liner!
: : >
: : > Roses are red, Violets are blue. I'm Schizophrenic and so am I.
: : >
: : > The only consistant way I can tell its the end of the text is the From
: : > line in the next message.
: : >
: : > so.... a cat inbox |grep
: : > "???`????,??,????`???????`????,??,????`???????`????,??,????`????
: : >
: : > The Famous Joke of the Day One Liner!" + any other text, untill you
: : > see "From" >> joker
: : > and it would also have to add a % after each instance.
: : >
: : > There is another problem... what if the one liner is "From joes book of
: : > quotes" or something... it will cut that off!, so a better qualifier
: : > would From *@* (ie anyone@anydomain) so it knows thats a new email.
: : >
: : > basic cat and grep im familiar with... but this is a bit more tricky
: : > that Ive done....
: : >
: : > Jamie
: : >
: : > : q: why did the chicken cross the road? because a penguin was chasing
: : > : it
: : >
: : > Thats a good quote!
: : >
: : > : You want a text file with no newlines or carriage returns, just %
: : > : separating the jokes, right?
: : > :
: : > : On Wed, Jan 22, 2003 at 12:57:59PM -0800, Linux Rocks ! wrote:
: : > : > So, Id like to extract just the one liner portion of email sent
: : > : > from joker.org (ie, I want all the one-liners from all the memail
: : > : > joke of the day messages I have, and a "%" to separate each
: : > : > oneliner, and Id like them put in a text file, then I can make a
: : > : > fortune database with it, and use it with fortune.)
: : > : >
: : > : > What would be the best way to do this?
: : > : >
: : > : > Jamie
: : > : >
: : > : >
: : > : > --
: : > : > No microsoft products were used to produce this message.
: : > : > EUG-LUG Mailing List:
: : > : > http://mailman.efn.org/cgi-bin/listinfo/eug-lug
: : > : >
: : > : > _______________________________________________
: : > : > Eug-LUG mailing list
: : > : > [EMAIL PROTECTED]
: : > : > http://mailman.efn.org/cgi-bin/listinfo/eug-lug
: : > :
: : > : _______________________________________________
: : > : Eug-LUG mailing list
: : > : [EMAIL PROTECTED]
: : > : http://mailman.efn.org/cgi-bin/listinfo/eug-lug
: : >
: : > --
: : > No microsoft products were used to produce this message.
: : > EUG-LUG Mailing List:
: : > http://mailman.efn.org/cgi-bin/listinfo/eug-lug
: : >
: : > _______________________________________________
: : > Eug-LUG mailing list
: : > [EMAIL PROTECTED]
: : > http://mailman.efn.org/cgi-bin/listinfo/eug-lug
: :
: : _______________________________________________
: : Eug-LUG mailing list
: : [EMAIL PROTECTED]
: : http://mailman.efn.org/cgi-bin/listinfo/eug-lug
--
No microsoft products were used to produce this message.
EUG-LUG Mailing List:
http://mailman.efn.org/cgi-bin/listinfo/eug-lug
_______________________________________________
Eug-LUG mailing list
[EMAIL PROTECTED]
http://mailman.efn.org/cgi-bin/listinfo/eug-lug
