dcdomain — Wed, 10 Oct 2001 23:29:02 +0000

Thanks for the help. I ended up dumping all the functions my professor gave me (wasted a weekend). And with the help of a friend, came up with the following. I also neglected to add that I was looking to search the document with whatever the user input, not just 'web.' So I had to grab the user's input and drop it into a string like: $string = ; Anyway below was all I needed. Don't know why my professor made it so hard.

my $userinput = ;
chomp $userinput;

my @array = split(/$userinput/, $info);
print "\n$#array occurences of \"$userinput\"";

This programming stuff boggles my mind. Mad respect to you people.

Mark Hensler — Wed, 10 Oct 2001 15:58:32 +0000

looking at your functions list...
here's something I came up with (not tested)

# $page_text
$search_string = "web";

while (index($page_text, $search_string) > -1) {
    
    # find the position of the last character of $search_string
    $start = index($page_text, $search_string) + length($search_string);
    
    # how many character from that point to the end of $page_text
    $end = length($page_text) - $start;
    
    # cut the $search_string and everything before it out of $page_text
    $page_text=substr($page_text,$start,$end);
    
}

'
I think that's a rather difficult first perl script.

Peter J. Boettcher — Wed, 10 Oct 2001 12:51:37 +0000

Don't get to discouraged, it can take a while for your brain to adapt to logical programming! You'll know when it happens because after that you tend to act like a Vulcan and say stuff like:

"That is not logical"

"After further analysis that does not compute"