#perl
26 October 2007
Total 31 pages. You are browsing page 2/31.
First :: Prev :: [1] [2] [3] [4] [5] [...] :: Next :: Last
00:24 <****> nifty, http://search.cpan.org/~jmfreeman/Cellular-Automata-Wolfram-1.1/Wolfram.pm
00:24 <****> dkr's url is at http://xrl.us/7pft
00:24 <****> although the perldoc reads like an advertisement
00:24 <****> What other Term libraries can i use to collect responses for things like choices,menus, etc
00:26 <****> dsert: Win32::Console, Win32::Console::ANSI
00:27 * CPAN upload: POE-Component-PreforkDispatch-0.1 by EWATERS
00:27 <****> dsert: you could try POE::Component::PreforkDispatch too.
00:28 <****> that sounds interesting...not on search yet
00:30 <****> what should i put at the beginning for vanilla perl
00:31 <****> http://en.wikipedia.org/wiki/Image:Programming_language_textbooks.jpg
00:31 <****> programmer porn
00:31 <****> initself's url is at http://xrl.us/7pgm
00:31 <****> metbsd: #!perl
00:32 <****> but i need to add perl to windows path?
00:32 <****> metbsd: that'd be a good call
00:32 <****> but how do i run this?
00:32 <****> perl script.pl
00:34 <****> thanks
00:39 <****> hi there
00:39 <****> i've a question
00:39 <****> i'm trying to make a simple io::socket portscan for study purpose
00:40 <****> i would like that
00:40 <****> if the ip doesn't exist
00:40 <****> the program doesn't die
00:41 <****> Keynote: so don't die then :)
00:41 <****> if i don't die
00:41 <****> the script remains blocked
00:42 <****> show your code, use a paste bot
00:42 <****> wait
00:42 <****> Keynote: if you're going to be doing massive port scanning, POE might be better
00:44 <****> Keynote: http://poe.perl.org/?POE_Cookbook
00:44 <****> I'm guessing POE's going to be a little beyond him, but who knows
00:45 <****> http://sial.org/pbot/28252
00:45 <****> this is the code
00:46 <****> for example
00:46 <****> Keynote: you might try passing a Timeout to IO::Socket
00:47 <****> if my $target is 1.2.3.4
00:47 <****> it blocks
00:47 <****> mmm
00:48 <****> thanks
00:49 <****> with timeout it works
00:49 <****> see you
00:52 <****> that was strange
00:54 <****> GumbyBRAIN: TARGETED PROFILING will revolutionize THE output of DEBUGGERS everywhere
00:54 <****> Zoffix, i dont see how profiling would help detect a trend in the output.
00:56 <****> what's EOF in windows enviroment
00:56 <****> ctrl-d not work
00:57 <****> ctrl-z, I think
00:57 * CPAN upload: Net-Address-Ethernet-1.096 by MTHURN
00:57 <****> simple regexp question: I'm trying to do s/\./\n/g in vi, and it's replacing the .'s with ^@ instead of newlines. What am I doing wrong?
00:57 <****> Suggest asking in #vim rather than here
00:57 <****> try /r instead
00:57 <****> metbsd: try F6 also
00:57 <****> Not sure, how about you ask in #vim?
00:57 <****> Since this is #perl, and about perl...
00:58 <****> er \r
00:58 <****> someone is wandering around the internet putting up signs
00:58 <****> "If you have a regex problem, try #Perl."
00:58 <****> sparc: thanks
00:58 <****> "For non-perl related regex problems, try #perl".... yeah, what Somni said.
00:59 <****> at least it's not a php question
00:59 <****> won't werk?!
00:59 <****> Somni: I've seen it in other channels. I think #postgresql was the last one. "A regexp problem? Try #perl"
00:59 <****> Not sure if anybody just asked this, but why would the following line NOT work, whilst the line after DOES work:
00:59 <****> exists($myhash{$_})? ++($myhash{$_}):$myhash{$_}=1;
00:59 <****> exists($myhash{$_}) ? (++$myhash{$_}) : ($myhash{$_} = 1);
00:59 <****> deparse: exists($myhash{$_})? ++($myhash{$_}):$myhash{$_}=1;
01:00 <****> Somni: Error: Can't modify preincrement (++) in scalar assignment at (eval 238) line 1, at EOF
01:00 <****> exists($myhash{$_})? ++($myhash{$_}):$myhash{$_}=1; doesn't work
01:00 <****> not allowed to increment that key
01:00 <****> that value
01:00 <****> i mean
01:00 <****> w3: $myhash{$_}++
01:00 <****> w3: much simpler
01:01 <****> there's some precedence issue going on with the first line, I'm too tired to figure it out
01:01 <****> Somni, I agree, I didn't write the code
01:01 <****> w3: you don't need to check for key existence to increment it
01:01 <****> I helped solve the problem for metbsd, who wrote it; I'm just quite interested in why it was a problem in the first place
01:01 <****> ah
01:02 <****> actually it's me.
01:02 <****> oh, it's being evaluated as (exists ? ++$var : $var) = 1
01:02 <****> Aha, of course!
01:03 <****> How nasty :)
01:03 <****> what
01:03 <****> that's why you don't use ternary operator for anything but very simple default checks
01:03 <****> im not suppose to use () for exists?
01:03 <****> i mean $myhash
01:03 <****> perlnoob: uh, that is not what I said
01:03 <****> I forgot that ++ autovivifies too
01:04 <****> Hello everybody, could someone help me ?
01:04 <****> no, go away... unless you actually want to tell us what your trouble is
01:06 <****> perlnoob: ($hash{$key}||=0)++ ?
01:07 <****> eval: $var++; $var
01:07 <****> Somni: 1
01:08 <****> KyNDeR: I can hlpe u.
01:08 <****> I'm trying to do a script that needs to get some information into some log files but those files is into specific directory such as /log/testing/test/file.log, so into test I have a lot of other dicrectories
01:09 <****> sorrey, I mean into testing
01:09 <****> I already did something...
01:09 <****> wow
01:10 <****> #!/usr/bin/perl
Total 31 pages. You are browsing page 2/31.
First :: Prev :: [1] [2] [3] [4] [5] [...] :: Next :: Last