version 1.2, 2003/12/02 12:06:25
|
version 1.3, 2003/12/30 11:28:51
|
Line 313 sub Write {
|
Line 313 sub Write {
|
} |
} |
} |
} |
|
|
|
# Get: |
|
# return the entire contents of the file as a string. |
|
# Parameters: |
|
# $self - (this). |
|
# |
|
sub Get { |
|
my $self = shift; |
|
|
|
my $contents = ""; |
|
my $lines = $self->{LineArray}; |
|
my $length = @$lines; |
|
|
|
for (my $i = 0; $i < $length; $i++) { |
|
$contents .= $lines->[$i]."\n"; |
|
} |
|
return $contents; |
|
} |
|
|
1; |
1; |
#----------------------------- Documentation -------------------------------------- |
#----------------------------- Documentation -------------------------------------- |
# |
# |
Line 427 Writes the contents of the configuration
|
Line 445 Writes the contents of the configuration
|
|
|
=back |
=back |
|
|
|
=head2 Get () |
|
|
|
Return the entire contents of the configuration file as a single string. |
|
|
=head2 Comment ( line ) |
=head2 Comment ( line ) |
|
|
Static member that returns true if the line passed in is a comment or blank line. |
Static member that returns true if the line passed in is a comment or blank line. |
Line 443 Static member that returns the value of
|
Line 465 Static member that returns the value of
|
|
|
=back |
=back |
|
|
|
|
|
|
=head2 Index ( linearray, fieldno ) |
=head2 Index ( linearray, fieldno ) |
|
|
Returns a reference to a hash that indexes a line array by a particular field number. |
Returns a reference to a hash that indexes a line array by a particular field number. |