solenv/bin/modules/par2script/files.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: files.pm,v $
  10 #
  11 # $Revision: 1.5 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32
  33 package par2script::files;
  34
  35 use par2script::exiter;
  36
  37 ############################################
  38 # File Operations
  39 ############################################
  40
  41 sub check_file
  42 {
  43     my ($arg) = @_;
  44
  45     if(!( -f $arg ))
  46     {
  47         par2script::exiter::exit_program("ERROR: Cannot find file $arg", "check_file");
  48     }
  49 }
  50
  51 sub read_file
  52 {
  53     my ($localfile) = @_;
  54
  55     my @localfile = ();
  56
  57     open( IN, "<$localfile" ) || par2script::exiter::exit_program("ERROR: Cannot open file: $localfile", "read_file");
  58     while ( <IN> ) { push(@localfile, $_); }
  59     close( IN );
  60
  61     return \@localfile;
  62 }
  63
  64 ###########################################
  65 # Saving files, arrays and hashes
  66 ###########################################
  67
  68 sub save_file
  69 {
  70     my ($savefile, $savecontent) = @_;
  71     open( OUT, ">$savefile" );
  72     print OUT @{$savecontent};
  73     close( OUT);
  74     if (! -f $savefile) { pre2par::exiter::exit_program("ERROR: Cannot write file: $savefile", "save_file"); }
  75 }
  76
  77 sub save_hash
  78 {
  79     my ($savefile, $hashref) = @_;
  80
  81     my @printcontent = ();
  82
  83     my ($itemkey, $itemvalue, $line);
  84
  85     foreach $itemkey ( keys %{$hashref} )
  86     {
  87         $line = "";
  88         $itemvalue = $hashref->{$itemkey};
  89         $line = $itemkey . "=" . $itemvalue . "\n";
  90         push(@printcontent, $line);
  91     }
  92
  93     open( OUT, ">$savefile" );
  94     print OUT @printcontent;
  95     close( OUT);
  96 }
  97
  98 sub save_array_of_hashes
  99 {
 100     my ($savefile, $arrayref) = @_;
 101
 102     my @printcontent = ();
 103
 104     my ($itemkey, $itemvalue, $line, $hashref);
 105
 106     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
 107     {
 108         $line = "";
 109         $hashref = ${$arrayref}[$i];
 110
 111         foreach $itemkey ( keys %{$hashref} )
 112         {
 113             $itemvalue = $hashref->{$itemkey};
 114
 115             $line = $line . $itemkey . "=" . $itemvalue . "\t";
 116         }
 117
 118         $line = $line . "\n";
 119
 120         push(@printcontent, $line);
 121     }
 122
 123     open( OUT, ">$savefile" );
 124     print OUT @printcontent;
 125     close( OUT);
 126 }
 127
 128 1;