leechpop.pl
The code was further explained in my book 'Spidering Hacks'.
--
Morbus Iff ( and think about the bad things that I didn't do )
Technical: http://www.oreillynet.com/pub/au/779
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
icq: 2927491 / aim: akaMorbus /
x27;s my belief that simply putting a book into some kind of PDF
or other representation of the printed book is like pointing a camera
at a stage play and calling it a movie."
--
Morbus Iff ( softcore vulcan pr0n rulez )
Technical: http://www.oreillynet.com/pub/au/779
Culture: http://ww
abrupt, assumptionary, "out to get me", etc.
[2] mailing list archives, assuming only you and I speak, etc.
[3] "Use MySQL!" "I installed it. Now what?"
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://www.gamegrene
purpose of a Message-ID/References, much less how
replying to the wrong one (ie. "I don't feel like typing
the To: address myself") and then rewriting the subject
line can cause havoc with archivers and threaders.
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.dis
ng to get rather slow and cumbersome rather quickly.
Likewise, one little bug is gonna wipe out your entire userbase.
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Spidering Hacks: http://amazon.com/exec/obidos/ASIN/0596005776/diso
>> while (@files) {
>
>Are you sure that's not:
>
> for (@files) {
Yup, "for" is right. An error in my memory recall.
--
Morbus Iff ( evil is my sour flavor )
Technical: http://www.oreillynet.com/pub/au/779
Culture: http://www.disobey.com/ and http://www.
programmer is
mastering the use of the core modules, as well as how to find what
you need on CPAN: a good metric ton of your code will look far cleaner,
far easier to understand, and far more maintainable (and FAR more
documented too!). Likewise, you'll get far more done, and with
less &
>Is there a way in Perl to have a script wait 30 seconds before it
>continues processing? Like or a pause or hold?
sleep().
--
Morbus Iff ( black as the devil and sweet as a stolen kiss )
Technical: http://www.oreillynet.com/pub/au/779
Culture: http://www.disobey.com/ an
edent. remove the "unless ..." if you'd
# like the final value of a duplicated key instead.
$datastore{$key} = $value unless $datastore($key);
}
# print out a specific key value.
print "The value of 'Bob' is $key{"Bob"}\n";
# or loop through
t; theory
(more adequately stated as "bad programmers make Perl ugly").
--
Morbus Iff ( rotinom ruoy edisni deppart mi pleH )
Technical: http://www.oreillynet.com/pub/au/779
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
icq: 2927491 / aim: akaMorbus / yahoo: mor
arly
chapter on references, but the ORA book is more in-depth.
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Spidering Hacks: http://amazon.com/exec/obidos/ASIN/0596005776/disobeycom
icq: 2927491 / aim: akaMorbus / yahoo: morbu
he browser.
print "Location: http://rightplace.com/\n\n";;
As for splitting up a URL into its
component parts, look into the URI
(pseudo code, not tested):
my $url = "YOUR URL HERE";
my $urih = URI->new;
my $path = $urih->path($url);
my @parts = $urih->p
>print "Before";
>sleep (5);
>print "After\n";
You're buffering, I suspect. Add $|=1 to the top of your
script, and read: http://perl.plover.com/FAQs/Buffering.html
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://
>perl I wanted to know how to write spiders (but I'm too cheap to buy the
>O'Reilly book "Spidering hacks", and the library doesn't have it) allthough
Hey, that's my book .
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disob
>I'm getting tired of working on a text adventure in perl, and I was
>wondering if anyone had some interesting projects they could suggest I
Why did you get tired of the text adventure?
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.co
return $self->error("Hi! You've attempted directory traversal. Naughty!")
if scalar File::Spec->no_upwards(@directories) != scalar @directories;
--
Morbus Iff ( if i could change the future, i'd change the past instead )
Technical: http://www.oreillynet
At 1:18 PM -0500 2/21/04, Morbus Iff wrote:
>>Neither of the above work in a cross-platform sort of way, which is
>>why I was hoping to use something in File::Spec. But, I'm always
>>receiving absolute paths, not relative, so I don't believe no_upwards
>>will
o_upwards
will work for me. What are other people doing to prevent directory
traversals in an absolute-path, cross-platform sorta way?
--
Morbus Iff ( i desire penance for your sins )
Technical: http://www.oreillynet.com/pub/au/779
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
icq:
the answer seems obvious, doesn't mean it is.
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Spidering Hacks: http://amazon.com/exec/obidos/ASIN/0596005776/disobeycom
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.or
u can
ship it with your final tarbull - that's the approach I use with AmphetaDesk
(http://www.disobey.com/amphetadesk/), where I ship XML::Simple and
Text::Template, even for Linux distributions. Stuff that requires
compilation (like XML::Parser, Compress::Zlib, etc., etc.), I leave
up to th
that should return
>file size and last modification date. This
>obviously will not work for CGI URLs.
Something like:
my $ua = LWP::UserAgent->new();
my $result = $ua->head($url);
my $remote_headers = $result->headers;
$total_size = $remote_headers->content_l
"spinner" thing, which
isn't the display you're looking for. The quick
fix is to move the \b to the front of the spinner,
not the end). There was more discussion of this on a
mailing list, but I can't remember, or find, the URL.
--
Morbus Iff ( i put the demon back in codemon
quot;ternary" or "flip-flop" statement. In
this case, the above is the equivalent of:
"if myvar->otherid is set, then set myvar->id to
stringA, otherwise, set it to stringB".
Code-wise, the above is equivalent to:
if ($myvar->{otherid}) { $myvar->{id} ==
e.
I prefer "use warnings" myself - people
really should try their damndest to update.
As for $|++, there was a recent debate (on Perlmonks.com, I believe) on how
$|=1 may be a better visual choice than $|++. I haven't made up my mind
either way - I still use ++ in my own scripts. Unfo
>> Can anyone tell me where I can find encoding functions like
>> encode("[EMAIL PROTECTED]") ==> ram%40yahoo.com
>> and decode("ram%40yahoo.com") ==> [EMAIL PROTECTED]
>
>As usualy. See CPAN - http://search.cpan.org/
>Eg. CGI::Enurl + CGI:
{ XMLin( $xml_data ); }
if ($@) { print "Nope. Still an error."; }
}
You can probably modify that to your use.
--
Morbus Iff ( softcore vulcan pr0n rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USV
menubar=no,location=no,
directories=0,status=no,resizable=0'); }
//-->
See Other Window
Please See The Other Window
--
Morbus Iff ( softcore vulcan pr0n rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon
hetaDesk [1] source, I've stopped that. Not sure how, but
check it out...
[1] http://www.disobey.com/amphetadesk/
--
Morbus Iff ( softcore vulcan pr0n rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH685
$hwnd = GUI::GetPerlWindow();
# comment this to see error messages in a dos window
# otherwise, this will hide the blasted thing...
GUI::Hide($hwnd);
--
Morbus Iff ( softcore vulcan pr0n rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.
de updates? Has it been done before?
Should I go a tar.gz route, or specific modular
downloads?
--
Morbus Iff ( i'm wearing footsie jammies here )
http://www.disobey.com/ && http://www.gamegrene.com/
i write for good folk. read me: http://oreillynet.com/pub/au/779
icq: 2927491 /
ts{001}{2}{name}
{email}
$comments{003}{1}{name}
{email}
And so on and so forth. An RDMBS is NOT an option for me. I could do this
stuff easily with a delimited text file DB, but was under the impression
that DBM allow faster access.
Any pointers or tips are appreciat
bout this?
- what do you see can break about this implementation?
Once I get more time, I'll be trying this approach on my own AmphetaDesk.
[1] http://www.disobey.com/amphetadesk/
--
Morbus Iff ( softcore vulcan pr0n rulez )
http://www.disobey.com/ && http://www.gamegrene.com
router fails, then you
>are definetly without connection) then you could assume you've lost
>connection.
If a user has "connect automatically" or "dial automatically", will this
pinging cause the computer to dial? I'm thinking of this in a dialup
Win/M
ceforge.net/
http://sourceforge.net/projects/sendmail-milter/
http://spamassassin.taint.org/
--
Morbus Iff ( softcore vulcan porn rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
read me: http://www.oreillynet.com/pub/a/mac/2001/12/07/apache.html
icq: 2927491 / aim: akaMor
whether this was the case.
I'd be interested to know too. We have "classes" that teach that around
here, but they're rather moronic, ie. "when to use an unless and when to
use a negating if". Not what I'd considered covered by CC ;) ...
>ITYM de rigeur :-)
Acron
is PERL. Where do I start? Thanks.
Learning Perl from O'Reilly. De facto.
--
Morbus Iff ( softcore vulcan porn rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yah
ble, check out these:
http://www.pipetree.com/jabber/
http://www.pipetree.com/jabber/fwj.html
Also, the "Applied Perl" book has a chapter on integrating with Jabber.
--
Morbus Iff ( softcore vulcan porn rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
please
p sort of rot13, binary, decimal sort of
madness, but I was looking for something a bit more "hard to deciper at a
glance". I know the inherent risks with having a decryptable, but I'll take
those over the obvious risks of plaintest stored passwords.
Thoughts?
--
Morbus Iff ( i
ne cgi call is being
>processed?
Take a look into flock().
--
Morbus Iff ( i am your scary godmother )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
ld use Perl to edit the relevant shell file to
insert the configuration of your desire. That, however, is kinda innane.
--
Morbus Iff ( i am your scary godmother )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2
>=>
>EOF
>;
>print $output;
Instead of including your "put text here" arrow in
your initial block, put it as part of output:
my $output = <";
$num_clients = ;
--
Morbus Iff ( i am your scary godmother )
http://www.disobey.com/ && http://www.gamegrene.c
password = crypt($plaintext_password, $seed);
--
Morbus Iff ( i am your scary godmother )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
--
, though)...
--
Morbus Iff ( i am your scary godmother )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
--
To unsubscribe, e-mail: [EMAIL PROTECTED
we can see what you were trying/intending to do, as
opposed to what you actually did.
--
Morbus Iff ( i am your scary godmother )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yah
>I'm not competant enough to write a complete guestbook script, only to edit
>scripts I find. Any ideas where I can get a new guestbook script?
You could try the following (in that order):
http://perlarchive.com/
http://www.cgi-resources.com/
http://www.hotscripts.com/
clean up after himself. not using these ideals severely
impacts #1 (above).
3. Generally speaking, every script from Matt Wright's should
be ignored. None of his scripts are particularly well written
and security holes abound. I wouldn't even try fixing his
scri
>Just found this posted on another site. Many free Perl
I'd be worried about this - the perl books in particular looks like they
were copied and posted from the Perl CD Bookshelf, which is still a product
legally sold by O'Reilly...
--
ICQ: 2927491 / AOL: akaMorbus
Yahoo: mor
s:
"The ones who act like such are too sure of their perceived intelligence."
:)
--
Morbus Iff ( .sig on other machine. )
http://www.disobey.com/ && http://www.gamegrene.com/
"where's there's a will, there's a morbus ready to collect!"
--
To unsubsc
>I don't work with a lot of programmers. I hope to get into a situation where
>I do. Is it fair to say the majority are *holes?
Bwahahah. Not at all. We're smarter than you, but not as presumptuous.
--
Morbus Iff ( .sig on other machine. )
http://www.disobey.com/ &&
For long reasons that I'll reiterate at request, I can NOT use LWP::*,
specifically, I don't have the ability to use LWP::UserAgent to set or
understand proxies.
I've written my own lowlevel http calls and they've been working fine, but
it's now time to implement proxy support. I've checked vario
>use CGI ":all";
>@values = param('foo');
>
>If you're using the object interface, you've read the wrong book.
>Even Lincoln himself doesn't use that for any examples I've seen him
>teach in seminars. "perldoc CGI" is written that way mostly from
>legacy, not optimization.
Hmmm.
>> >CGI.pm isn't the only solution to creating dynamic web pages with Perl.
>> >Text::Template is another alternative, as are embedded Perl
>> >implementations like Apache::ASP, Mason, or even PerlScript (for IIS).
>>
>> None of which is crossplatform (Windows / Mac / Linux)
>> or installable by a
rd to just spit
out a number instead.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
de. Don't sue me if I birth your child.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
ing binary instead of ascii.
>
>thanks to all that tried to *help* me. little did you know the idiotic
>mistakes i am known for. :)
Heh. I make the binary/ascii mistake all the time - often times fighting
between "the FTP/editor knows what it's doing" and "no, listen to Mor
the pipe isn't open correctly, then you'll
get "Problem!:" printed to STDOUT. Along with problem is a magical thingy
called $!, which contains a remotely specific error on why the pipe
couldn't be open in the first place...
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
aden and deepen your expertise
Definitely agreeable. I learn much faster from examples.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
;my $key", simply add
another line at the top of the script that says "my %FORM_DATA;".
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
>Does anybody know how to call a subroutine that is in a .pm file from
>another .pm file.
Welp, if &subroutine_1 is in Library1.pm,
then within Library2.pm, you could do something like:
sub subroutine_2 {
require "/path/to/Library1.pm";
&subroutine_1;
}
59 matches
Mail list logo
