| |
| |
| |
|
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> Use of uninitialized value in exists at Humans.pm line 146, <NAMES> line 264.
<0> mm
<1> well, no wonder I couldn't ssh into my box
<1> sshd isn't installed
<1> :(
<2> Elly: that'll do it to you...
<3> hrmm
<3> what could be wrong when sysread (on a socketpair) returns undef but $! is not set?!
<4> hi
<5> hi, what pm should i use for searching and fetching links from google ?
<6> have you searched for the google-api ?
<5> i found only Net::Google;
<6> i don't know it - but i think it uses soap - wich you can use.
<6> http://www.google.com/apis/
<5> yes thats the problem :)
<5> thx i look
<7> search for google in cpan, turns up like a ton of modules
<6> than you must crawl through the html-output from google with html-parser - THIS IS NOT FUN :-(
<5> is there maybe a better searchengine for this ?
<5> ascii google :)
<6> have you tried some of the packges from search.cpan.org ? looks promissing.
<5> no im testing now, i was thinking there is a perfect pm for my how somebody knows
<8> yahoo has a search API as well.
<9> http://www.perlmonks.org/?node_id=534538
<8> yahoo's been opening up quite a few APIs, and even providing some client-side code. smart of them.
<9> how does one ban member variables?
<4> why is chop $line; if ($line) different to if (chop $line) ?
<8> "ban"?
<9> public member variables that is
<8> "public"?
<8> you're using terms from other languages.
<8> how about saying it in Perl?
<8> what is it you don't want people to do?
<9> checken sie link
<8> and in general, the way to get people to stop doing something is you say "don't do this"
<8> Perl is an adult language.
<10> ror: check return value of chop() perldoc -f chop
<11> The perldoc for chop - is at http://perldoc.perl.org/functions/chop.html
<4> thanks tybalt89
<8> Oh - that's probably done with inside-out objects
<8> I wrote a magazine article on that
<8> google site:stonehenge.com inside-out
<8> with inside-out objects, the only access to instance variables are via methods
<9> that's what it looks like
<9> so many people making their own IOO implementation
<9> in your article, is there any (dis)advantage to not using refaddr/ident?
<8> what is "refaddr/ident"?
<3> hrmm
<3> shouldn't %hash return the number of mappings?
<3> sorry, i mean keys(%hash)
<9> refaddr is from Scalar::Util
<9> ident is from Cl***::Std::Util and is just an alias to Scalar::Util::refaddr
<3> hmm?
<9> eval: my(%foo)=(1,a,2,b);print keys(%foo);
<12> linuxnohow: 12Return: 1
<9> paq: TIAS
<13> paq: in a scalar context yes.
<9> eval: my(%foo)=(1,a,2,b);print scalar(keys(%foo));
<12> linuxnohow: 2Return: 1
<3> BinGOs, so if i say print "blah".keys(%hash)."\n"; <-- it should insert the count there shouldnt it?
<3> BinGOs, aaaaaaarrrgh
<3> i was editing the wrong file
<3> sorry everybody
<13> eval: my %foo = qw(1 a 2 b); print "blah" . keys %foo . "\n";
<12> BinGOs: Error: Type of arg 1 to keys must be hash (not concatenation (.) or string) at (eval 108) line 1, at EOF
<13> eval: my %foo = qw(1 a 2 b); print "blah" . keys( %foo ) . "\n";
<12> BinGOs: blah2 Return: 1
<14> GumbyBRAIN: people ****
<15> simcop2387: Why do they ****?
<8> the code I wrote for my article is probably not thread safe.
<9> probably not
<8> but I don't care because I don't use threads.
<14> merlyn: lets see it
<9> is it fork safe?
<8> there's no reason it won't be fork sfe.
<8> article is at google site:stonehenge.com inside-out
<16> GumbyBRAIN, they **** because they don't accept dan quayle as their lord and savior
<15> Shadda: Because you don't ****.
<9> i made my own little IOO schema using refaddr, one array for instance variables and a hash for instance variable names
<9> the array/hash combo made serialization and destruction a snap
<9> it was just too much writing...
<9> $ivars[refaddr $self]{$attr{some_ivar}}
<16> hum...anyone know a decent advertising company (for publishers), perhaps with good CPM?
<13> okay. if i have foo( \( @somearray ) ); is there a way of appending values to @somearray, apart from the obvious \@somearray ?
<13> i mean inside foo()
<9> foo( \(@somearray),\(@anotherarray) )
<9> doing '\(@somearray)' returns references to all of @somearray's values i believe
<13> yeah. i going to have preappend something to facilitate this.
<13> you confirmed my suspicions.
<17> why does the following give a warning( Use of uninitialized value in string eq at s.pl line 12. )??: http://pastebin.com/647904
<11> The paste 647904 has been moved to http://erxz.com/pb/942
<13> johnzorn: that is not the way to test whether something is defined or not.
<13> perldoc -f defined
<11> The perldoc for defined - is at http://perldoc.perl.org/functions/defined.html
<13> unless ( defined $MEDIADBDIR ) { # carp about it }
<18> I have two unsigned integers. I want to test if their sum overflows. How do I do this?
<17> oh ya unless, the NOTed if
<8> eval { use integer; $x + $y }
<8> that might trigger an overflow
<17> thanks BinGOs
<8> but not necessarily
<18> merlyn: yes, but how do I *test* for that overflow?
<8> if it traps, it'll be in $@
<8> but it may not... I don't recall
<18> bleh. This teaches me for asking C questions in #perl, eh?
<8> more or less. :)
<8> "doctor, it hurts when I do this!" "then STOP THAT"
<18> no trap (in perl).
<8> bleh. sorry./
<8> what you could do is add them, and check the result compared to MAXINT
<8> I think POSIX defines that
<14> eval: $a = 2**32-1; eval {use integer; $a+$a}; $@;
<12> simcop2387: Return:
<14> eval: $a = 2**32-1; eval {use integer; $a+$a}; $@; $a
<12> simcop2387: Return: 4294967295
<18> hmm, (0xffffffff - x + 1) < y => too big
<18> err, scrap the +1
<14> eval: $a = 2**32-1; $@; $a
<12> simcop2387: Return: 4294967295
<13> higher!
<14> eval: $a = 2**32-1; eval {use integer; $a=$a+$a}; print $@; $a
<12> simcop2387: Return: -2
<18> 'use integer' just gives you C semantics.
<19> Is there a command that will return the location of the current script?
<14> integral: i know, you wanted to check for that overflow though right?
<18> Nabiki: perldoc FindBin
<11> The perldoc for FindBin - is at http://perldoc.perl.org/FindBin.html
<19> Thanks!
<18> simcop2387: yeah. I think my inequality is the best way
<14> integral: actually from the way it seems to end up, you'll want to check if its < 0, not y
<18> pardon? this is a unsigned variable, it cannot be < 0
<14> integral: how do you mark something as unsigned with use integer?
<18> As I explained I'm demonstrating the standard practice of asking PCRE questions here... ;-)
<14> ah
<18> but that is a good question :-)
<14> integral: use integer could have something like, use integer; my $var :unsigned; maybe?
<14> it'd probably really hurt performance though
<18> perhaps, but currnetly 'use integer' doesn't affect *variables*, it changes the operators
<14> yea
<18> so: use integer 'unsigned' would make more sense currently
<14> probably
<14> but be ALOT more cumbersome to use
<14> yea
<14> anyway time to go change Elisabeth;s car battery
<20> Hi simcop2387, integral
<18> hello rindolf
<20> integral: what's up?
<20> integral: so, how's plan9?
<18> doing a wee bit of kernel tinkering atm to take my mind off maths :)
<20> integral: I see.
Return to
#perl
or
Go to some related
logs:
#perl
dell 820 ipw3945
freebsd enable /dev/lp0
#lgp
#lisp
seems to be moved loop gentoo libtool
practice-06.pdf
#perl
13346 UDF ubuntu fstab
sh3l1
|
|