> A friend of mine sent me a file to write
> to help get me started on programming Perl.
> So I did (in notepad):
>
> #!/usr/bin/perl -w
> use strict;
> while (<>) {
> if ( /book/i or /bk/i) {
> print;
> }
> Missing right curly or square bracket at findit.pl line 6, at end of line
> syntax error at findit.pl line 6, at EOF
> Execution of findit.pl aborted due to compilation errors.
>
You need to close your while loop.
It should be like this
#!/usr/bin/perl -w
use strict;
while (<>) {
if ( /book/i or /bk/i) {
print;
}
}#missing this one
-D
