[sweft]

hello

Well, Im here today to find out how to keep a perl script open in command prompt after I run it.
If I wanted it to close I would close the window.

If I was to run this script:

!/usr/bin/perl
use strict; 
use warnings; 
use Net::DNS; 
use NetAddr::IP;

my $ip = new NetAddr::IP (shift) || die "Unable to create NetAddr::IP object\n"; 
my $res = Net::DNS::Resolver->new;
my $num = $ip->num();

for (my $i=0; $i<=$num; ++$i) { 
	my $ip_address = $ip->addr();
	
	if ($ip_address) {
		my $query = $res->search("$ip_address");
		if ($query) {
			foreach my $rr ($query->answer) {
			next unless $rr->type eq "PTR";
			print "$ip_address,",$rr->ptrdname, "\n";
			 }
		} else {
			print "$ip_address,",$res->errorstring,"\n";
		 }
	}
	++$ip;
}

and I run:
perl Reverse-DNS Lookups.pl 00.000.000.000 (ip of website)

it will just close. And I got this source code from: http://geekpit.blogs...everse-dns.html

But I wanted to type it out.

Anyways. Please help!

Thanks in Advanced.

[Advertisements]

I don't understand... what were you expecting to happen after the script reached its end?

What do you mean by "keep a perl script open"?

[stettybet0]

I don't understand... what were you expecting to happen after the script reached its end?

What do you mean by "keep a perl script open"?

[sweft]

See the results. I want to see what other domains are on the server. I dont want it to close. Try running it and see what happens. CMD opens and closes.

[stettybet0]

Please do not PM me for help, keep it all here on the forum.

What operating system are you using?

[sweft]

Windows XP
running ActivePerl

Sorry about PMing you.

[stettybet0]

its okay, the reason that I and many others here discourage PMing is that if someone else has a similar question, they can just look at this topic and get help too.

since you have ActivePerl, you don't need the first line.

also, how did you get the Net::DNS and NetAddr::IP libraries installed on an XP?

[sweft]

Ok so I use perl.exe?

And I dont have the Net::DNS and NetAddr::IP libraries installed.

If I want to test an exploit on my site also in perl. It still wont work.

phpnuke-expl.pl 72.232.225.114

It just opens and closes.

[stettybet0]

oh, I see the problem! are you just double clicking on these things?

Open up Cmd first (Start>Run>cmd>Ok) and then navigate to the directory that your perl file is in. (type "cd [directory path]" and hit enter) then type "[name of perl file]" and hit enter. Now you should see some errors saying that you don't have Net::DNS or NetAddr::IP libraries installed, but at least the window doesn't close right away.

[sweft]

I will run:

file.pl IP

Than I get
Do you want to predeclare pl? -line 1 pl 72.232.225.114

I put:
Y

In http://www.google.com/codesearch
#!/usr/bin/perl

Seems correct. Cannot get either script to work.

[stettybet0]

what is "file.pl"? the original code from the first post?

and "#!/usr/bin/perl" would be perfectly correct if you were using a unix system. but you're not, so it's not.

Edited by stettybet0, 24 May 2007 - 07:55 PM.

[sweft]

duh I so see it now. haha Im silly. Its the path file to perl.exe
wow.
OK.
Thanks.

[stettybet0]

yea, you could do "#!C:\[where ever your perl.exe is]", but you don't need to include it with ActivePerl since it should have automatically placed perl.exe in your executable path.

Edited by stettybet0, 24 May 2007 - 08:01 PM.

[ghostdog74]

hello

Well, Im here today to find out how to keep a perl script open in command prompt after I run it.
If I wanted it to close I would close the window.

you can use
<>;