Storage/Handler/File.pm

package Data::Storage::Handler::File;

use strict;
use warnings;

require Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( 
  s2f
);

sub s2f {
  my $filename = shift;
  my $string = shift;
  open(FH, '>' . $filename);
  print FH $string;
  print FH "\n";
  close(FH);
}

sub f2s {
  my $filename = shift;
  # read file at once (be careful with big files!!!)
  open(FH, '<' . $filename);
  my @buf_arr = <FH>;
  my $buf = join("", @buf_arr);
  close(FH);
  return $buf;
}

sub a2f {
  my $filename = shift;
  my $string = shift;
  open(FH, '>>' . $filename);
  print FH "\n";
  print FH $string;
  print FH "\n";
  close(FH);
}

sub ris {
  my $string = shift;
  my $rules = shift;

  our $ris_result = 1;

  if (ref $rules eq 'HASH') {
    my @re_find = keys %{$rules};
    # replace all keys with substitutes from hash "%re_table"
    foreach my $find (@re_find) {
      my $replace = $rules->{$find};
      $ris_result &= ($string =~ s/$find/$replace/g);
    }
  }
  
  if (ref $rules eq 'ARRAY') {
    foreach my $rule (@{$rules}) {
      my $find    = $rule->[0];
      my $replace = $rule->[1];
      $ris_result &= ($string =~ s/$find/$replace/g);
    }
  }
  
  return $string;
}

sub rif {
  my $filename = shift;
  my $rules = shift;
  my $out_suffix = shift;

  my $outfile = $filename;
  $outfile .= '.' . $out_suffix if ($out_suffix);

  my $buf = f2s($filename);
  $buf = ris($buf, $rules);
  s2f($outfile, $buf);
}

sub findKeyEntries {
  my $string = shift;
  my $pattern = shift;
  my @arr = split("\n", $string);
  my @entries;
  foreach (@arr) {
    chomp;
    #print "l: ", $_, "\n";
    if (m/$pattern/) {
      push @entries, $1;
    }
  }
  return \@entries;
}

# ---------------------------------
# is a context-entry in a file?
# a "context-entry" is an entry identified 
# by a certain keystring, which itself 
# is detected dynamically
sub isEntryInFile {

  my $chk = shift;
  my $content_current = f2s($chk->{filename});
  
  # try to find all key-entries via patterns which are "entry-identifiers"
  if (my @keys = @{ findKeyEntries($chk->{'out'}, $chk->{'pattern'}{'EntryIdent'}) }) {
    # iterate through all "entry-identifiers"
    foreach (@keys) {
      my $pattern = $chk->{'pattern'}{'EntryCheck'};
      $pattern =~ s/\@\@KEY\@\@/$_/;
      my $bool_AlreadyThere = ($content_current =~ m/$pattern/);
      if ($bool_AlreadyThere) {
        $chk->{'EntryFound'} = $_;
        return 1;
      }
    }
  }

}

1;
1	joko	1.1	package Data::Storage::Handler::File;
2
3			use strict;
4			use warnings;
5
6			require Exporter;
7			our @ISA = qw( Exporter );
8			our @EXPORT_OK = qw(
9			s2f
10			);
11
12			sub s2f {
13			my $filename = shift;
14			my $string = shift;
15			open(FH, '>' . $filename);
16			print FH $string;
17			print FH "\n";
18			close(FH);
19			}
20
21			sub f2s {
22			my $filename = shift;
23			# read file at once (be careful with big files!!!)
24			open(FH, '<' . $filename);
25			my @buf_arr = <FH>;
26			my $buf = join("", @buf_arr);
27			close(FH);
28			return $buf;
29			}
30
31			sub a2f {
32			my $filename = shift;
33			my $string = shift;
34			open(FH, '>>' . $filename);
35			print FH "\n";
36			print FH $string;
37			print FH "\n";
38			close(FH);
39			}
40
41			sub ris {
42			my $string = shift;
43			my $rules = shift;
44
45			our $ris_result = 1;
46
47			if (ref $rules eq 'HASH') {
48			my @re_find = keys %{$rules};
49			# replace all keys with substitutes from hash "%re_table"
50			foreach my $find (@re_find) {
51			my $replace = $rules->{$find};
52			$ris_result &= ($string =~ s/$find/$replace/g);
53			}
54			}
55
56			if (ref $rules eq 'ARRAY') {
57			foreach my $rule (@{$rules}) {
58			my $find = $rule->[0];
59			my $replace = $rule->[1];
60			$ris_result &= ($string =~ s/$find/$replace/g);
61			}
62			}
63
64			return $string;
65			}
66
67			sub rif {
68			my $filename = shift;
69			my $rules = shift;
70			my $out_suffix = shift;
71
72			my $outfile = $filename;
73			$outfile .= '.' . $out_suffix if ($out_suffix);
74
75			my $buf = f2s($filename);
76			$buf = ris($buf, $rules);
77			s2f($outfile, $buf);
78			}
79
80			sub findKeyEntries {
81			my $string = shift;
82			my $pattern = shift;
83			my @arr = split("\n", $string);
84			my @entries;
85			foreach (@arr) {
86			chomp;
87			#print "l: ", $_, "\n";
88			if (m/$pattern/) {
89			push @entries, $1;
90			}
91			}
92			return \@entries;
93			}
94
95			# ---------------------------------
96			# is a context-entry in a file?
97			# a "context-entry" is an entry identified
98			# by a certain keystring, which itself
99			# is detected dynamically
100			sub isEntryInFile {
101
102			my $chk = shift;
103			my $content_current = f2s($chk->{filename});
104
105			# try to find all key-entries via patterns which are "entry-identifiers"
106			if (my @keys = @{ findKeyEntries($chk->{'out'}, $chk->{'pattern'}{'EntryIdent'}) }) {
107			# iterate through all "entry-identifiers"
108			foreach (@keys) {
109			my $pattern = $chk->{'pattern'}{'EntryCheck'};
110			$pattern =~ s/\@\@KEY\@\@/$_/;
111			my $bool_AlreadyThere = ($content_current =~ m/$pattern/);
112			if ($bool_AlreadyThere) {
113			$chk->{'EntryFound'} = $_;
114			return 1;
115			}
116			}
117			}
118
119			}
120
121			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26