→ kdjf:while (<FILE>) { 你該去google一下/看看manual了 07/11 14:14
→ h781005:哦哦 因為我目前都是上網看perl book那個網站... 07/11 14:17
→ h781005:大部分都還是照上面的打...總之!!很感謝k大! 07/11 14:18
→ xatier:如果是 stdin 的話 直接 while (<>) { print; } 就好:) 07/16 12:18
※ 引述《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