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';
    }
    for(split(//,'))*))91:+9.*4:1A1+9,1))2*:..)))2*:31.-1)4131)1))2*:3)"'))
    {for(ord){$i+=$_&7;grep(vec($s,$i++,1)=1,1..($_>>3)-4);}}print"$s\n";

  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

"

"

X vBulletin 4.2.2 Debug Information

  • Page Generation 0.40978 seconds
  • Memory Usage 2,999KB
  • Queries Executed 13 (?)
More Information
Template Usage (37):
  • (1)SHOWTHREAD
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_global_above_footer
  • (1)ad_global_below_navbar
  • (1)ad_global_header1
  • (1)ad_global_header2
  • (1)ad_navbar_below
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (1)ad_thread_first_post_content
  • (1)ad_thread_last_post_content
  • (2)bbcode_code
  • (2)bbcode_quote
  • (1)footer
  • (1)forumjump
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (1)headinclude_bottom
  • (15)memberaction_dropdown
  • (1)navbar
  • (4)navbar_link
  • (1)navbar_moderation
  • (1)navbar_noticebit
  • (1)navbar_tabs
  • (2)option
  • (1)pagenav
  • (1)pagenav_curpage
  • (2)pagenav_pagelink
  • (15)postbit
  • (15)postbit_onlinestatus
  • (15)postbit_wrapper
  • (1)spacer_close
  • (1)spacer_open
  • (1)tagbit_wrapper 

Phrase Groups Available (6):
  • global
  • inlinemod
  • postbit
  • posting
  • reputationlevel
  • showthread
Included Files (26):
  • ./showthread.php
  • ./global.php
  • ./includes/class_bootstrap.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/config.php
  • ./includes/functions.php
  • ./includes/functions_navigation.php
  • ./includes/class_friendly_url.php
  • ./includes/class_hook.php
  • ./includes/class_bootstrap_framework.php
  • ./vb/vb.php
  • ./vb/phrase.php
  • ./includes/functions_facebook.php
  • ./includes/functions_calendar.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./includes/functions_reputation.php
  • ./includes/functions_notice.php
  • ./packages/vbattach/attach.php
  • ./vb/types.php
  • ./vb/cache.php
  • ./vb/cache/db.php
  • ./vb/cache/observer/db.php
  • ./vb/cache/observer.php 

Hooks Called (72):
  • init_startup
  • friendlyurl_resolve_class
  • init_startup_session_setup_start
  • database_pre_fetch_array
  • database_post_fetch_array
  • init_startup_session_setup_complete
  • global_bootstrap_init_start
  • global_bootstrap_init_complete
  • cache_permissions
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • load_show_variables
  • load_forum_show_variables
  • global_state_check
  • global_bootstrap_complete
  • global_start
  • style_fetch
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • strip_bbcode
  • friendlyurl_clean_fragment
  • friendlyurl_geturl
  • forumjump
  • cache_templates
  • cache_templates_process
  • template_register_var
  • template_render_output
  • fetch_template_start
  • fetch_template_complete
  • parse_templates
  • fetch_musername
  • notices_check_start
  • notices_noticebit
  • process_templates_complete
  • friendlyurl_redirect_canonical
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • postbit_factory
  • postbit_display_start
  • postbit_imicons
  • bbcode_parse_start
  • bbcode_parse_complete_precache
  • bbcode_parse_complete
  • postbit_display_complete
  • memberaction_dropdown
  • pagenav_page
  • pagenav_complete
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • build_navigation_data
  • build_navigation_array
  • check_navigation_permission
  • process_navigation_links_start
  • process_navigation_links_complete
  • set_navigation_menu_element
  • build_navigation_menudata
  • build_navigation_listdata
  • build_navigation_list
  • set_navigation_tab_main
  • set_navigation_tab_fallback
  • navigation_tab_complete
  • fb_like_button
  • showthread_complete
  • page_templates