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.
24 lines
227 B
24 lines
227 B
@rem = '
|
|
@goto endofperl
|
|
';
|
|
|
|
$USAGE = "
|
|
Usage: $0 InputFiles
|
|
|
|
";
|
|
|
|
$save = "";
|
|
|
|
while (<>) {
|
|
|
|
if ($save ne $_) {
|
|
$save = $_;
|
|
print;
|
|
}
|
|
|
|
}
|
|
|
|
|
|
__END__
|
|
:endofperl
|
|
@perl %~dpn0.cmd %*
|