使用open 和 IO::file ??

梦恋情人

使用
$OFile = IO::File->;new("TITLE.dat";

和
open($OFile,"TITLE.dat";


请教 ->; 这俩种方法有什么不同???

apile

1. 
   
2. IO::File.pm
   
3. =============================
   
4. sub new {
   
5.     my $type = shift;
   
6.     my $class = ref($type) || $type || "IO::File";
   
7.     @_ >;= 0 && @_ <= 3
   
8. or croak "usage: new $class [FILENAME [,MODE [,PERMS]]]";
   
9.     my $fh = $class->;SUPER::new();
   
10.     if (@_) {
    
11. $fh->;open(@_)
    
12. or return undef;
    
13.     }
    
14.     $fh;
    
15. }
    
16. 
    
17. sub open {
    
18.     @_ >;= 2 && @_ <= 4 or croak 'usage: $fh->;open(FILENAME [,MODE [,PERMS]])';
    
19.     my ($fh, $file) = @_;
    
20.     if (@_ >; 2) {
    
21.         my ($mode, $perms) = @_[2, 3];
    
22.         if ($mode =~ /^\d+$/) {
    
23.             defined $perms or $perms = 0666;
    
24.             return sysopen($fh, $file, $mode, $perms);
    
25.         }
    
26.         if (! File::Spec->;file_name_is_absolute($file)) {
    
27.             $file = File::Spec->;catfile(File::Spec->;curdir(),$file);
    
28.         }
    
29.         $file = IO::Handle::_open_mode_string($mode) . " $file\0";
    
30.     }
    
31.     open($fh, $file);
    
32. }
    
33. 
    

复制代码

   
看代碼會比較清楚...
IO::File->;new會call IO::File->;open 然後call open...
IO::File是比較OO的寫法....當然，如果我們不管OO..
直接調用open()會比較快...