| |
| |
| |
|
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
Comments:
<0> ah, nic.
<0> nice.
<1> well gonna doze off
<0> You can replace all of your unique retry labels with a while (1) {} loop and next/last. 'die' with no arguments at all is distressing. You can use 'my $f' as a filehandle argument to open(), instead of (amusingly) MYHANDLE;
<2> hehe
<0> you can blindly unlike a file instead of testing for its existence only to then sic UNIX rm(1) on it.
<2> That is amusingly!
<0> unlink
<0> You can provide a long list of arguments to a single print -- and just use printf, instead of multiple, very similar prints
<3> there are many things you can do
<0> You can say $dbh and $dbh->disconnect instead of your bizarre ?: use.
<3> most of which are legal
<3> you can give up your right to remain silent
<3> in which case anything you say can and will be used against you in a court of law
<0> you can embed $ENV{STY} into strings, rather than ''.concatenate.'' strings on either side.
<1> yeah ...
<2> merlyn: Really? I've never heard of that before!
<1> my perlese isn't too good.
<0> You can probably extract all of this $@-handling and retrying logic into a single subroutine.
<3> you can envision yourself as president of a third-world country, making a deal with the president of the united states
<0> dogmeat - it's OK.
<1> hehe
<3> you can pretend you're married to ... morgan fairchild, yeah, that's the ticket... morgan fairchild.
<3> you can attempt to remove the letter J from the english language.
<3> you can head south by turning north and walking backwards
<4> after os update, there's restart dialog, can i force quite the Software Update? don't want to restart now and don't want accidentally hit it.
<0> xahlee - yes, you can.
<3> you should really restart now
<1> merlyn: yes, those pursuits aren't too interesting to me, only improving my perl code. and i can see that im a long way off from your level.
<4> ayrnieu: thx
<3> you can read Perl Best Practices as if Damian himself is talking to you in an australian accent.
<3> ditto Object Oriented Perl
<5> I love reading :)
<1> merlyn: if i had more time to read you books thoroughly i would be in good shape, but my boss is riding me asking, "how close are you to being done yet?" etc etc
<0> you can use the $main::VERSION you provide at the beginning of your program instead of repeating its value throughout your program.
<2> merlyn: You know I actually do read PBP with an australian accent
<2> merlyn: It makes it even better!
<3> heh!
<0> revdiablo - o/~ lucky o/~
<3> you can spin PBP counterclockwise as if it was being flushed down a toilet in the southern hemisphere
<2> "Use inside out objects, mate"
<3> "but back in me day, we called 'em lightweight objects"
<0> you can realize that the 'counterclockwise toilet' thing is nonsense, and that the forces that affect hurricanes aren't strong enough to counter the way an object injects water into a tube.
<1> ayrnieu: i didnt repeat $main::VERSION's value anywhere else in the program
<3> you can realize that messing with someone else's punchline violates the comedian code.
<3> you can... always wear sunscreen
<0> dogmeat - you frequently say 'brilliant shopper bot v0.5' in your program. ... oh, sorry. You say that, without the 'v'.
<3> you can add "paula is brilliant" to your code (dailywtf reference)
<0> and just once again :-)
<1> oops that is true.
<0> you can test DEBUG once, and not over again in succession.
<3> you can measure once, and cut twice.
<0> you can determine if the memory problem is in your code or in your interaction with your DB.
<3> you can spare the rod, and spoil the child.
<0> and if you determine that your code is at fault, you can localize your persistent data structures for easier monitoring.
<3> you can buy a vowel, guess the puzzle, or spin
<1> ayrnieu: ah well the DEBUG statements were when i wanted to fine tune, and raise, lower the numbers to get more or less debug prints
<1> this was a demo of "how fast can you write crappy perl code" and still get some kind of result.
<0> You can compare and contrast perl -le 'my $mon; (undef,undef,undef,undef,$mon) = localtime(time); print $mon' and perl -le 'my $mon = (localtime(time))[4]; print $mon'
<6> amnesiac++
<7> What kind of idiot karmas himself? Your kind of idiot!
<6> :>
<0> dogmeat - I understand. I've definitely done the same thing :-)
<1> hehe
<0> but a problem with such code is that it's more frustrating to debug. It may also do you good to stop every once in a while and rewriting parts of it more cleanly.
<3> you can pick your friends, and you can pick your seat, but you can't pick your friend's seat.
<0> but for your current problem, you should first find the error. Can you even say that your perl process itself explodes, and not your database?
<0> sometimes, you can pick your friend's seat.
<5> Man I'm so happy right now.
<0> happiness happens.
<5> :)
<3> xahlee will continue to add underscores until the End Of Time. :)
<0> you can make use of the lower-precedence 'or' operator, rather than ||
<8> not if the ircd has anything to say about it!
<0> /\s*\$\s*((\d(\,\d{3})?)*(\.\d{2})?)/
<1> ayrnieu: i can only tell that memory goes to zero, and mysql error log indicates it cannot malloc, then it drags along the bottom with zero memory and my perl script trying to reconnect every minute or so. after i kill the perl script, i see the memory gets freed up.
<1> note i run 200 of the same code at the same time.
<0> dogmeat - so you can blame your Perl. Did you try cfedde's suggestion about Devel:: modules that help with memory leaks?
<0> curiously, why 200 at the same time?
<9> merlyn: colloquy added it
<1> ayrnieu: ah, i am only taking notes at this point. its nearly 11pm now.
<9> i'm watching the underscore growth with amusement
<1> ayrnieu: i run 200 to make it process larger volume at the same time.
<0> dogmeat - you might try POE for that
<1> POE?
<0> poe.perl.org
<0> (you can use { return FALSE unless -e $img_file } instead of: if (!(-e $img_file)) { return FALSE; } )
<1> interesting
<10> greetings....
<1> ayrnieu: ok, that would be better perl
<10> http://pastebin.com/647399
<11> The paste 647399 has been moved to http://erxz.com/pb/938
<10> tis script not func.
<10> i not see the video
<10> the windows is black
<10> *window1
<0> $conv_img_file .= '.0' if -e "$conv_img_file.0"; # compensate for bug in convert util
<10> i have read the doc of Gtk2-Ex-MPlayerEmbed
<10> but this not does it.
<1> ok
<12> Where do I put my .pm files? I seem to have 5 different locations /usr/lib/perl5/{5.8.6,5.8.7,5.8.8,site_perl,vendor_perl}
<13> ~/yourbutt
<12> Is there a permanent location that will not change when I upgrade perl?
<2> Only 5?
<2> $ perl -le 'print for @INC' | wc -l
<2> 18
<2> I guess perl -le 'print scalar @INC' would have worked too
<12> revdiablo: So any directory is fine?
<2> AI_coder: I usually don't put them in any directory myself, I let my operating system do it for me (except my own modules, which I put in my home directory)
<2> I have ~/lib in @INC
<14> also using something like Module::Starter gives you a framework that puts everything in the right place when you run make install.
<12> revdiablo: How do you edit @INC?
<8> hrm
<12> I would like to add .perl-pms in my home directory.
<8> can't tell if both cores are being detected
<15> AI_coder: set the environment variable PERL5INC
<15> details in 'perldoc perlrun', I think
<11> The perldoc for perlrun - Perl execution and options is at http://perldoc.perl.org/perlrun.html
<16> using CPAN....to install you just do install whateveryouwanttoinstall; right ???
<8> without the ;
<16> okay...i dont get why this isnt working
<16> install MIME-Base64
<8> it's MIME::Base64
<16> good point :)
<6> TEH Khisanth
<8> yo
<8> having 3 mouse around is making using a computer VERY difficult
<6> 3 mice?
<8> 3 mouse + a touchpad :P
<6> crazy
<8> and 3 keyboards
<16> whats the best method for searching for CPAN modules?? example im trying to install libnet but i guess i have the wrong name for the package.
<8> I need to spawn tentacles or something
<8> just install any of the modules in there and it will install everything
<16> okay wtf. is the name of the libnet package? i can't track it down.
<17> BullWeivel: Libnet?
<8> install Bundle::Libnet
<16> nope... didnt work either.
<8> actually just install Net::FTP
<16> that didnt work either.
<17> What is libnet anyway
<16> http://search.cpan.org/~gbarr/libnet/
<16> bunch of modules...such as Net::FTP
<17> Interesting
<8> didn't work is a useless reply
<16> install Bundle::MailTools
<18> if I wanted to track what text strings I have worked with to check and make sure to not work with the same string again.. what is the fastest way I could do this?
<18> just push the strings to an array? .. but I am looking for the _fastest_ ...
<19> daMaestro: well.. that would all depend on where they are coming from, what you are doing with them, and what they are
<18> I need to be able to say... "add this string to the checklist" and check for items in the 'checklist'
<19> daMaestro: probably a hash.. use the strings as keys.. use exists to check for them
Return to
#perl
or
Go to some related
logs:
File does not exist: /usr/htdocs
Client does not support authentication protocol requested by server; 5.0.18
*thl* file extension
xmmms para linux suse
Bad protocol version identification pscp
i868 gcc
#oe
#linux
#lisp
#python
|
|