Check if something is an an array

[Sephiroth32]

I am trying to create a script to check a sites source code for a certain URL to see if they are linking to you.

Unfortunately, I do not know the code to check if an array has a certain url.

Can someone help please? Thanks in advance

[Charles]

print "It's in there!\n" if (grep {m|^http://www.fee.org/?$|} qw(http://www.fee.org/ http://www.fie.org/ http://www.foe.org/ http://www.fum.org/));

[Sephiroth32]

to be honest that code kind of confuses me.

Where in the if statement does it say what url to check in?

[Sephiroth32]

bump :\

[Nedals]

my @urllist = qw(http://www.fee.org/ http://www.fie.org/ http://www.foe.org/ http://www.fum.org/);
# when using qw, quotes are NOT needed and spaces are used to delimit

my @urllist = ('http://www.fee.org/','http://www.fie.org/','http://www.foe.org/','http://www.fum.org/');
# equivalent
my $urltofind = 'http://www.fee.org/';

# written another way...
if (grep {m|^$urltofind?$|} @urllist) { print "It's in there!\n" }
# grep will search @urllist for zero or one (?) occurances of $urltofind

Hope that helps!

ps: what does bump :\ mean?

[Sephiroth32]

thanks alot. So if I wanted to scan www.text.com for www.url.com I would put:

my @urllist = ('http://www.test.com/');
my $urltofind = 'http://www.url.com/';
if (grep {m|^$urltofind?$|} @urllist) { print "It's in there!\n" } $urltofind


EDIT:

I tried at first:

my @urllist = ('http://www.unitedff.com/');
my $urltofind = 'http://www.fantasysquare.com/';
if (grep {m|^$urltofind?$|} @urllist) { print "It's in there!\n" }
else { print "check failed\n"; } $urltofind

and it printed check failed even thougn fantasysquare.com is in the source code of unitedff.com. Then I tried:

my $urlist = "http://www.unitedff.com/';
my $urltofind = "http://www.fantasysquare.com/';
if (grep {m|^$urltofind?$|} $urllist) { print "It's in there!\n"; }
else { print "lol\n"; }

and I got an internal server error

[Nedals]

No! No! No! You must be new at this!

What this does is to search a list of URL's (@urllist) to see if a specific URL ($urltofind) is in that list.

So if I wanted to scan www.text.com for www.url.com

What does this mean??
'www.url.com' IS NOT in a list that ONLY contains 'www.test.com' , obviously!!

Maybe a silly question, but do you understand lists and variables??

[Sephiroth32]

lol yeah to be honest I didnt really read the code to well :\

*slaps forhead*

Is there anyway to open up a websites source code? I suppose I could open up 'view-source:url" but that only works in IE

[Nedals]

Sure!
right-click and view source OR on the menu bar VIEW:SOURCE

BUT...
If you're looking for Perl code, you're SOL. That's on the server and cannot be viewed.

[Sephiroth32]

damn..

lol I know how to view the source manually :P but there is no way to check the source? oh well. I have seen link checking scripts though they must do it somehow..

[jeffmott]

use LWP::Simple;
my $source = get('http://www.w3.org/');
if ($source =~ m|http://(?:www\.)?yoursite\.com/?|) {
    print 'Yup';
}
else {
    print 'Nope';
}

[Sephiroth32]

Thanks alot you all have been a huge help

also this made me realize how little I really know about CGI. I know the basics and everything but is thete some online tutorials I can go to to learn more?

[Nedals]

this made me realize how little I really know about CGI

CGI is the interface beween the browser and the server (kind of). The programming language is Perl!

[Sephiroth32]

arg

edit: ugh not again. I tried putting jeffmott's code in the script but replace the first url with http://www.fantasysquare.com and http://www.unitedff.com and it just prints nothing :\

[Nedals]

OK, Jeff, I have to ask!!!

use LWP::Simple;
my $source = get('http://www.w3.org/');   # get(....) ???
if ($source =~ m|http://(?:www\.)?yoursite\.com/?|) { print 'Yup'; }
else { print 'Nope'; }

What does this do?

I think what Sephiroth32 is asking for is some technique to download someone else's Perl code off thier server, which, as far as I know, is impossible!