11 lines
160 B
Perl
11 lines
160 B
Perl
open(GUID, "uuidgen.exe |");
|
|
$GUID = <GUID>;
|
|
chop $GUID;
|
|
$GUID =~ tr/a-z/A-Z/;
|
|
|
|
while(<>){
|
|
s/\{PACKAGECODE\}/\{$GUID\}/;
|
|
print;
|
|
};
|
|
close(TABLEOUT);
|