20 lines
202 B
Perl
20 lines
202 B
Perl
#!/usr/bin/perl
|
|
|
|
while (<>)
|
|
{
|
|
if (/^\./)
|
|
{
|
|
$debug .= $_;
|
|
s/\/debug\//\/release\//;
|
|
$release .= $_;
|
|
}
|
|
else
|
|
{
|
|
$debug .= $_;
|
|
$release .= $_;
|
|
}
|
|
}
|
|
|
|
print $debug;
|
|
print $release;
|