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.
31 lines
373 B
31 lines
373 B
@rem = '
|
|
@goto endofperl
|
|
';
|
|
|
|
$USAGE = "
|
|
Usage: $0 InputFiles
|
|
|
|
extract all records pairs that have cnf: in them.
|
|
These indicate DS object name collisions.
|
|
|
|
";
|
|
|
|
die $USAGE unless @ARGV;
|
|
|
|
$save = "";
|
|
|
|
while (<>) {
|
|
|
|
if (m/cnf:|del:/i) {
|
|
print $save;
|
|
print;
|
|
}
|
|
|
|
$save = $_;
|
|
|
|
}
|
|
|
|
|
|
__END__
|
|
:endofperl
|
|
@perl %~dpn0.cmd %*
|