mirror of https://github.com/CGAL/cgal
23 lines
357 B
Perl
Executable File
23 lines
357 B
Perl
Executable File
#!/sw/bin/perl
|
|
|
|
#use strict
|
|
|
|
my $pckge='aapje';
|
|
my $vrsion;
|
|
|
|
format STDOUT =
|
|
@<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$pckge, $vrsion
|
|
.
|
|
|
|
#$~ = "Nice_Output";
|
|
|
|
while(<STDIN>) {
|
|
if (m/^\s*(.*?)\s*:\s*(.*?)\s*$/) {
|
|
($pckge,$vrsion) = ($1,$2);
|
|
#print STDERR $pckge, $vrsion,"\n";
|
|
write;
|
|
}
|
|
}
|
|
|