Re: Discount Cigarettes (fwd)
On Fri, Oct 04, 2002 at 07:27:42AM -0400, Chris Devers wrote: > That fits the profile I saw. Have you tried bouncing it to Spamcop.net? > Set up a Spamcop account & they'll track down the headers, find all the > ISPs, and allow you to send a complaint to all the relevant abuse@... > addresses. I'm not yet convinced that it actually helps, but... I like to think that by doing my bit to fill the disk quota and cause expense for the ISP paying someone for the thankless task of reading abuse@... , then it is helping encourage the ISPs to try to recover cost from spammers (or limit the ability of spammers to send stuff) Even if all the ISP does is pull the plug, without extracting direct money, it makes spam more costly for spammers to send, and ultimately spam is only going to go away if it stops being cost effective as an advertising medium. (and we'll be left with some fly-by night spammers, but mostly targeted e-mail) Nicholas Clark -- Even better than the real thing:http://nms-cgi.sourceforge.net/
Re: Regex question
On Fri, Oct 04, 2002 at 04:01:05PM +0100, Nick Cleaton wrote: > I would use something like: > >s#^[> ]+##mg; FWIW, you might like to also wipe it through Text::Autoformat::autoformat({all => 1}) Other common quote characters include : | * and those five line paragraph quotes MS products create. Removing these would require some messy logic or slurping your message whole (local $/;) into a string and using a regex like: s/^-+Original Message-+\nFrom: .*?\nSent: .*?\nTo: .*?\nSubject: .*?//mi Paul -- Paul Makepeace ... http://paulm.com/ "If cheese were less stinky, then I wouldn't complain." -- http://paulm.com/toys/surrealism/
Re: Regex question
nemesis wrote: > foreach my $line (@body) { > $_ = $line; > s/^(?:>|\s)*(.*)$/$1/g; > print; > } Thanks for the suggested improvements. It would have helped if @body wasn't 1 element in size and that element contained the whole of the text :-) Oh, and thanks for the phone support Dean. Will
Re: Regex question
> foreach my $line (@body) { > $_ = $line; > s/^(?:>|\s)*(.*)$/$1/g; > print; > } > > Any ideas what I am doing wrong here[3] Works from here. Also you'll probably want to localise $_ and forget about re-appending the rest of the message e.g s{ ^ (?: \s* >? \s* )* }()x Which just strips off the offending characters. Dan->nick() eq 'broquaint'
Re: Regex question
On Fri, Oct 04, 2002 at 03:59:10PM +0100, nemesis wrote: > >Hi all, > >I have a bunch of jokes that people have forwarded me over the years[1] and >they all have really bad formatting [2]. I am lazy and want to do as much >formatting of the jokes as I can automatically. I have tried this piece of >code to get rid of any '>' or whitespace charachters before the 'beginning' >of each line of the text, but it just returns the same text as before: > >foreach my $line (@body) { > $_ = $line; > s/^(?:>|\s)*(.*)$/$1/g; > print; >} > >Any ideas what I am doing wrong here[3] This is rather more complex than it needs to be. Why not: foreach (@body) { # it goes into $_ automatically s/^(>\s*)+//; print; } ? (It works on your example.) Or even s/^[>\s]+//; (as Nick's pointed out while I was writing this)? The short answer is that it's not your regex that's wrong, it's messing about with $_. Roger
Re: Regex question
On Fri, Oct 04, 2002 at 03:59:10PM +0100, nemesis wrote: > > Hi all, > > I have a bunch of jokes that people have forwarded me over the years[1] and they > all have really bad formatting [2]. I am lazy and want to do as much formatting > of the jokes as I can automatically. I have tried this piece of code to get rid > of any '>' or whitespace charachters before the 'beginning' of each line of the > text, but it just returns the same text as before: > > foreach my $line (@body) { > $_ = $line; > s/^(?:>|\s)*(.*)$/$1/g; > print; > } I would use something like: s#^[> ]+##mg; -- Nick
Regex question
Hi all, I have a bunch of jokes that people have forwarded me over the years[1] and they all have really bad formatting [2]. I am lazy and want to do as much formatting of the jokes as I can automatically. I have tried this piece of code to get rid of any '>' or whitespace charachters before the 'beginning' of each line of the text, but it just returns the same text as before: foreach my $line (@body) { $_ = $line; s/^(?:>|\s)*(.*)$/$1/g; print; } Any ideas what I am doing wrong here[3] TIA Will. [1] If anyone else has any I would be very grateful if they would forward them to me as I have started an archive. [2] An example taken from one of the emails: > > Q: Why aren't the England football team allowed to own a dog? > > A: Because they can't hold on to a lead. > > > > Q: What's the difference between the England team and a tea-bag? > > A: The tea-bag stays in the cup longer. > > > > Q: What's the difference between a packet of sellotape > and Phil Neville. > > A: One's a glueless kit. > > > > Oxo were going to bring out a Euro 2000 commemorative cube > painted red, > white > > and blue in honour of the > > England squad. But it was a laughing stock and crumbled in the box. [3] I bet you do :-)
Alex Gough (Quidity) in London next week
Alex Gough (Quidity on IRC) is coming to London next week and demands to have some fun. We are going to the pub on Tuesday evening; the Wenlock Arms near Old Street. I would guess at least one of us would be there by 6:30pm. http://grault.net/cgi-bin/grubstreet.pl?Wenlock_Arms,_N1_7TA http://www.streetmap.co.uk/streetmap.dll?P2M?P=N17TA&Z=1 We are probably also going to the Croydon real ale festival on Thursday evening. The plan is to get there for around 7pm. (The following URL doesn't like some browsers but it works in lynx.) http://www.camra.org.uk/SHWebClass.ASP?WCI=ShowDoc&DocID=2148 Lunchtime fun is also required, but not yet organised, due to not knowing the details of lunch hours yet. Kake -- http://www.earth.li/~kake/cookery/ - vegan recipes, now with new search feature http://grault.net/grubstreet/ - the open-source guide to London http://www.penseroso.com/ - websites for the fine art and antique trade
Re: Books left at the pub last night
On Fri, Oct 04, 2002 at 01:49:17PM +0100, Kate L Pugh wrote: > Someone left a couple of S. M. Stirling books in the pub last night. > If they're yours, let me know and we can work out how to get them back > to you. I also have a book for rataxis that he told Alex he would > turn up and collect for review. eep! I had the impression that Alex was a bit sceptical about giving me a book to review if I hadn't anything to show for myself... alex: sorry. kake: I'll grab you on irc... /joel
Books left at the pub last night
Someone left a couple of S. M. Stirling books in the pub last night. If they're yours, let me know and we can work out how to get them back to you. I also have a book for rataxis that he told Alex he would turn up and collect for review. Kake -- http://www.earth.li/~kake/cookery/ - vegan recipes, now with new search feature http://grault.net/grubstreet/ - the open-source guide to London http://www.penseroso.com/ - websites for the fine art and antique trade
Re: Greece ban electronic games
On Fri, Oct 04, 2002 at 10:00:04AM +0100, alex wrote: > indeed (unfortunate but accurate stereotypes of chainsmoking greeks > aside). I thought you'd given up. -- Lusercop.net - LARTing Lusers everywhere since 2002
Re: Discount Cigarettes (fwd)
On Fri, 4 Oct 2002, Nicholas Clark wrote: > I've had 3 as "cheap fags" and 1 as "Discount cigarettes". 3 to the same > address, 1 to a mailing list I'm on. They are all from a machine with a > HELO of linux.local in a netblock that whois says is bt.es IIRC > [EMAIL PROTECTED] doesn't exist, and [EMAIL PROTECTED] sinks my mail with no > response. That fits the profile I saw. Have you tried bouncing it to Spamcop.net? Set up a Spamcop account & they'll track down the headers, find all the ISPs, and allow you to send a complaint to all the relevant abuse@... addresses. I'm not yet convinced that it actually helps, but... -- Chris Devers[EMAIL PROTECTED] Where's SANDY DUNCAN?
Camel Poo Blinkenlights
http://www.blinkenlights.de/gallery/camel.en.html A
Re: Greece ban electronic games
At 09:26 04/10/02, Andy Wardley wrote: >The Greeks quite rightly interpret this as: > >* there could be someone around the next corner who I might have > an accident with so I'll give a little bib anyway. They do this in Cyprus too even though there is no law to demand it. (Cyprus is not under the same legal jurisdiction as Greece - if anything they will treat British case law as precedent) Taxi drivers also assume that no one wants to walk any distance and hoot at you to try and persuade you to use their cab. Really irritating if all you want to do is to walk five minutes down the road. PS I think there was some report that this law was chucked out... Hhm how do I make this on topic.. can't. Alex Openweb Analysts Ltd, London. Software For Complex Websites http://www.OWAL.co.uk/ Open Source Software Companies please register here http://www.OWAL.co.uk/oss_support/
Re: Greece ban electronic games
indeed (unfortunate but accurate stereotypes of chainsmoking greeks aside). i read recently that a test case involving an internet cafe owner had been dismissed by the case, referring to the law as unconstitutional - so, as i had predicted this will all quietly go away, and the relevant greek legislators have been sorely embarassed. alex On Fri, 4 Oct 2002, Andy Wardley wrote: > This has absolutely nothing to do with Perl, whatsoever. Turn away > now if you're the on-topic (or Greek) police. > > A long time ago in a thread not far away, Rob Thompson wrote: > > Discuss: [Greece banning video games to prevent gambling] > > I was in Corfu recently and found that they were still selling > plenty of video games in shops, airports, etc. Even gambling > games like handheld blackjack, etc. > > I guess this law is a little like their law stating that it is illegal > to sound your vehicle horn unless failure to do so would result in an > accident. > > The Greeks quite rightly interpret this as: > >* there could be someone around the next corner who I might have > an accident with so I'll give a little bib anyway. > >* there are some people walking in the street ahead who I might > crash into (if I were to suddenly veer off the road towards them), > so I'll give a little bib anyway. > >* hey, there's my friend George, he would be mortified if I didn't > acknowledge his presence in some way, but to wave at him would > require me to take my other hand away from my moped handlebars > (the first hand is smoking a cigarette), seriously increasing > the likelihood of having an accident, so I'll give a little bib > anyway. > > I think it's safe to say that the Greeks have a healthy disrespect for > trivial laws and treat them with the contempt they deserve. > > Bib, bib. > > A > > > -- __ alex nunes | t 020 7603 5723 | check us out on the web director | f 020 7603 2504 | at http://www.codix.net codix.net | 107 shepherd's bush road, london, w6 7lp
Re: Discount Cigarettes (fwd)
On Thu, Oct 03, 2002 at 10:05:57PM +0100, Earle Martin wrote: > On Thu, Oct 03, 2002 at 05:45:12PM -0400, Chris Devers wrote: > > > Anyone else received one of these ? > > > > Variations of it, yeah -- ${rand}@smoking.com.cn sent me > > two or three mails in the past few days, to this address. > > I just got one to my (void) address. I've had 3 as "cheap fags" and 1 as "Discount cigarettes". 3 to the same address, 1 to a mailing list I'm on. They are all from a machine with a HELO of linux.local in a netblock that whois says is bt.es IIRC [EMAIL PROTECTED] doesn't exist, and [EMAIL PROTECTED] sinks my mail with no response. Nicholas Clark
Re: Greece ban electronic games
This has absolutely nothing to do with Perl, whatsoever. Turn away now if you're the on-topic (or Greek) police. A long time ago in a thread not far away, Rob Thompson wrote: > Discuss: [Greece banning video games to prevent gambling] I was in Corfu recently and found that they were still selling plenty of video games in shops, airports, etc. Even gambling games like handheld blackjack, etc. I guess this law is a little like their law stating that it is illegal to sound your vehicle horn unless failure to do so would result in an accident. The Greeks quite rightly interpret this as: * there could be someone around the next corner who I might have an accident with so I'll give a little bib anyway. * there are some people walking in the street ahead who I might crash into (if I were to suddenly veer off the road towards them), so I'll give a little bib anyway. * hey, there's my friend George, he would be mortified if I didn't acknowledge his presence in some way, but to wave at him would require me to take my other hand away from my moped handlebars (the first hand is smoking a cigarette), seriously increasing the likelihood of having an accident, so I'll give a little bib anyway. I think it's safe to say that the Greeks have a healthy disrespect for trivial laws and treat them with the contempt they deserve. Bib, bib. A
Re: Mail::Audit and fetchmail
On Thu, Oct 03, 2002 at 05:49:29PM +0100, Simon Batistoni wrote: > It's an appropriate freudian slip, given that you were fiddling > with mail configs at the time... Oh, don't be so harsh, mail configs are easy. :-) | $ wc -l /etc/exim/configure4 | 582 /etc/exim/configure4 And yes, I wrote large amounts of that by hand... -- Lusercop.net - LARTing Lusers everywhere since 2002