/[cvs]/nfo/perl/libs/shortcuts/files.pm
ViewVC logotype

Diff of /nfo/perl/libs/shortcuts/files.pm

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

revision 1.1 by joko, Tue Feb 11 09:50:00 2003 UTC revision 1.2 by joko, Thu Feb 20 21:12:24 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.2  2003/02/20 21:12:24  joko
6    ##  + prints to STDERR if logfile could not be opened
7    ##
8  ##  Revision 1.1  2003/02/11 09:50:00  joko  ##  Revision 1.1  2003/02/11 09:50:00  joko
9  ##  + code from Data::Storage::Handler::File::Basic  ##  + code from Data::Storage::Handler::File::Basic
10  ##  ##
# Line 35  sub s2f { Line 38  sub s2f {
38    
39  sub f2s {  sub f2s {
40    my $filename = shift;    my $filename = shift;
41      if (! -e $filename) {
42        print STDERR __PACKAGE__ . ':' . __LINE__ . ": File $filename does not exist!" . "\n";
43        return;
44      }
45    # read file at once (be careful with big files!!!)    # read file at once (be careful with big files!!!)
46    open(FH, '<' . $filename);    open(FH, '<' . $filename);
47    my @buf_arr = <FH>;    my @buf_arr = <FH>;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed