#perl
01 January 2008
Total 32 pages. You are browsing page 4/32.
First :: Prev :: [...] [2] [3] [4] [5] [6] [...] :: Next :: Last
03:39 <****> (Abcdefg|bcdefg|cdefg|defg|efg|fg|g) === g.
03:46 <****> HELP HELP HELP IT IS IN MY PANS
03:46 <****> PANTS, even
03:50 <****> happy new year (depending on where you are)!
03:50 <****> if I've got a reference to an array that contains a bunch of array references that each contain one item, what's the "easiest" way to get a simple array of those single items?
03:51 <****> iank, eye! 2 hours and 10 minutes left :) what are you up to?
03:51 <****> this structure was returned by fetchall_arrayref()
03:51 <****> eval: $x = [ [1], [2], [3] ]; @a = map { @$_ } @$x; \@a
03:51 <****> jettero: [1,2,3]
03:52 <****> mmm, that's a handy bot
03:52 <****> indeed
03:52 <****> I might have to incorporate that into by bot
03:52 <****> he's already perl :P
03:52 <****> I'd love to hack your bot some time
03:52 <****> where is it?
03:52 <****> although, I'd probably just shell out to prevent tampering with the internal state
03:53 <****> jettero: it's "gibot". he's on a bunch of #gentoo-* channels and also responds to /query
03:53 <****> got bored one day and started writing him
03:53 <****> it evaluates perl expressions though?
03:53 <****> no, not yet
03:53 <****> that's pretty dangerous unless you're a buu level expert on the subject
03:54 <****> I believe the source is available though
03:54 <****> yes, I know it's dangerous :P
03:54 <****> but I could always do it in a restricted env via a shelled-out perl
03:54 <****> and restrict the use of it to certain "trusted" channels :)
03:54 <****> that's not going to be very efficient compared to what buu did
03:54 <****> no, probably not
03:54 <****> but still handy :P
03:55 <****> but if buu's source is around somewhere, I'd definitely like to take a look
03:55 <****> it's out there... you can find it
03:55 <****> buubot: source
03:55 <****> tybalt89: source is svn co svn://erxz.com/bb2/trunk
03:56 <****> that's handy :P
03:56 <****> btw, is there an IRC module that sucks less than Net::IRC
03:57 <****> because Net::IRC sucks goat nuts
03:57 <****> I've never been able to implement an auto-reconnect with it
03:59 <****> agaffney, Net::IRC is deprecated
03:59 <****> perlbot, Net::IRC
03:59 <****> Net::IRC is deprecated, undocumented, unloved and completely superceded by POE::Component::IRC
03:59 <****> well, I wrote gibot over 2 years ago :P
04:02 <****> he could probably use a bit of an overhaul
04:02 <****> I never did finish the code to change which modules were active for which channels from IRC
04:02 <****> I've just been lazy and go and modify the sqlite db :P
04:04 <****> eval: $x = [42]; @$x
04:04 <****> agaffney: 1
04:05 <****> hmm, that's what I thought would happen
04:05 <****> how does that map work then?
04:06 <****> eval: $x = [ [3], [2], [1] ]; @a = map { @$_ } @$x; \@a
04:06 <****> agaffney: [3,2,1]
04:07 <****> just checking :P
04:10 <****> map returns the result of the specified operation for each element in the specified array, right?
04:15 * CPAN upload: Perl6-Doc-0.33_3 by LICHTKIND
04:19 <****> how does what map work then?
04:23 <****> please help
04:23 <****> i read on file
04:23 <****> line per line
04:23 <****> but .. i tru concat string .. :( .. and enter is joined in concat
04:23 <****> how i remove enter caracter from string ?
04:24 <****> chomp($string)
04:24 <****> anno- happy new yeah for you and thanks
04:24 <****> in brazil the time is 01:24 of 01/01/2008
04:24 <****> :P
04:24 <****> no problem
04:27 <****> eval: localtime
04:27 <****> tybalt89: Tue Jan 1 03:27:27 2008
04:32 <****> ooh .. one problem
04:32 <****> =|
04:32 <****> i send request to one site
04:33 <****> but this web site .. is infinite loading
04:33 <****> how i set Http Request time out ?
04:35 <****> MasterDevil`punh, http://search.cpan.org/~gaas/libwww-perl-5.808/lwptut.pod look up by timeout
04:37 <****> thanks
04:52 <****> New Years for Redditors summed up in 5 lines on IRC (bash.org) http://www.bash.org/?833499 (check it out #perl)
04:58 <****> hahaha. nice bash.
05:12 <****> hi yall, how would u go about writing if file does not exist? is it: if !(-e file.txt)
05:13 <****> Foxhacker: USe the 'create' option.
05:14 <****> doesn't opening a nonexistant file for write create it by default?
05:14 <****> if ( ! -e $file_name)
05:15 <****> hmm that may be it
05:15 <****> f00li5h: i thought so too
05:15 <****> why do you care?
05:15 <****> it won't create directories though
05:15 <****> but if i use the command
05:15 <****> you may want File::Path
05:16 <****> $file.txt")
05:16 <****> it doesn't auto create the file if it doesn't exist
05:16 <****> you're appendign?
05:16 <****> yea
05:16 <****> autocreates.
05:16 <****> something else is wrong
05:17 <****>', $file or die ..."
05:17 <****> $filename") or die "Couldn't open file for writing: \n";
05:17 <****> i use that but it doesn't create a file
05:17 <****> Lies.
05:17 <****> it just dies
05:18 <****> What was the error message?
05:18 <****> include $! in the error message
05:18 <****> "f00li5h" at 58.107.101.28 pasted "sure it does" (5 lines, 231B) at http://sial.org/pbot/29523
05:18 <****> then you'll know why
05:20 <****> hmmm
Total 32 pages. You are browsing page 4/32.
First :: Prev :: [...] [2] [3] [4] [5] [6] [...] :: Next :: Last