请教在tcsh中实现perl的功能

boqiang

perl可以简单的实现这样一个功能,从一个文本中读入一行,把这一行的内容传递给默认变量$_,这样循环下去直到文本读完,请教如何在tcsh里面实现相同的功能
open file,"$ARGV[0]";
while(<file>)
{
  print $_
}

KornLee

2. $#!/bin/tcsh
3. set var=`cat file`
4. foreach i ($var)
5. echo $i
6. end

复制代码