perl не могу понять ошибку

что не так вроде все правильно

Code:

#!/usr/bin/perl -w 
open (PH "customer.txt") || die "Ошибка при открытии файла $!";
 while(<PH>){
chomp; 
($number, $email)=(split(/\s+/,$_))[1-2];
$Email{$email}=$_; 
$Phone{$number}=$_; 
} 
close(PH);

вот такая ошибочка

 

Ну а где > или >>
http://perldoc.perl.org/functions/open.html

 

open (PH ">customer.txt")

 

так это же для записи а мне надо прочитать

 

open (PH "<customer.txt")
Откроет на чтение запись..

 

Написано же, в чем ошибка

 

ну поставьте ту самую запятую что то я нехера не понял куда её вставить может вы обьясните

 

я в перл не разбираюсь, но может здесь должна стоять запятая: open (PH, "customer.txt") как вы считаете?

 

Странно когда я вчера пробовал ставить её там что то все ровно продолжал ругаться

наверно я где то что то тупил

 

Code:

#!/usr/bin/perl
use strict;
use warnings;
$\ = "\n";
open my $PH, '<', 'customer.txt' or die 'Ошибка при открытии файла $!';
# делаем что-то с файлом
close $PH;

 

Запятую забыл после PH!

Code:

open (PH, "customer.txt") || die "Ошибка при открытии файла $!";