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
