wee
git-svn-id: file:///home/svn/incoming/trunk@2686 4d416f70-5f16-0410-b530-b9f4589650da
This commit is contained in:
parent
841eb6bc23
commit
1bdddc4c31
|
@ -0,0 +1,25 @@
|
|||
#!/usr/bin/perl
|
||||
use strict;
|
||||
|
||||
while(<STDIN>) {
|
||||
my $line = $_;
|
||||
|
||||
if($line =~ /require '(.*?)'/) {
|
||||
my $required = $1;
|
||||
|
||||
my @pieces = split('/', $required);
|
||||
map { $_ = old_to_new($_) } @pieces;
|
||||
my $new = join('/', @pieces);
|
||||
|
||||
print "$required -> $new\n";
|
||||
}
|
||||
}
|
||||
|
||||
sub old_to_new {
|
||||
my $name = shift;
|
||||
|
||||
$name =~ s/^([A-Z])/lc($1)/ge;
|
||||
$name =~ s/([A-Z])/"_" . lc($1)/ge;
|
||||
|
||||
return($name);
|
||||
}
|
Loading…
Reference in New Issue