www.webdeveloper.com
Page 1 of 3 123 LastLast
Results 1 to 15 of 33

Thread: Check if something is an an array

  1. #1
    Join Date
    Dec 2002
    Posts
    19

    Check if something is an an array

    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

  2. #2
    Join Date
    Nov 2002
    Location
    Baltimore, Maryland
    Posts
    12,279
    “The power of the Web is in its universality. Access by everyone regardless of disability is an essential aspect.”
    —Tim Berners-Lee, W3C Director and inventor of the World Wide Web

  3. #3
    Join Date
    Dec 2002
    Posts
    19
    to be honest that code kind of confuses me.

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

  4. #4
    Join Date
    Dec 2002
    Posts
    19
    bump :\

  5. #5
    Join Date
    Dec 2002
    Location
    Pleasanton, CA
    Posts
    2,132
    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?

  6. #6
    Join Date
    Dec 2002
    Posts
    19
    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
    Last edited by Sephiroth32; 03-13-2003 at 05:34 PM.

  7. #7
    Join Date
    Dec 2002
    Location
    Pleasanton, CA
    Posts
    2,132
    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??

  8. #8
    Join Date
    Dec 2002
    Posts
    19
    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

  9. #9
    Join Date
    Dec 2002
    Location
    Pleasanton, CA
    Posts
    2,132
    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.

  10. #10
    Join Date
    Dec 2002
    Posts
    19
    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..

  11. #11
    Join Date
    Nov 2002
    Location
    NY, USA
    Posts
    731
    Code:
    use LWP::Simple;
    my $source = get('http://www.w3.org/');
    if ($source =~ m|http://(?:www\.)?yoursite\.com/?|) {
        print 'Yup';
    }
    else {
        print 'Nope';
    }

  12. #12
    Join Date
    Dec 2002
    Posts
    19
    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?

  13. #13
    Join Date
    Dec 2002
    Location
    Pleasanton, CA
    Posts
    2,132
    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!

  14. #14
    Join Date
    Dec 2002
    Posts
    19
    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 :\
    Last edited by Sephiroth32; 03-14-2003 at 04:06 PM.

  15. #15
    Join Date
    Dec 2002
    Location
    Pleasanton, CA
    Posts
    2,132
    OK, Jeff, I have to ask!!!

    Code:
    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!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center



Recent Articles