#!/usr/bin/perl -w

#######################################################
# lect04_binding_op
#
# practice =~, binding operator, to check a given 
#    variable for a pattern
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-14-04
#######################################################

# ask for a file name to check for course-required marker

print "enter a file name to check: ";
chomp($file = <STDIN>);

# kluge to quick'n'sleazily read from this file...
$ARGV[0] = $file;

while (<>)
{
    chomp($line = $_);

    if ($line =~ /###480-scriptname:/)
    {
        print "file contains script: $line\n";
    }
}

# end of lect04_binding_op