perl - Perl语法错误: Sample Program to read a file

Question

读取文件时出现错误，下面是脚本。

#!/bin/bash
$file = "SampleLogFile.txt";    #--- line 2 
open(MYINPUTFILE,$file);        #--- line 3  
while(<**MYINPUTFILE**>) { 

# Good practice to store $_ value because
# subsequent operations may change it.
my($line) = $_;

# Good practice to always strip the trailing
# newline from the line.
chomp($line);

# Convert the line to upper case.
print "$line" if $line = ~ /sent/;

}
close (MYINPUTFILE);

输出:

PerlTesting_New.ksh [2]:=:找不到
PerlTesting_New.ksh [3]:第3行出现语法错误:`('意外

知道是什么问题吗？

Answer 1

更改

#!/bin/bash

至

#!/usr/bin/perl

否则，Perl将不会解释您的脚本。根据您的系统相应地更改路径