#perl
14 October 2007
Total 42 pages. You are browsing page 3/42.
First :: Prev :: [1] [2] [3] [4] [5] [...] :: Next :: Last
01:31 <****> Ok, I don't see why my code recurses. The doc mentions that you can use warn with tied STDERR and it will disable the tie during the call but nothing about STDOUT tieing. In fact, if I use `warn` instead of `print` inside my PRINT{} method I see the output when only STDOUT is tied.
01:31 * Zoffix makes a paste
01:34 <****> "Zoffix" at 99.227.133.207 pasted "Deep recursion on subroutine "KidPrints::PRINT" at KidPrints.pm line 10." (36 lines, 570B) at http://sial.org/pbot/28039
01:34 <****> Is using `warn` instead of `print` inside my ::PRINT{} the only way to get around this?
01:34 <****> And I don't understand why example has $$r++ in the code. $r is the reference to the object, why is it incremented?
01:35 <****> Zoffix: Keep a reference to an untie'd STDOUT around.
01:35 <****> Zoffix: E.g. by opening a dup.
01:37 * Zoffix tries
01:38 <****> heh that is what I was referring to by doing something stupid :P
01:38 <****> hrm
01:42 <****> Hi all, can someone tell me what I need to put in this regexp: m:\b ([0-9]{8}) \b:gx to match exactly this: http://rafb.net/p/gd8zUJ37.html
01:42 <****> i am trying to match lines with 6 sets of 8-digits
01:43 <****> and only those.
01:43 * CPAN upload: Locale-Maketext-Utils-v0.0.8 by DMUEY
01:43 * CPAN upload: Convert-CharMap-0.10 by AUDREYT
01:43 <****> fahrenhyt, what for?
01:45 <****> well, i'll need to split them and put them in an @. problem now is, i am getting a lot of other matching gunk from the log files. i've tried m:[ \b ([0-9]{8}) \b ]{6}: too.
01:45 <****> doesnt seem to work
01:45 <****> (?:\d{8}(?: | $)){6}
01:46 <****> s/^/^/
01:46 <****> lol. ok, Khisanth i get the msg :)
01:46 <****> eval: $_="00000586 00000000 00000446 00000118 00000029 00000007\n00000016 00000000 00000000 00000000 00000003 00000000"; push @out, [ /\s(\d{8})/g ] for split /\n/; \@out
01:46 <****> Zoffix: [['00000000','00000446','00000118','00000029','00000007'],['00000000','00000000','00000000','00000003','00000000']]
01:46 <****> fahrenhyt,
01:47 <****> oops misplaced space
01:47 <****> I think I screwed my regex too :) but HEY, it works on THAT data :)
01:47 <****> /^(?:\d{8}(?: |$)){6}/
01:47 <****> I miscounted the spaces between numbers
01:48 <****> Zoffix: well that would be a problem if there are also lines that look like those with addional stuff infront/behind
01:49 <****> true
01:49 <****> Khisanth: am afraid i'll have to read up a bit more on regexp to understand ur solution. thanks.
01:49 <****>
01:51 <****> well, my kid prints semi-work with `warn` instead of `print` and it's duplicated for any STDOUT prints...
01:51 <****> it's just ^ $ anchors and the (?:) non-capturing groups
01:51 <****> meh :/ good enough for now.
01:52 <****> Zoffix: http://sial.org/pbot/28040
01:52 <****> fahrenhyt: why is it you are using a regex anyway?
01:52 <****> because everything looks like a hammer
01:53 <****> s/hammer/nail/g
01:53 <****> well, the log file's got a lot of gobblygook. so just need to extract only these lines. i've not pasted the whole file. and Khisanth was spot on about how there are lines with additional stuff apart from the 6 sets of 8-digits
01:54 <****>{handle}} ?
01:54 <****> ..the outer ones.
01:54 <****> Zoffix: because without them, it won't work :)
01:55 <****> and that is a great reason to have them there!
01:55 <****>:)
01:55 <****> Zoffix: unless it's just a $plain $scalar you have to do that
01:55 <****>{handle} is neither.
01:55 <****> $imple $calar? :)
01:55 <****> I see, thanks, Khisanth++
01:58 * CPAN upload: Win32-Hardlink-0.10 by AUDREYT
02:00 * Zoffix leaves for a movie + home-cooked breaded chicken legs
02:01 <****> fat abuse!!!
02:01 <****> chicken isn't high fat.
02:01 <****> ...not unless you eat 3 pounds of _just_ chicken.
02:01 <****>:P
02:02 * Zoffix checks the actual weight
02:02 <****> 1.29400 kilograms / 2.85278167 pounds of oven baked chicken :)
02:06 <****> that's what, 16% fat? A nice serving of duck fat runs 99.8%
02:06 <****> 0,o
02:11 <****> i was thinkin fish
02:12 <****> thrig: 99.8% .. fat?
02:12 * CPAN upload: Locale-Maketext-Fuzzy-0.10 by AUDREYT
02:12 <****> cod and salmon run 20-22%. duck 28% in the usual Chinese or French preperation
02:13 <****> http://www.nal.usda.gov/fnic/foodcomp/search/index.html
02:13 <****> so how come we never see homer eating ducks? i m sure he'd love it
02:14 <****> http://www.amazon.com/Rendered-Duck-Fat-From-France/dp/B000LR4I0A
02:14 <****> thrig's url is at http://xrl.us/7dak
02:15 <****> (The Chinese and French being the only folks who cook duck properly.)
02:16 <****> Everyone else has them flying around half dead. Sick!
02:17 <****> hrm roast duck
02:17 <****> Which is more fatty? An overfed american liver or force fed goose/duck liver?
02:18 <****> I suppose I should be glad no one answered that.
02:19 <****> worried about cannibals?
02:19 <****> hi
02:20 <****> Khisanth: only the ones that pretend to be average/normal people in non-cannibalistic society
02:24 <****> can anyone tell me a reason why i can't find perl books/howtos/tutorials mentioning a continue block after a for (;;) statement? doesn't it work because there would be a conflict between the order of (;;foo) and continue{bar}? or is the {} after for (;;) just not a real block so continue can't be attached?
02:25 <****> i was using 'for (;;) {}' as an infinite loop and thought it would be nice to have an continue block
02:28 * CPAN upload: Parse-Marpa-0.001_013 by JKEGL
02:28 <****> i find it kinda disturbing that most of the testing libs for perl assume its a TAP-based process
02:28 <****> Yeah.. disturbing..
02:29 <****> it's not?
02:29 <****> NOT AS DISTURBING AS ME
02:29 <****> YAAKOV YOU ARE MERELY DISTURBED.
02:29 <****> jdv79, Something wrong with TAP?
02:30 <****> er, why is that disturbing? the test suite for perl assumes it's going to be run by its own testing scripts..
02:30 <****> falcon78: continue works fine with a for loop
02:30 <****> I use Net::OSCAR. It does not send messages where user is offline. What to do?
02:31 <****> Bzek: Try not sending messages where the user is offline.
02:31 <****> buu: Nice. :)
02:31 <****> Or send via another method: Jabber, MSN, Yahoo!, IRC, email, [...]
02:31 <****> what if i want the functionality without the TAPness
02:32 <****> .)
02:32 <****> falcon78: that would be extremely easy to test and much faster than looking through books/howtos/tutorials
02:32 <****> and wtf would a perl howto be about?
02:32 <****> jdv79: What.. functionality?
02:32 <****> Dude, like, how to write CIG with pearl! (sic)
02:33 <****> jdv79: The entire point of the suite is to read TAP stuff.
02:33 <****> no, the entire point of the simple ones is
02:33 <****> the more interesting Test:: modules have much functionality that has nothing to do with TAP
02:34 <****> just a thought i've been having lately
Total 42 pages. You are browsing page 3/42.
First :: Prev :: [1] [2] [3] [4] [5] [...] :: Next :: Last