You can now see the oneliners randomly generated at:
http://www.rocksolidnetworks.com/jokeroneliner.shtml
Jamie
On Wednesday 22 January 2003 07:01 pm, Linux Rocks! wrote:
: Sweet! thats exactly the trick... now I have something to make a fortune
: file with :)
:
: Jamie
:
: On Wednesday 22 January 2003 06:41 pm, Cory Petkovsek wrote:
: : Ah, this is much more useful. This one produces the right output on
: : what you provided. There is some perl lore in there, but basically
: : here's the flow:
: :
: : while there are lines coming from stdin
: : if a line looks like "The Famous Joke of the day", then
: : print asciii art
: : what follows is joke material
: : if a line is the start of another email then
: : print a delimeter: %
: : stop printing
: : if the joke flag is set print this line
: : end while
: : print the last % if necessary
: :
: :
: : #! /usr/bin/perl
: : $art="
: : ¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø\n";
: : $delim=" The Famous Joke of the Day One Liner!";
: : $joke=0;
: : while(<>) {
: : if(m/$delim/) { print "$art\n"; $joke=1;}
: : if(m/^From .+\@.+/) { print "%\n" if ($joke); $joke=0; }
: : print $_ if($joke);
: : }
: : print "%\n" if($joke);
: :
: : On Wed, Jan 22, 2003 at 06:27:38PM -0800, Linux Rocks ! wrote:
: : > Well.. Its a good start, however it grabed a whole lot more, Heres an
: : > example of a full message:
: : > Start sample message::::::::::::::::::::
: : >
: : > MeMail.com: Joke of the Day
: : >
: : > ????`????,??,????`????,??, OUR SPONSOR ,??,????`????,??,????`????
: : >
: : > ** FORECLOSED HOMES: NO MONEY DOWN! **
: : > Try a FREE search in your area. America's largest
: : > & oldest bank foreclosure service.
: : >
: : > FOR A List In Your Area Click Here
: : > http://www.adreporting.com/dir.php?a=149783&p=28&w=text
: : >
: : > Help keep this publication free - visit our sponsor today!
: : >
: : >
: : > HAVE A GOOD CLEAN JOKE ???
: : > --------------
: : >
: : > We Need a Laugh
: : > Please send along your funnies to
: : > [EMAIL PROTECTED]
: : >
: : > Irreplaceable
: : > --------------
: : >
: : > My six-year-old grandson called his mother from his friend Charlie's
: : > house and confessed he had broken a lamp when he threw a football in
: : > their living room.
: : >
: : > "But, Mom," he said, brightening, "you don't have to worry about buying
: : > another one. Charlie's mother said it was irreplaceable."
: : >
: : >
: : > Every Tues and Friday - a New Funny Foto!!
: : > FUNNY FOTOS
: : > Click here to view.
: : > http://www.memail.com/fotos/index.htm
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`???
: : >
: : > Quit Smoking in 21 Days Guaranteed!
: : > The FinalSmoke System is GUARANTEED to help you
: : > Quit Smoking in less than 30 days or your money back!
: : > START YOUR SMOKE-FREE LIFE TODAY... GUARANTEED!!!!!
: : >
: : > ACT NOW! CLICK BELOW!
: : > http://www.adreporting.com/dir.php?p=171&a=149783
: : >
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`???
: : >
: : > Dogs teach us many things .....
: : >
: : > When loved ones come home, always run to greet them.
: : >
: : > Never pass up the opportunity to go for a joyride.
: : >
: : > Allow the experience of fresh air and the wind in your face to be
: : > pure ecstasy.
: : >
: : > When it's in your best interest, practice obedience.
: : >
: : > Let others know when they've invaded your territory.
: : >
: : > Take naps and stretch before rising.
: : >
: : > Run, romp, and play daily.
: : >
: : > Thrive on attention and let people touch you.
: : >
: : > Avoid biting, when a simple growl will do.
: : >
: : > On warm days, stop to lie on your back on the grass.
: : >
: : > On hot days, drink lots of water and lay under a shady tree.
: : >
: : > When you're happy, dance around and wag your entire body.
: : >
: : > No matter how often you're scolded, don't buy into the guilt thing and
: : > pout ... run right back and make friends.
: : >
: : > Delight in the simple joy of a long walk.
: : >
: : > Eat with gusto and enthusiasm. Stop when you have had enough.
: : >
: : > Be loyal.
: : >
: : > Never pretend to be something you're not.
: : >
: : > If what you want lies buried, dig until you find it.
: : >
: : > When someone is having a bad day, be silent, sit close by and nuzzle
: : > them gently.
: : >
: : >
: : >
: : >
: : > Other cool sites to visit:
: : > --------------------------
: : >
: : > Joker, We Have Found Your Money
: : > http://www.adreporting.com/dir.php?p=25&a=149783
: : >
: : >
: : > Find FREE Things On The Bargain Finder
: : > http://www.adreporting.com/bargain-finder.htm
: : >
: : >
: : > Free Antenna Reception Booster with every order!
: : > http://www.adreporting.com/dir.php?p=26&a=149783
: : >
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`????
: : >
: : > MeMail.com: Delivering The Internet Your Way!
: : >
: : > SUBSCRIBE mailto:[EMAIL PROTECTED]
: : > UNSUBSCRIBE MAILTO: [EMAIL PROTECTED]
: : >
: : > Advertising Information: http://www.MeMail.com/advertising.html
: : >
: : > This copy was delivered to: [EMAIL PROTECTED]
: : >
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`????
: : >
: : > The Famous Joke of the Day One Liner!
: : >
: : > "The good people sleep much better at night than the bad people.
: : > Of course, the bad people enjoy the waking hours much more."
: : >
: : > -- Woody Allen
: : > END sample message::::::::::::::::
: : >
: : > Heres the part yours grabed....
: : > ????`????,??,????`????,??, OUR SPONSOR ,??,????`????,??,????`????
: : >
: : > ** FORECLOSED HOMES: NO MONEY DOWN! **
: : > Try a FREE search in your area. America's largest
: : > & oldest bank foreclosure service.
: : >
: : > FOR A List In Your Area Click Here
: : > http://www.adreporting.com/dir.php?a=149783&p=28&w=text
: : >
: : > Help keep this publication free - visit our sponsor today!
: : >
: : >
: : > HAVE A GOOD CLEAN JOKE ???
: : > --------------
: : >
: : > We Need a Laugh
: : > Please send along your funnies to
: : > [EMAIL PROTECTED]
: : >
: : > Irreplaceable
: : > --------------
: : >
: : > My six-year-old grandson called his mother from his friend Charlie's
: : > house and confessed he had broken a lamp when he threw a football in
: : > their living room.
: : >
: : > "But, Mom," he said, brightening, "you don't have to worry about buying
: : > another one. Charlie's mother said it was irreplaceable."
: : >
: : >
: : > Every Tues and Friday - a New Funny Foto!!
: : > FUNNY FOTOS
: : > Click here to view.
: : > http://www.memail.com/fotos/index.htm
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`???
: : >
: : > Quit Smoking in 21 Days Guaranteed!
: : > The FinalSmoke System is GUARANTEED to help you
: : > Quit Smoking in less than 30 days or your money back!
: : > START YOUR SMOKE-FREE LIFE TODAY... GUARANTEED!!!!!
: : >
: : > ACT NOW! CLICK BELOW!
: : > http://www.adreporting.com/dir.php?p=171&a=149783
: : >
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`???
: : >
: : > Dogs teach us many things .....
: : >
: : > When loved ones come home, always run to greet them.
: : >
: : > Never pass up the opportunity to go for a joyride.
: : >
: : > Allow the experience of fresh air and the wind in your face to be
: : > pure ecstasy.
: : >
: : > When it's in your best interest, practice obedience.
: : >
: : > Let others know when they've invaded your territory.
: : >
: : > Take naps and stretch before rising.
: : >
: : > Run, romp, and play daily.
: : >
: : > Thrive on attention and let people touch you.
: : >
: : > Avoid biting, when a simple growl will do.
: : >
: : > On warm days, stop to lie on your back on the grass.
: : >
: : > On hot days, drink lots of water and lay under a shady tree.
: : >
: : > When you're happy, dance around and wag your entire body.
: : >
: : > No matter how often you're scolded, don't buy into the guilt thing and
: : > pout ... run right back and make friends.
: : >
: : > Delight in the simple joy of a long walk.
: : >
: : > Eat with gusto and enthusiasm. Stop when you have had enough.
: : >
: : > Be loyal.
: : >
: : > Never pretend to be something you're not.
: : >
: : > If what you want lies buried, dig until you find it.
: : >
: : > When someone is having a bad day, be silent, sit close by and nuzzle
: : > them gently.
: : >
: : >
: : >
: : >
: : > Other cool sites to visit:
: : > --------------------------
: : >
: : > Joker, We Have Found Your Money
: : > http://www.adreporting.com/dir.php?p=25&a=149783
: : >
: : >
: : > Find FREE Things On The Bargain Finder
: : > http://www.adreporting.com/bargain-finder.htm
: : >
: : >
: : > Free Antenna Reception Booster with every order!
: : > http://www.adreporting.com/dir.php?p=26&a=149783
: : >
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`????
: : >
: : > MeMail.com: Delivering The Internet Your Way!
: : >
: : > SUBSCRIBE mailto:[EMAIL PROTECTED]
: : > UNSUBSCRIBE MAILTO: [EMAIL PROTECTED]
: : >
: : > Advertising Information: http://www.MeMail.com/advertising.html
: : >
: : > This copy was delivered to: [EMAIL PROTECTED]
: : >
: : >
: : > ???`????,??,????`???????`????,??,????`???????`????,??,????`????
: : >
: : > The Famous Joke of the Day One Liner!
: : >
: : > "The good people sleep much better at night than the bad people.
: : > Of course, the bad people enjoy the waking hours much more."
: : >
: : > -- Woody Allen
: : >
: : >
: : > %
: : >
: : > So.. The good news is that it didnt loose any of the message that was
: : > required, and it did add the % fine (a few extra return characters..
: : > but thats no problem...) the first qualifier needs to be a bit more
: : > refined though,
: : > so... this is a bit more complicated than a grep! If you can explain
: : > what its doing, that could be helpfull to me and others that want to
: : > write simular programs :)
: : > I can kinda figure out parts of it...
: : >
: : > Jamie
: : > Ill try to make some mods to and see what I can do...
: : >
: : > 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
: :
: : _______________________________________________
: : 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
