Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

88 lines
1.9 KiB

use strict;
use lib $ENV{RAZZLETOOLPATH};
use Logmsg;
# declare locals
my( $ExitCode, $InputFile, $OutputFile );
# set defaults
$ExitCode = 0;
# here we want to read in a file and generate a new one with only unique lines
&ParseCommandLine();
&ParseInputFile();
exit( $ExitCode );
sub ParseCommandLine
{
# declare locals
my( $Argument );
foreach $Argument ( @ARGV ) {
if ( $Argument =~ /[\/\-]{0,1}\?/ ) { &UsageAndQuit(); }
elsif ( $Argument =~ /[\/\-]i\:(.*)$/ ) {
$InputFile = $1;
} elsif ( $Argument =~ /[\/\-]o\:(.*)$/ ) {
$OutputFile = $1;
}
else {
print( "Unrecognized option '$Argument'.\n" );
&UsageAndQuit();
}
}
}
sub ParseInputFile
{
# declare locals
my( $Line, %FileHash );
unless ( open( INFILE, $InputFile ) ) {
print( "Failed to open $InputFile for reading, exiting.\n" );
$ExitCode++;
return;
}
if ( $OutputFile ) {
unless ( open( OUTFILE, ">$OutputFile" ) ) {
print( "Failed to open $OutputFile for writing, " .
"will use stdout.\n" );
undef( $OutputFile );
$ExitCode++;
}
}
while ( $Line = <INFILE> ) {
chomp( $Line );
unless ( $FileHash{ $Line } ) {
if ( $OutputFile ) { print( OUTFILE "$Line\n" ); }
else { print( "$Line\n" ); }
$FileHash{ $Line } = "t";
}
}
if ( $OutputFile ) { close( OUTFILE ); }
close( INFILE );
return;
}
sub UsageAndQuit
{
print( "$0 [-i:<input file>] [-o:<output file>]\n" );
print( "\n-i:<input file> name of file to uniqify\n" );
print( "-o:<output file> name of output file\n" );
print( "\n$0 will parse the given input file and generate output\n" );
print( "which contains only unique lines. if no output file is\n" );
print( "given, the output is written to stdout. if no input file\n" );
print( "is given, input is read from stdin.\n" );
print( "\n" );
exit( 1 );
}