 | | Re: Strip surplus white space with Perl
|
|
(...) I hate replying to myself, but I realize that I pasted the wrong answer into my initial response now, and totally missed the boat on my response to David. Ooops. :) This should do it: $string =~ s/(\t\t+| +|\r\r+|\n\n+|\f\f+)...&,1,1)/eg; Yes, (...) (24 years ago, 29-Oct-00, to lugnet.off-topic.geek)
|
| |
| | Re: Book recommendations?
|
|
I haven't read "Cryptonomicon", so I don't know what type of book it is. One book I loved though, was "Jurassic Park". It's better than the movie, it's bigger, and has a different ending. --Tobias (...) (24 years ago, 29-Oct-00, to lugnet.off-topic.geek)
|
| |
| | Re: GIF licensing
|
|
Um, well, I dunno if "GifBuilder" for Mac is a commercial program... But since I haven't done it myself, then I guess it's OK. BTW, how is Unisys going to track me down anyway? --Tobias (...) (24 years ago, 29-Oct-00, to lugnet.off-topic.geek, lugnet.publish)
|
| |
| | Re: Strip surplus white space with Perl
|
|
(...) Ahh, but what happens if you have a carriage return followed by a space? The second method eliminates the space and leaves the carriage return, which isn't what he asked for. He wanted a way to replace multiple instances of similar whitespace (...) (24 years ago, 29-Oct-00, to lugnet.off-topic.geek)
|
| |
| | Re: GIF licensing
|
|
(...) I don't think that's safe. Unisys' behavior on this point has been erratic. (24 years ago, 29-Oct-00, to lugnet.off-topic.geek, lugnet.publish)
|
| |
| | Re: GIF licensing
|
|
Hello, one additionally point: IMHO is the use of the GIF algorithms in non-commercial programs for free. -- Greetings, Carsten Schmitz "Kevin Loch" <kloch@opnsys.com> wrote in message news:G35CE8.Jwx@lugnet.com... (...) (24 years ago, 29-Oct-00, to lugnet.off-topic.geek, lugnet.publish)
|
| |
| | Re: Strip surplus white space with Perl
|
|
(...) First, if you want to trim any leading and trailing whitespace, this'll do it: $foo =~ s/^\s+//; $foo =~ s/\s+$//; Then, if you need to preserve the first whitespace character and throw out the rest: $foo =~ s/(\s)\s+/$1/g; Or, if spaces (...) (24 years ago, 29-Oct-00, to lugnet.off-topic.geek)
|
| |
| | Re: Goofy non-Lego request
|
|
Hi You could try: www.192.com - this is like directory enquiries (or if you can get to the UK operator, dial 192 for the phone directory enquiries. www.eyp.co.uk - if you know the company name Mike (...) (24 years ago, 29-Oct-00, to lugnet.loc.uk.en, lugnet.off-topic.geek)
|
| |
| | Re: Strip surplus white space with Perl
|
|
(...) Actually, I think a simpler way is: $string =~ s/(\s)\s+/$1/g; The 'g' option at the end of the regexp will actually just do the replace everywhere in the string that it can, with no real need to loop... Ain't TMTOWTDI great? :) DaveE (24 years ago, 29-Oct-00, to lugnet.off-topic.geek)
|
| |
| | Re: Strip surplus white space with Perl
|
|
(...) What about something like while ($string =~ s/(\s\s+)/substr($&,1,1)/e) {} ? That should replace all whitespace ([ \t\n\r\f]) that's repeated one or more times (that's the first part of the expression) with the first character matching in that (...) (24 years ago, 29-Oct-00, to lugnet.off-topic.geek)
|
