use warnings;
use strict;

=head1 'precheck' by Dintiradan - Version 0.1

Last updated July 28, 2006

Contact me with any suggestions or problems at dintiradan(at)yahoo(dot)com

Feel free to use and modify this program for your scripts, provided:

Original documentation is preserved (unless it no longer applies),
documentation exists for new features (be nice to people who read your code), and
contact information is maintained (for all contributors to the program).

=head1 Overview

Usage: perl precheck.pl <text file(s)>

precheck.pl copies all the strings out of a script into an output file.

=head1 Requires

At least one text file as an argument in the command line.

A binary build of Perl, since this program is being tested and no executable exists yet
(I'd recommend ActivePerl).

=head1 Modifies

The input file is not modified.

=head1 Effects

A text file is generated containing all the strings in the script.
The file is placed in the same directory as the original script and has the prefix 'C-'.
Any previous files with the filename and prefix 'C-' will be copied over.

=cut

die "Usage: perl precheck.pl <text file(s)>\n"
unless (@ARGV);

while (@ARGV) {
my $file = shift @ARGV;

open(IN,$file) ||
die "Could not open '$file': $!";

open(OUT,">C-$file") ||
die "Could not create 'C-$file': $!";

while (<IN>) {
while (/".*"/) {
s/^[^"]*"([^"]*)"//;
print OUT "$1\n";
}
}

close(IN) ||
die "Could not close '$file': $!";

close(OUT) ||
die "Could not close 'C-$file': $!";
}

use warnings;
use strict;

=head1 'postchck' by Dintiradan - Version 0.1

Last updated July 28, 2006

Contact me with any suggestions or problems at dintiradan(at)yahoo(dot)com

Feel free to use and modify this program for your scripts, provided:

Original documentation is preserved (unless it no longer applies),
documentation exists for new features (be nice to people who read your code), and
contact information is maintained (for all contributors to the program).

=head1 Overview

Usage: perl postchck.pl <text file(s)>

postchck.pl recopies all the strings from a 'C-' file back into the original script.

=head1 Requires

At least one text file as an argument in the command line.

Both the script and 'C-' file must be present in the same directory as postchck.pl.

A binary build of Perl, since this program is being tested and no executable exists yet
(I'd recommend ActivePerl).

=head1 Modifies

The input script has its strings replaced with those found in the 'C-' file.
The 'C-' file is not modified.

=head1 Effects

Each line in the 'C-' file is inserted into each string in the script.

=cut

die "Usage: perl postchck.pl <text file(s)>\n"
unless (@ARGV);

while (@ARGV) {
my $file = shift @ARGV;

open(SCRIPT,$file) ||
die "Could not open '$file' for reading: $!";

open(STRINGS,"C-$file") ||
die "Could not create 'C-$file': $!";

my @lines = ();

while (<SCRIPT>) {
my $line = "";

while (/".*"/) {
my $str = <STRINGS>;
chomp($str);
s/^([^"]*)"[^"]*"//;
$line .= $1 . '"' . $str . '"';
}

$line .= $_;
push @lines, $line;
}

close(SCRIPT) ||
die "Could not close '$file' for reading: $!";

close(STRINGS) ||
die "Could not close 'C-$file': $!";

open(SCRIPT,">$file") ||
die "Could not open '$file' for rewriting: $!";

foreach my $i (@lines) {
print SCRIPT $i;
}

close(SCRIPT) ||
die "Could not close '$file' for rewriting: $!";
}

use warnings;
use strict;

=head1 'precheck' by Dintiradan - Version 0.1

Last updated July 28, 2006

Contact me with any suggestions or problems at dintiradan(at)yahoo(dot)com

Feel free to use and modify this program for your scripts, provided:

Original documentation is preserved (unless it no longer applies),
documentation exists for new features (be nice to people who read your code), and
contact information is maintained (for all contributors to the program).

=head1 Overview

Usage: perl precheck.pl <text file(s)>

precheck.pl copies all the strings out of a script into an output file.

=head1 Requires

At least one text file as an argument in the command line.

A binary build of Perl, since this program is being tested and no executable exists yet
(I'd recommend ActivePerl).

=head1 Modifies

The input file is not modified.

=head1 Effects

A text file is generated containing all the strings in the script.
The file is placed in the same directory as the original script and has the prefix 'C-'.
Any previous files with the filename and prefix 'C-' will be copied over.

=cut

die "Usage: perl precheck.pl <text file(s)>\n"
unless (@ARGV);

while (@ARGV) {
my $file = shift @ARGV;

open(IN,$file) ||
die "Could not open '$file': $!";

open(OUT,">C-$file") ||
die "Could not create 'C-$file': $!";

while (<IN>) {
while (/".*"/) {
s/^[^"]*"([^"]*)"//;
print OUT "$1\n";
}
}

close(IN) ||
die "Could not close '$file': $!";

close(OUT) ||
die "Could not close 'C-$file': $!";
}

use warnings;
use strict;

=head1 'postchck' by Dintiradan - Version 0.1

Last updated July 28, 2006

Contact me with any suggestions or problems at dintiradan(at)yahoo(dot)com

Feel free to use and modify this program for your scripts, provided:

Original documentation is preserved (unless it no longer applies),
documentation exists for new features (be nice to people who read your code), and
contact information is maintained (for all contributors to the program).

=head1 Overview

Usage: perl postchck.pl <text file(s)>

postchck.pl recopies all the strings from a 'C-' file back into the original script.

=head1 Requires

At least one text file as an argument in the command line.

Both the script and 'C-' file must be present in the same directory as postchck.pl.

A binary build of Perl, since this program is being tested and no executable exists yet
(I'd recommend ActivePerl).

=head1 Modifies

The input script has its strings replaced with those found in the 'C-' file.
The 'C-' file is not modified.

=head1 Effects

Each line in the 'C-' file is inserted into each string in the script.

=cut

die "Usage: perl postchck.pl <text file(s)>\n"
unless (@ARGV);

while (@ARGV) {
my $file = shift @ARGV;

open(SCRIPT,$file) ||
die "Could not open '$file' for reading: $!";

open(STRINGS,"C-$file") ||
die "Could not create 'C-$file': $!";

my @lines = ();

while (<SCRIPT>) {
my $line = "";

while (/".*"/) {
my $str = <STRINGS>;
chomp($str);
s/^([^"]*)"[^"]*"//;
$line .= $1 . '"' . $str . '"';
}

$line .= $_;
push @lines, $line;
}

close(SCRIPT) ||
die "Could not close '$file' for reading: $!";

close(STRINGS) ||
die "Could not close 'C-$file': $!";

open(SCRIPT,">$file") ||
die "Could not open '$file' for rewriting: $!";

foreach my $i (@lines) {
print SCRIPT $i;
}

close(SCRIPT) ||
die "Could not close '$file' for rewriting: $!";
}

while (@ARGV) {
my $file = shift @ARGV;

open(IN,$file) ||
die "Could not open '$file': $!";

open(OUT,">C-$file") ||
die "Could not create 'C-$file': $!";

while (<IN>) {
while (/".*"/) {
s/$[^"]*"([^"]*)"//;
print OUT "$1\n";
}
}

close(IN) ||
die "Could not close '$file': $!";

close(OUT) ||
die "Could not close 'C-$file': $!";
}

while (@ARGV) {
my $file = shift @ARGV;

open(IN,$file) ||
die "Could not open '$file': $!";

open(OUT,">C-$file") ||
die "Could not create 'C-$file': $!";

while (<IN>) {
while (/".*"/) {
s/$[^"]*"([^"]*)"//;
print OUT "$1\n";
}
}

close(IN) ||
die "Could not close '$file': $!";

close(OUT) ||
die "Could not close 'C-$file': $!";
}