| |
| |
| |
|
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 33
Comments:
<0> 100 lines long, and it ran the first time
<1> wow
<1> in what language?
<0> 80 of those line were comments saying "god I hope this works" :)
<1> lol
<0> BASIC
<0> with variable names matching [A-Z][012]?
<0> for a grand total of 208 variables. :)
<0> Oh I mean 104
<0> and A$-Z$ for 26 strings
<0> oddly enough - my first *paid* program six years later was on a system that ran only a slightly imrpoved version of that
<0> but I was making $30/hr in 1976
<2> and in 1946 you were making $300.00
<3> and now it's rewritten in three lines of perl, right?
<4> "locsmif" at 208.66.194.6 pasted "example of using require" (10 lines, 153B) at http://sial.org/pbot/17900
<0> it'd be about 10 lines of Perl, if I recall.
<5> nerdzyboy, ^^
<2> and those 10 lines would gross you a whopping $.05
<0> "enter 1 to add, 2 to subtract, 3 to multiply, 4 to divide"
<0> "enter your two numbers"
<0> "the answer is X"
<1> locsmif, thanks
<0> but again nerdzyboy - don't export/import data. export/import behaviors
<1> what do you mean by that? (I won't be exporting anyway)
<5> nerdzyboy, does it still fail?
<1> it works
<5> good
<1> I add the variables define like "my $var = value"...
<1> just had to remove the "my"
<0> my makes them local to the file, yes
<1> I learned something :D
<0> beware though... if you define $x = 3; require "otherfile"
<0> and otherfile sets $x to 4, you get one result
<1> $x=4
<0> but if you swap those statements around, it reverses.
<1> yeah
<0> thus the location of such a require is dangerous
<0> and since a require will execute at most once...
<0> require ... $x = 3... require
<0> will set it to 3, not 4
<1> The file is gonna be used to store p***words... (don't really know if it is safe but anyway, I don't need huge security)
<0> why don't you have a security module then
<0> call it to perform the task, not just to hand you a p***word
<1> because I'm a n00b?
<5> nerdzyboy, what are you setting up?
<1> a simple p***word protected web page
<0> or a web page. :)
<0> why do you have any p***words yourself
<5> nerdzyboy, apache can do that as well though?
<0> just use basicauth
<1> I know
<5> nerdzyboy, or you didn't want that
<5> ok ic
<1> but I wana learn perl/cgi
<0> then read the llama
<5> nerdzyboy, well make sure you use some cpan modules then
<0> plenty of worthwhile projects in there
<0> and the alapca followon
<5> CGI::Simple is one
<0> and you'll learn the proper way to use require/use
<1> I use CGI::Cookie already
<1> for the cookies
<0> drawing close to the end of the day marking the 20th anniversary of my company
<6> ok, back to my issue about counting "active sessions" on my site. If on the first visit, I ***ign a session cookie and put that id into a table, and every page that the user visits I refresh the timestamp for that session in the database. Then I could say, if age > 30 mins, then ***ume session is closed, but if age > 8 hours (or whatever) then remove session from table. Only count sessions that are < 30 mins old. Would that work?
<0> You mean count all people of have had at least one hit in the past 30 minutes?
<0> that's gonna be a strong overcount
<5> nerdzyboy, perhaps you can avoid storing the p***words as plain text
<0> how long is a typical "intereaction"?
<5> as well as move them out of the server root and subdirectories
<0> perlmonks uses 3 minutes, and it still shows a lot of idlers
<0> Wyleyrabbit ?
<1> The p***word file won't be accessible...
<1> it will be outside my httproot
<5> nerdzyboy, ok
<5> nerdzyboy, have a look at perldoc -f crypt
<7> crypt. To access this perldoc please type, at a command line, 'perldoc -f crypt'. You may also find it at http://perldoc.perl.org/functions/crypt.html
<5> for reference
<1> What is it?
<5> nerdzyboy, it could help you avoid storing p***words in plaintext easily
<0> it's a hospital, but that's not important right now!
<5> nerdzyboy, however, make up your own mind :)
<5> gtg for now :)
<1> I'll take a look
<1> thanks
<5> np
<8> is POE a copy of tcl?
<0> Not at all
<8> "event loop"
<0> TCL isn't an "event loop"
<0> TCL is a command shell
<8> it waits
<8> then does stuff
<0> Chuck Norris waits. :)
<8> in an "event driven" way
<8> lol
<0> maybe you are talking abotu Tk?
<0> Tk != TCL
<9> That's like saying that perl is a copy of basic because they both are turing complete...
<0> TK has an event loop, yes
<0> because it's a gui
<0> guis need event loops
<0> curses.pm has an event loop
<0> POE's event loop can interact with the event loops of Tk and Curses
<9> From the perldoc... "POE is a framework for cooperative, event driven multitasking in Perl. Other languages have similar frameworks. Python has Twisted. TCL has "the event loop"."
<0> it means TCL/Tk
<0> TCL by itself doesn't have any event loop taht I recall
<9> I wouldn't know, I just remembered since i was reading that documentation just a short time ago.
<0> well - I'm telling you what it should say
<0> if it says that good, if it doesn't that's a bug. :)
<9> It says what I quoted. So I guess it's a bug :-p
<0> go tell #poe on magnet. :)
<9> I suppose I shall.
<0> but what's yoru real question?
<9> Mine?
<0> why do you care if it's like TCL or not?
<0> Oh sorry
<0> it was plugge1
<0> plugge1 ?
<9> Yeah
<0> two nicks both starting with p
<0> imagine that!
<9> Who would have thought? And with only a few hundred people in the room!
<9> Clearly our alphabet needs more letters.
<0> this is "the birthday paradox" in action!
<10> Wow I've just been reading about round the world cruises
<10> 108 days on the QE2. Wow.
<10> I could see myself going on 1 per year. :)
<0> that'd burn the rest of any wallet
<10> Any idea how much? I couldn't get a price without filling out forms
<10> I'd guess -k?
<0> I see \243
<0> are you sending utf8?
<10> Imagine 1st cl*** on the QE2. I think the veriyon cabin or something. There's only 32 of them
<0> or is my client screwed up again?
<0> mse
<10> Ah. UK pound sign
<10> $50-$150k. :)
<0> did that come through as mo/o/se ?
<10> No
<0> damn emacs
<10> m(weird A), (Weird A),se
<0> or your end
<8> hmmmm
<10> i'm just using mirc
<0> mse
<0> better?
Return to
#perl
or
Go to some related
logs:
suse 10.1 gstreamer mkv
iptables xenbr0
#perl
nested treeview
installing gnopernicus on ubuntu
#debian
#perl
#php
#python
sarge promise tx4
|
|