[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.89, Sat May 22 11:43:00 2004 UTC revision 1.90, Mon May 24 19:32:36 2004 UTC
# Line 423  Line 423 
423      return $url;      return $url;
424  }  }
425    
426    sub file_read
427    {
428        my($file) = @_;
429    
430        if (open(my $fh, "<$file"))
431        {
432            if (wantarray)
433            {
434                my @ret = <$fh>;
435                return @ret;
436            }
437            else
438            {
439                local $/;
440                my $text = <$fh>;
441                close($fh);
442                return $text;
443            }
444        }
445    }
446    
447    
448    sub file_head
449    {
450        my($file, $n) = @_;
451    
452        if (!$n)
453        {
454            $n = 1;
455        }
456    
457        if (open(my $fh, "<$file"))
458        {
459            my(@ret, $i);
460    
461            $i = 0;
462            while (<$fh>)
463            {
464                push(@ret, $_);
465                $i++;
466                last if $i >= $n;
467            }
468            return @ret;
469        }
470    }
471    
472    
473  =pod  =pod
474    
475  =head1 hiding/caching in a FIG object  =head1 hiding/caching in a FIG object

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3