Hi, I'm making a web app where a user can "upload" an image by providing the URL to an existing image somewhere on the Internet.
To prevent them giving a URL to an extremely large file, I'm trying to limit the max file size that LWP::UserAgent will download.
The documentation for...
Fixed the palette issue, and by adding channels=>4 to the Imager constructor it all looks much nicer.
Final proof of concept code:
# Get its icon image
my $WM_ICON = $xtops->{_NET_WM_ICON};
{
my ($value,$type,$format,$bytes_after) = $X->GetProperty($id, $WM_ICON...
I've got it sorta figured out.
The format seemed to be: in the binary blob...
First 4 bytes were the width (unsigned long)
Next 4 were the height (unsigned long)
Followed by 4 bytes for each pixel in the image, in RGBA format, until every pixel in the width*height*4 is exhausted, and then the...
Just returned the Netgear got a Belkin Share Max Wireless Router. It claims to have similar features to the Netgear one and was a similar price, but the Belkin actually does its job. :P
I get 16 MB/s speeds from speedtest.net now over wifi from the Belkin router.
Kirsle.net | My personal...
JMoore64: the QoS settings aren't enabled.
I called Netgear's tech support about the new router and he had me change a few settings but it didn't make it any better so he just told me to return it and get a different model. -_-
The internet speed is fine when I connect anything to the modem...
Okay, this has escalated to the realm of ridiculous...
I went to Best Buy and got a new router, it's a Netgear N600 Wireless Dual Band Router "High Performance", up to 300 MB/s it says, ran me $94.
I got home, connected it to my network, Internet was working through it out-of-box so before I...
Ah, a software-related thing on the PCs you mean? I have three wireless PCs in my network (a desktop, laptop and netbook) and they all get the same results on speedtest.net over the wifi, and the netbook when connected to the router via ethernet also gets the same speed (so, the router slows...
goombawaho:
If it was "anything connected to the modem" that slows down over time, then newly rebooting the modem & plugging my PC into it would be the same as newly rebooting the modem & newly rebooting the router. But the router gets only 1 MB/s speed from the get go whereas the PC gets the...
Is it a known problem that Linksys routers irreparably slow down over time?
I used to have a WRT54G Linksys router that I replaced about 6 months ago because it would keep dropping the wifi, and the new one I got is a Linksys E1000 (believe it ran me about $70).
It used to run just fine, and...
Hi,
I'm porting a Perl module for a chatterbot reply scripting language over to C++. The chatterbot scripting language consists of text files containing commands and data that is parsed by the module and turned into usable data in-memory so that the chatterbot app can receive messages from a...
I'm playing around with the idea of creating an X11 desktop panel using something like Tkx (ActivePerl) or Tcl::Tk, so I was experimenting with some of the X11 modules on CPAN to get a window list, which would be a necessity to create a task list applet for my panel.
I found X11::Tops which...
Docs about the can() function: http://perldoc.perl.org/UNIVERSAL.html
Kirsle.net | My personal homepage
perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'
The *{} format is how this code is declaring dynamic subroutines at run-time. Perl keeps a symbol table of all the variables and things in memory (you can have $var and @var for example, one being a scalar and the other an array, but both with different data... the $ denotes a scalar and the @...
Download Perl, go to a terminal, cd to the downloaded perl's directory and do i.e.
./Configure -des -Dprefix=/usr/local
make
make test
sudo make install
It will install the Perl 5.10 binary to /usr/local/bin/perl (the Perl 5.8 would still be available at /usr/bin/perl and it's recommended you...
I usually accomplish these kinds of things like this:
print "<ul>\n";
print "<li>" . join("</li>\n<li>", @items) . "</li>\n";
print "</ul>\n";
Kirsle.net | My personal homepage
perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'
It's most likely written in JavaScript. Search the source of the page for it, and then find all the embedded external javascript files for it. It might be a bit trickier to find if they minified or obfuscated their javascript however.
Kirsle.net | My personal homepage
perl -e '$|=$i=1;print"...
If the PHP script sets the environment variable QUERY_STRING before executing the Perl script, and the Perl script gets its params from the query string, the perl script should be able to get the params.
For example (Perl running Perl):
# create an enclosing block so we can scope %ENV locally...
This might be applicable to this somehow:
http://en.wikipedia.org/wiki/Percent-encoding#Non-standard_implementations
If the characters you're using aren't in the ASCII range (0-255) they'd need multiple bytes to display them, so if a unicode string is trying to be parsed as ASCII (one byte per...
App%201%20%E2%80%93%20sum
What are these? Three URI escape codes for just one symbol? This might be part of the problem here, when Perl unescapes these it would get three symbols back instead of one.
Kirsle.net | My personal homepage
perl -e '$|=$i=1;print"...
View the source of the output in plain text to see if the browser is displaying it correctly or if it's coming correctly from the server.
Kirsle.net | My personal homepage
perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.