| |
| |
| |
|
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
Comments:
<0> buu: What in Devel::Profile are you suggesting I use?
<1> You just use it
<1> perl -d:Profile myfoo.pl
<0> buu: I'm having difficulty because I don't have that installed, so I can't see what you're saying is as precise as CPU cycles/operations performed.
<0> buu: But I need something that I can use IN a script as well.
<2> so use Benchmark
<2> which *IS* core
<0> I don't mind installing something else, I just don't have it to know what buu is talking about.
<3> i have a question, as i know there's a tool which lets you install modules instead download it and the uncompress and install, does exists this tool which download and configures a module ?
<2> your english very broken is
<2> answer is CPAN
<2> perlbot life with CPAN > xcoyote
<4> is it possible to compare two arrays ? such as if (@mystuffs == @myothersuffs) ?
<2> we discussed that to great lenghts only day before yesterday :(
<5> ubuh-huntuh, what are you comparing for
<4> i'm making sure they store the exact same things and in the same order
<4> either that or loop
<4> just wondering if i could "cheat" by just comparing two arrays
<5> Botje, what is the best: $somevar = $#array; for (0..$#array) { if ("$array[$somevar]" eq "$array2[$somevar]") { $somevar++; next; } else { print "Does not computer\n"; }}
<2> nope
<2> you can serialize them first and compare those
<4> okay
<2> Alchemy: why the explicit next?
<5> Botje, otherwise it would print 'does not computer' every time which was meant to be'computer'
<5> err 'compute' even
<6> Dumper(@a1) eq Dumper(@a2) <-- hideous
<2> Alchemy: only one branch of the if gets executed at every iteration.
<2> pravus: that's what i suggested
<5> Botje, i have some code to go optimize..
<2> and got shot down for it =[
<6> Botje: yes, i know :)
<2> Alchemy: the next isn't needed ..
<2> at least not in this example
<5> Botje, i have always done that forsome reason... looks like i can optimize quite a bit of my code=
<5> Botje, anyway besides the next, would that be a good way to compare 2 variables?
<5> I mean actualyl a good one would be if (md5("@array") eq md5("@array2"))
<5> i think
<7> That's ridiculous.
<2> ubuh-huntuh: my $l = @one == @two ? @one : return; while ($l--) { $one[$l] == $two[$l] || $one[$l] cmp $two[$l] || return } return 1 }
<2> would be my guess
<5> why? its precise :)
<2> errr
<7> There's nothing that (md5("@array1) eq md5("@array2")) does that ("@array1" eq "@array2") doesn't do more efficiently.
<2> feh, so it's not
<2> too tired
<7> It may be "precise", but it's also wrong some of the time.
<8> it's not even precise
<5> yrlnry, so the first way was better? :)
<7> I don't know what "precise" means in this context.
<7> I would have said that Booleans are always precise.
<2> Alchemy: ("foo", "bar") vs ("foo bar")
<7> WHat's the alternative? Aproximate?
<4> is there a way to find the total number of items in an array without doing a loop? like a built-in function?
<2> yours would make them both match
<2> yes
<5> yrlnry, $somevar = $#array; for (0..$#array) { if ("$array[$somevar]" eq "$array2[$somevar]") { $somevar++; } else { print "Does not computer\n"; }}
<2> and it's not a function.
<7> ubuh-huntuh: $N_items = @array;
<2> evaluate @array in scalar context
<4> damn complicated, this will take me an hour to grasp ;-)
<2> ubuh-huntuh: dont bother, mine is incorrect
<7> ubuh-huntuh: Or just if(@array > 6) { it has more than 6 items }
<2> and i cba to correct it
<4> lol ok
<7> Alchemy: No.
<5> yrlnry, why not?
<7> Alchemy: Because it's completely erroneous.
<7> Alchemy: This is not a subtle little thing.
<5> yrlnry, How its a direct comparison of each value ni the array
<7> No, it isn't.
<5> yrlnry, and why not
<7> What do you mean, "why not"?
<7> Did you even try it?
<5> yrlnry, never had to ompare two arrays
<5> compare*
<2> ubuh-huntuh: my $l = @one == @two ? @one : return; while ($l--) { $one[$l] == $two[$l] && $one[$l] eq $two[$l] or return } return 1 }
<2> this seems about right
<7> Well, what you wrote does not work at all.
<9> Isn't there a standard module for deep-comparing structures?
<9> Nested arrays/hashes/... ?
<7> Yes.
<2> there very probably is
<10> you could compare Storable's
<2> ubuh-huntuh: nope, doesn't work either. feh.
<1> Test::something
<10> well, no, because keys are...
<10> i don't know how it does it.
<10> nevermind.
<5> eval: @array = ("test","test"); @array2 = ("test","test"); $somevar = $#array; for (0..$#array) { if ("$array[$somevar]" eq "$array2[$somevar]") { $somevar++; next; } else { print "Does not compute\n"; }}
<11> Alchemy: Return:
<7> return 0 unless @a == @b; for my $i (0 .. $#a) { return 0 unless $a[$i] eq $b[$i] } return 1;
<5> eval: @array = ("test1","test"); @array2 = ("test","test"); $somevar = $#array; for (0..$#array) { if ("$array[$somevar]" eq "$array2[$somevar]") { $somevar++; next; } else { print "Does not compute\n"; }}
<11> Alchemy: Return:
<12> sili_: storable has a "canonicalize" option that's supposed to make things suitable for comparison iirc
<7> Alchemy: try it on (1, 2, 3) and ("foo", "bar", 3).
<2> If you set $Storable::canonical to some "TRUE" value, Storable will store hashes with the elements sorted by their key.
<12> sili_: though I suppose floating-point numbers are still a gotcha-point there
<1> Alchemy: You don't want $somevar, you want $_ inside the loop.
<10> floats are such lies.
<7> Floats ****.
<12> you can't count on two floats _ever_ being equal, so it's not a worthwhile gotcha ;)
<5> buu: ah. ty :)
<7> hobbs: that's not true. You can compare floats for equality if they represent rationals whose denominators are powers of 2.
<13> I like the Coach Z float.
<7> hobbs: In particular, you can compare them if they happen to represent integers.
<12> yrlnry: yeah yeah. Exaggeration is more fun.
<7> Hello, Yaakov.
<13> Hello, yrlnry.
<14> Uh oh, I am back
<14> Why wont this work:
<14> `./srcds_run -console -game gmod9 +ip`, $host, `-port 27015 +map gm_construct +maxplayers 10 +rcon_p***word tiger +hostname "Jesusaurus Rex's Build Only Server - Reloaded" -insecure
<14> `
<14> it wont make it all one string
<2> EXACTLY HOW IS THIS A PERL PROBLEM?
<2> since you don't ****ing know perl
<14> the perl syntax :(
<2> `` interpolate
<7> Jrex-Linux: use `./srcds_un -console ... $host -port 27015 ... `
<14> I look at http://docs.rinet.ru/P7/ch3.htm#CharacterStrings
<2> so you don't need to drop out of it ..
<2> NO
<2> NO!
<7> Jrex-Linux: That will make it all one string.
<2> read beginning perl.
<2> not that crap.
<14> :(
<14> now how do I run that as if it were a normal console cmd?
<14> in perl
<7> Jrex-Linux: use `./srcds_un -console ... $host -port 27015 ... `
<15> $, rawkz
<2> Supaplex: yes. yes it does.
<15> esp for perl -e stuff =)
<2> yes :)
<14> _un ?
<14> "There are two differences between double-quoted strings and single-quoted strings. The first difference is that scalar variables are replaced by their values in double-quoted strings but not in single-quoted strings."
<2> ' <= single quoted string
<7> Jrex-Linux: this isn't a single-quoted string. It's a backquoted string.
<2> ` <= totally different beast.
<15> also, ' ne "
<7> Variables are replaced in backquoted strings.
<14> and whats the _un?
<2> it's a typo .. GAH get over it
<14> oh
<14> sorry
<2> Supaplex: two ' do not make a
<2> Supaplex: two ' do not make a "
<16> Is there a function to cut an array that is "sssssssssssssssssssssssssssssssssssssssssssss" into maximum ten S's?
<12> Jrex-Linux: a typo. When you get on IRC you don't have to check your common sense at the door :)
<2> that's not an array, it's a string.
Return to
#perl
or
Go to some related
logs:
make link in ubuntu
fields in fstab
#web
#bash
haxs_alternate
ubuntu Computer Name dhcp router
ubuntu sign in as root
linux ip2200 deb
#lisp
tahoma word 97 viewer
|
|