作者Dancer31 (:p)
看板perl
标题Re: 问几个新手的问题orz
时间Thu Nov 3 04:02:02 2005
※ 引述《SelfStrike (^u*s)》之铭言：
: ※ 引述《Dancer31 (:p)》之铭言：
: : 刚开始学perl 觉得它真是种随性的语言阿XD
: : 不过碰到了一些问题 麻烦大家帮一下吧@@
: : 1. 开档我只会用 open FILE, "<input.txt";
: : 可是规定要在cmd输入perl xxx.pl < input.txt
: 我是超级新手(只学了一个晚上Orz)
: 你说的是这个嘛?
: open(INFILE, "input.txt") or die "Can't open input.txt: $!";
: open(OUTFILE, ">output.txt") or die "Can't open output.txt: $!";
: open(LOGFILE, ">>my.log") or die "Can't open logfile: $!";
: my $line = <INFILE>;
: my @lines = <INFILE>;
後来发现我们助教有讲方法@@"
while( $str = <> )
{
print "$str";
}
#执行perl test.pl < WebPL.txt
#这样会把WebPL.txt当stdin读进来
#$str是WebPL.txt被当stdin读进来的每一行 直到WebPL.txt结束
#以上程式会印出WebPL.txt的每一行
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.94.242