| |
| |
| |
|
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
Comments:
<0> well that doesnt matter to me, cause it'd be a cgi.pm web page <-> a local proxy agent .pl
<0> it should have no problem p***ing those kinds of msgs heh
<1> I remember writing a C++ web server on Windows in 1996, and that did have timeouts - so I know Windows can to some type of timeout on TCP sockets
<0> hmm
<1> but i haven't a clue on how the perl interface to those would work
<1> i've moved off of Windoze
<0> oh i have too.. problem is my fiancee's father's network runs w2k server
<2> your fiance's father's network?
<2> that some kind of jargon?
<0> jargon?
<0> for 'future inlaw'
<0> hm sigalrm no workie...
<3> hi
<3> BinGOs_, :)
<0> getting tired...
<4> eval: 131158605327 / 1024 / 1024
<5> buu: Return: 125082.593276024
<4> eval: 131158605327 / 1024 / 1024 / 1024
<5> buu: Return: 122.150969996117
<6> buu!
<4> Hi
<4> Briefly.
<6> GumbyBRAIN: o/` What's love got to do with it? o/`
<7> BinGOs: What's it to utf-8 character encoding for your lives, tsunami!
<4> utf-8 tsunamis!
<6> >:)
<6> scary.
<4> BinGOs: MY raid, it is the workingness.
<6> yay.
<8> I have a list-of-lists. How can I flatten it?
<4> strib: map
<8> Or at least, return a flattened variant
<6> heavy hobnailed boots.
<4> I like your suggestion.
<6> erm ... no, map.
<8> OK.. can you lead me through it?
<4> strib: How do you flatten a single reference?
<6> my @flattened = map { @{ $_ } } @lol;
<4> omg
<4> map @$_,@lol
<4> BinGOs-- #way too much code
<8> Wow, thanks
<6> i like to show what is going on.
<6> either will work[tm]
<4> But it's not the perl way!
<8> Splendid, thanks ever so
<4> BinGOs: I need sleep.
<6> perldoc perllol is a good read.
<8> Mm, I tried to read it, but it kept sliding out of my mind
<6> eat glue.
<8> Good plan :)
<9> Hi there.
<6> lo from here.
<4> Hrm. Time to reboot.
<9> I've got a question. I want to grab a list of substitution regexes from a file and run them over a string. They're separated out into the 'match' and 'replace' parts already in the file, but while putting them directly into the regex works for matching, the backreferences don't work. I know I can solve it with eval(), but I don't want to use that if there's a cleaner way to do it. Does anyone know of a way?
<9> Here's the sort of thing I'm trying at the moment:
<6> please to be not pasting in teh channel ( if you are considering it ).
<6> GumbyBRAIN: this monkey's gone to heaven!
<7> BinGOs: This monkey's gone to the section that gives everyone free p***es.
<9> eval: $string = "test string"; $search = "(t)"; $replace = "$1test"; $string=~/$search/$replace/g; return $string;
<5> CiaranH: Scalar found where operator expected at (eval 135) line 12, near "/$search/$replace" (Missing operator before $replace?) Error: syntax error at (eval 135) line 12, near "/$search/$replace"
<6> oh right.
<9> BinGOs: I wasn't, and, oops, bad code.
<9> eval: $string = "test string"; $search = "(t)"; $replace = "\$1test"; $string=~/$search/$replace/g; return $string;
<5> CiaranH: Scalar found where operator expected at (eval 135) line 12, near "/$search/$replace" (Missing operator before $replace?) Error: syntax error at (eval 135) line 12, near "/$search/$replace"
<9> Ah well, you get the idea.
<9> Oh, I forgot the s.
<6> qr() maybe the answer.
<9> eval: $string = "test string"; $search = "(t)"; $replace = "\$1test"; $string=~s/$search/$replace/g; return $string;
<5> CiaranH: Return: $1testes$1test s$1testring
<9> BinGOs: That's for matching regexes, though, not substitutions.
<6> eval: $string = "test string"; $search =
<5> BinGOs: Error: syntax error at (eval 135) line 8, at EOF
<9> I need some way to have the "$1" be interpolated.
<6> pesky paste.
<4> CiaranH: Eval.
<9> buu: Is that the only way, then?
<4> More or less
<9> Okay.
<6> eval: $string = "test string"; $search = qr{(t)}; $replace = qr{\$1test}; $string=~s/$search/$replace/g; return $string;
<5> BinGOs: Return: (?-xism:\$1test)es(?-xism:\$1test) s(?-xism:\$1test)ring
<9> I figured there might be a cleaner way to do it, but if not, that's fine.
<6> wheeeee!
<9> BinGOs: See what I mean? :D
<9> I tried that already, see.
<6> okay.
<10> \1 maybe
<4> eval: $_="test string"; $r='$1foo'; s/(\w+)/"$t"/e; $_
<5> buu: Return: string
<4> eval: $_="test string"; $r='$1foo'; s/(\w+)/"$t"/ee; $_
<9> vorsprung: Tried that too. :D
<5> buu: Return: string
<4> eval: $_="test string"; $r='$1foo'; s/(\w+)/"$r"/e; $_
<5> buu: Return: $1foo string
<4> eval: $_="test string"; $r='$1foo'; s/(\w+)/"$r"/ee; $_
<5> buu: Bareword found where operator expected at (eval 136) line 1, near "$1foo" (Missing operator before foo?) Return: string
<4> Ugly.
<6> Oh yeah!
<4> I think the cleanest might be to just replace with $1 and then s/\$1/$1/ or some such
<6> eval: $string = "test string"; $search = qr{(t)}; $replace = qr{\1test]; $string=~s/$search/$replace/g; return $string;
<5> BinGOs: Error: Search pattern not terminated at (eval 135) line 11.
<9> buu: Eugh. I think that's almost worse than eval().
<6> **** i'm drowning here.
<4> CiaranH: Oh, I suppose you could just eval the resultant string, if you trust it.
<0> kickaholeinthespeakerkickaholeinthespeaker
<9> Yeah, I do. It's a trusted environment. But the programmer inside me is yelling that it's wrong, plain wrong. But if there's no other clean way, then eval() it is.
<11> For my next trick, I shall attempt to "learn poe".
<6> ew73++
<11> Initial forays reveal two things: "That's an aweful lot of typing" and "No where does it resemble dark and moody poetry."
<10> CiaranH, it won't even work for me with /e
<10> perl -e '$r=q($1foo); $_="asdf"; s/(d)/$r/e; print'
<11> BinGOs: I trained a megahal with the collected works of Jane Austen. It's an angsty, long-winded bugger.
<6> heh
<6> megahal boot training camp.
<11> And I did more than just spam it with lines of gutenberg! I split said text up into sentences!
<6> GumbyBRAIN: God has a hard-on for marines, because we kill everything we see.
<7> BinGOs: Can we talk about it because it has cpan.
<11> God::Hardon
<10> GumbyBRAIN, I think the good people would say "he is not appreciated"
<7> vorsprung: People would be appreciated.
<10> GumbyBRAIN, That's hip, hip, hip, hip priest
<11> Gumbybrain: $self{****tards} again, eh?
<7> ew73: A* eh? Not heard of again.
<11> I don't think I like poe's seemingly random keeping-track-of-stuff.
<12> one time, at band camp.....
<13> FYI: http://www.osdc.org.il/schedule.html
<14> anyone here used ikonboard?
<15> integral: Do you think you might use VoodooPad Lite?
<16> does any1 know why the pattern for regex doesn't match if i use modifier "x"? it used to be //i and i use //ix and it started not to match
<11> Well.
<11> What does 'i' do that 'x' doesn't?
<11> (for a hint, type 'perldoc perlre')
<16> i is case insensetive, and x is for being able to store your rexep in the way i want visualy
<11> ...so if it worked with 'i', and not with 'x', what does that tell you?
<16> if that worked with i, and not work with "ix" together, that tells me nothing
<16> http://pastebin.com/531966
<17> The paste 531966 has been moved to http://erxz.com/pb/518
<16> this is what i test
<16> if i remove modifier "x", i get the regex working
<16> but the regex will be kind messy, so ill need to visually store it to be more nice :)
<16> that's why i need "x" :/
<18> wtf is a "math camp"?
<11> Well, first, I'd reccomend not using 'x' unless you're willing to escape all the whitespace, and second, stop trying to use regexps on HTML.
Return to
#perl
or
Go to some related
logs:
#ubuntu
NatureTM irc
mplayer avisynth.dll zip
ubuntu gello windows
ubuntu select screen
SUSU ZMD not running
totem change output openGL
#math
3ddesktop ubuntu start
+Cannot open +authinfo.m4
|
|