作者h781005 (龟小C)
看板Perl
标题Re: [请益] 关於写入txt档
时间Mon Jul 11 14:09:49 2011
※ 引述《h781005 (龟小C)》之铭言：
: 想请问各位高手
: 小弟我现在如果想要请使用者将资料输入後
: 写入txt档里面存放
: 但是又不想要在执行第二次时把第一次的资料覆盖掉
: 要怎麽做修改
: 以下是我的code
: #!/usr/bin/perl -w
: my %tel;
: print "Enter name:";
: my $input = <>;
: print "Enter number:";
: my $number = <>;
: $tel{$input} = $number;
: open FILE, ">telephone2.txt";
: for (keys %tel) {
: print FILE "$_$tel{$_}\n";
: }
: close FILE;
: 先在此感谢各位!!
再问一个问题...
假设我现在输入之後想要读取档案中所有资料
我照着网路上的打
#!/usr/bin/perl -w
open FILE, "telephone.txt" or die "开启档案失败: $!";
while () {
print $_;
}
close FILE;
结果出现一个问题
Use of uninitialized value in print at xx.pl line 8
请问这样要怎麽做修改阿?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.230.4.155
1F：→ kdjf:while (<FILE>) { 你该去google一下/看看manual了 07/11 14:14
2F：→ h781005:哦哦 因为我目前都是上网看perl book那个网站... 07/11 14:17
3F：→ h781005:大部分都还是照上面的打...总之!!很感谢k大! 07/11 14:18
4F：→ xatier:如果是 stdin 的话 直接 while (<>) { print; } 就好:) 07/16 12:18