| |
| |
| |
|
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 29 30 31 32
Comments:
<0> so to what do I pipe it to get ***emby code?
<1> ./gen.pl
<2> jt_:what will be the second new name??
<1> then fasm.pl to ***emble, and ./run.pl to execute
<3> whatever you want it to be within the zip file
<0> that works
<2> ok,lemme try
<0> and opt.pl made it shorter as well
<3> you could use File::Basename to strip the path
<1> b_jonas: I wrote this whole suite to play with peephole optimizations
<0> uh huh, it's removed some store/load pairs
<1> plus it's neat to write an ***embler in 20 lines, and simulate a while machine in 16 :)
<1> s/while/whole/
<2> jt_:thx a lot, it worked
<3> no prob
<0> oh, I wrote a (turing-complete) machine simulator in less lines :)
<0> gotit: http://www.perlmonks.com/?node_id=483243
<0> it's 2 lines if you pull the neccessary parts together
<0> half a line before the bytecode and one and a half lines after it
<0> and I wrote an ***embler for that too (which I didn't release as it would make the obfu easier to solve)
<0> but no compiler
<1> b_jonas: re: pattern matching ? is that the right page?
<0> yes
<0> the number array is the code it runs
<0> and the 'use integer; for(my@a=(' .. 'unpack"U*",`cat part3.txt`.v0); $a[1];){$a[2]=-(($a[$a[$a[1]++]]-=$a[$a[$a[1]++]])<0);$a[3]&&print chr$a[4]}' is all the interpreter
<0> you need to read the parent node http://www.perlmonks.com/?node_id=471508 to get the example input part3.txt though
<0> or to find out what it does
<4> $a[$a[$a[1]]]++
<0> no, it's not that, it's just $a[$a[$a[1]++]]
<0> from which you can guess what $a[1] is
<4> ah, misread
<0> does this thing have an if statement?
<1> no, extensions are left as an exercise for the student. /me ducks
<1> b_jonas: there is a version with ?: and functions that I did for sili, it's at
<0> maybe I should upload my unfinished interpreters somewhere too. I have one in perl and two in c++
<0> they all have some strange features
<0> yes I definitely should do that
<1> http://home.pacbell.net/rklement/sili.tgz has ?: and subs with named parameters.
<5> what interpreters?
<0> the toy interpreters I wrote
<1> though it does not generate asm code for them
<6> GumbyBRAIN: interpret this, bitch!
<7> Is this the way to align the second one is too specific. Haskell libraries cover all your bitch?
<0> the c++ ones for courses
<0> the perl one for my own fun
<8> print "Hi\n";
<9> eval: print "Hi\n";
<10> Supaplex: Hi Return: 1
<11> does anyone here interface with the stock market by chance?
<8> hehe
<12> eval: fork while 1
<10> Killing 451 due to run time
<9> buubot: source
<10> Supaplex: svn co svn://erxz.com/eb
<0> oh, now it knows about its source, nice
<6> GumbyBRAIN: source
<7> Perl source code are such wonderful variables as "luke" and "chewy.
<13> i'm so hangry..
<13> going to buy something to eat
<0> ok, I've uploaded one of my silly c++ interpreters
<0> to http://www.math.bme.hu/~ambrus/pu/geo-snapshot.tgz
<0> now let's see the other one
<6> GumbyBRAIN: goodnight, my sweet
<7> Sweet sound of the my ( $self, @args ) = @_; even if nothing is happening.
<14> nice one
<14> GumbyBRAIN: %foo
<7> I can't keep count because of my mates are sort of thing happens with @foo = bless.
<15> anyone know of a good, threaded port forwarder server?
<1> what language is this? Ha ujfajta term. szimbolumot talalsz ki, rakd hozza a skipsimple-hoz is!
<15> like, if i wanted to send 8000 people to port 22 on this box for forwarding elsewhere...
<0> hungarian
<15> i would guess that 8000 threads would be handled better than 8000 forks
<0> I don't have documentation for it, but I can answer questions
<15> cuz, you know, with 8000 forks you'd need 8000 knives, 8000 spoons...
<15> and don't get me started on dessert spoons...
<9> yes, there is no spoon.
<0> here's the other: http://www.math.bme.hu/~ambrus/pu/scan-snapshot.tgz
<0> that one has hungarian docs (sort of) and a few examples in the scan.cc file
<14> doug: linux :)
<15> um
<15> how so?
<14> doug; linux makes an excellent router...
<15> well, i need port forwarding in particular for persisant tcp connecionts
<15> just just bouncing the odd packet
<15> er, "not just"
<14> doug: http://www.tldp.org/HOWTO/IP-Masquerade-HOWTO/forwarders.html ... see ya in ##linux :)
<16> shift8's url is at http://xrl.us/mseg
<15> i really need to run a port forwarding service
<14> what des that mean?
<15> huh. is there someting special about ## irc channels?
<15> shift8: like, i'd like to efficiently support many hundreds or thousands of SSH sessions
<17> it's a freenode policy
<15> does ## stand for something?
<17> official channels (those claimed by legal entities) get #foo
<17> unofficial channels get ##foo
<17> we should be ##perl too, but it has yet to happen :)
<15> hm.
<15> botje: are you sure you don't have that backward?
<17> nope
<17> i'm right :P
<15> so '#perl' would(/should) be official?
<15> while ##linux is not?
<14> doug: you really want router-level port forwarding, which you can do w/ a linux box w/ 2 eth devs.
<18> can i use image::grab and image::magick together
<17> yes ..
<17> shift8: you can do it with one and some creative addressing :)
<15> shift8: the idea is to host a web page link to a SSH java client...
<17> java gets executed browser-side
<15> the web page takes a hostname, then sets up a forwarded port from the Linux host to that hostname
<15> right
<15> the java client then SSH's to the web host, but the actual session is established with a remote host.
<15> by way of port forwarding.
<14> interesting...
<15> what would totally rock is something like this:
<19> 42
<15> listen to a port, get the connection, maintain it forwarded to a specific host...
<15> once the first connection comes in, do not accept any further connections.
<15> cycle to the next port.
<19> what next port?
<15> maybe a better question is: what's a thread-safe way for tcp port forwarding in perl?
<15> well, i was thinking it would start witha port number...
<15> like "port 1000 forward to hosta.company.com port 22"
<15> then "port 1001 forward to hostb.company.com port 22"
<0> doug: a select loop?
<15> as people request the forwarding service.
<15> b_jonas: you mean single-process monolithic service?
<15> select loop and a hash of connections...
<17> doug: the POE cookbook lists a TCP port forwarder
<15> mmm, poe
<15> guess this would be a good excuse for me to finally get POEing
<0> yes, something like that
<0> or you could use Coro which is better than threads for this (but you can't combine it with threads)
<0> (or ruby threads)
<15> hm, got "/TCP Port Redirection"
<15> also "/TCP Port Redirection With Components"
<0> I have a tcp forwarder program in C though it can only forward a single connection
<0> I can upload its code if you want to see it
<20> Whew. Dinner is ready.
<17> yay!
<17> I hope it's scrumptilicious!
<21> I straced my apache running mod_perl and I noticed it keeps opening /dev/urandom on every reuqest. any idea on hwo to track down which code/perl module is doing that?
<20> I would happily have you all over here for a nice meal.
<17> why are you concerned about that?
<20> If it were possible.
<20> When I say all, I mean, of course, #perl Core.
<22> Hey all
<22> Do you support perl on macs here?
<17> only if said macs support perl :P
<22> They do :P
Return to
#perl
or
Go to some related
logs:
triplah
usbdisk ubuntu free space
ubuntu undelete
#php
oracle datex date
Forth in LISP
#linux
raid*noautodetect debian
sp_executesql chain
vasistha's cave
|
|