| |
| |
| |
|
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 29 30 31 32 33 34 35 36 37
Comments:
<0> that's just about as hard <0> and a helluva lot easier on the system. <1> eval: ref qr/foo/ <2> yea, i'm reading the perldoc on it now <3> cfedde: Regexp <1> that behavior is not documented in perlfunc? <4> rutski89, do you want to grab a webpage from "toshiba"? <2> Chris62vw: nope, just flood it with more data it can process or fill up the logs <4> use LWP::Simple; my $file = get "http://toshiba"; should be that easy <5> use Socket; socket(my $fh, AF_INET, SOCK_STREAM, scalar getprotobyname('tcp')) && connect($fh, scalar gethostbyname('toshiba')); <2> Chris62vw: i know <6> How many people here use the timed bake on their ovens alot? <2> simcop2387: you mean the timer? <2> simcop2387: that shuts the oven off after X minutes are up? <7> simcop2387: I use the clean feature when I don't feel like cleaning the turkey myself. <4> simcop2387, I haven't ever used my oven
<8> how do I strip a prefix from a number? for example, I have a hexdec number that begins 0x, 0X, x or X...how do i strip that bit off and just leave the number? <9> pearl ****s. <6> rutski89: that'd be it <9> Chris, you're a baking noob? :[ <4> s/^0?[xX]?// <4> Daveman, no. I'm just rich enough to dine fine every night, outside my home <9> simcop, never <10> s/(.*)[^\d]// <4> oh god no <9> Chris, loser. <2> simcop2387: yes, I love that feature :-) I'd burn pretty much everything that goes in there if it didn't shut itself off. I'm very absentminded. <4> first, no anchor. second, .* is just horrid <10> Awww. <10> I forgot ^. <4> and we have \D !!! :-) <10> Oops. <9> :p <4> mine is far superior </smug> <9> heehee, riczho :) <8> riczho: that won't work, as a hexdec number is not \d <6> rutski89: same here, i use it for everything i can <4> eval: $_ = "0x123"; s/^0?[xX]?//; $_ <3> Chris62vw: 123 <4> $$$$$$$$$$$$$$$$$ <2> simcop2387::D <2> simcop2387: i mean, :D <9> :D <11> mangle: superior manhood solution <3> top dog majority expounding <11> mangle: superior manhood solution <3> doyenne doughtiness light <8> Chris62vw: $_=~s/^0?[Xx]//; <11> mangle: superior manhood solution <3> hoity-toity adulthood fusing <4> StevenR, use my regex. you forgot a piece <4> if the X is always going to be there, I guess your version is fine <12> go go gadget jew! <8> Chris62vw: the x defines it as hex <7> Is there a list of GumbyBRAIN's best quotes somewhere? I just need about 3. <4> StevenR, right :-) <4> dabreegster, let's make some <8> Chris62vw: I'm writing a simple programmer's cheat calculator...feed it a number, it decides what sort it is, and prints the 4 possible based numbers. <7> GumbyBRAIN: You're a monster in my roguelike! <13> In all the humps. You'll see its a monster. <4> StevenR, oh. well there's already a perldoc on that... gee, what's it called... <11> mangle: love shack <3> inamorato tollhouse <11> mangle: love shack <3> inclination outbuilding <11> mangle: love shack <3> **** caboose <7> Good one. GumbyBRAIN, I need 2 more quotes so I can have you randomly say them. Then my demo will be ready to play! <11> O.o <8> Chris62vw: not a cheat sheet, just a calculator <4> StevenR, read perldoc -q "is a number" <11> O.o <11> mangle: love shack <3> desiderate cot <11> mangle: love shack <3> derive pleasure from bum
<4> you will be pleasantly surprised with the regexes. maybe <11> OK, this is... hrm. <9> o.O <8> Chris62vw: http://rafb.net/paste/results/xETNhj46.html it's work in progress, but it's shaping up ok <3> The paste xETNhj46 has been copied to http://erxz.com/pb/2058 <4> StevenR, cool so far <8> Chris62vw: I if it's not a number, then it's a string and it aborts. it's not going to extract numbers, simply sulk if it's not a number :) <0> has anyone dealt with hashes with a million keys? <0> s/anyone/$& here/ <8> Chris62vw: term ansicolor will make it pretty, eventually :) <12> once or twice <14> I think I may have made a few. <7> GumbyBRAIN: Do you have enough memory to deal with a million keys? <13> No big deal to say i have. <11> mangle: love shack <11> buu: buubot has... ceased. <15> is there anyway to have a perl var with a variable name? a la php? <11> eval: 1 <0> Just trying to answer $client's question about the O(n-mumble) questions <0> sparkman - yes but you don't want to do that <0> you want to use references instead <15> i know i don't <15> heh. <15> perldoc perlref? i take it? <9> one meeeeeeeeeeeeeeeeeeeelleon dollars <8> Chris62vw: I wanted to do the last if($base..blah with unless, but I couldn't make it work :( <11> USE A HASH SON <9> merlyn, yes <9> it breaks <9> and is reaaaaaaaaaaally slow <16> MY HASH CAN BEAT UP YOUR HASH <9> can be, anyway <9> I got ten bucks on Botje <9> :) <8> Botje: but would your hash p*** a drug screen afterwards? <3> be pleased with hovel <3> Type 'perldoc perlref' in your shell or go to http://perldoc.perl.org/perlref.html <3> Yaakov: 1 <11> Yay! <11> mangle: love shack <3> potency traveler <11> mangle: love shack <10> mangle: The Declaration of Independence <8> riczho: you've broken it! <10> Oh suuuuure, blame the last user! <11> It's totally lagified. <3> peaceableness hut <3> The proclamation of free will <14> merlyn: Only big catch with big hashes, beyond running out of memory, etc. is that you can do much better if you hint the size of the hash in advance (keys(%hash) = N) to avoid reallocations. <7> Yes! My project is finally ready! <0> ahh ok <0> thanks <10> "The proclamation of free will" ?!?! what a ripoff! <2> merlyn: if I did perl -MIO::Socket::INET -le 'while(1) { my $s = IO::Socket::INET->new("yourserver:80"); $s->print("a"); }' from multiple computers... would that kill one of your openbsd servers? <2> merlyn: I'm curious about what I should do to prevent a DOS like that. <17> Dispatch IT Ninjas. <2> it m***ively fills up the logs and causes the cpu usage go go up by ~30% <2> DrForr_: hehe <17> Not if I blackhole your IP at the router. <17> And *then* dispatch the ninja. <2> DrForr_: what if it's already too late when you notice? <2> hehe <11> rutski89: It is never too late for revenge. <17> It's the ninja's problem. No blood on *my* hands. <6> GumbyBRAIN: Hawaii Five-O <13> O/~ 200 boomers, butt naked boomers o/o. <2> Yaakov: lol, yea <6> what is a boomer? <11> It might be Aussie slang for a roo,. <11> roo. <7> simcop2387: I'm finished with 1.0 of my game! I'm gonna release it to the newsgroup once I can get some people to playtest it. <18> old people
Return to
#perl or Go to some related
logs:
niggercum
gnash fc5 x64 #lisp #php #python gentoo epiphany sandbox access violation pilot-mailsync binary windows Symbolics keymap date_default_timezone_set safe mode #perl
|
|