将相对路径转换为绝对路径的Bash＆Perl脚本

我有一个顶级目录路径，我想将所有相对路径转换为该目录内所有文件中存在的绝对路径。例如我有这样的目录结构：将相对路径转换为绝对路径的Bash＆Perl脚本

内容 top_level.ext1

$ tree 
. 
|-- DIR 
| |-- inner_level.ext1 
| `-- inner_level.ext2 
|-- top_level.ext1 
`-- top_level.ext2

：

../../a/b/c/filename_1.txt 
../../a/d/e/filename_2.txt

假设顶级目录路径是/this/is/the/abs/dir/path/

想要的top_level.ext1内容转换为：

/this/is/the/abs/a/b/c/filename_1.txt 
/this/is/the/abs/a/d/e/filename_2.txt

内容top_level.ext2：

cc_include+=-I../../util1/src/module1/moduleController -I../../util/src/module1/module2Controller; 
cc_include+=-I../../util2/src/module2/moduleUtility;

想要的top_level.ext2到的内容转换：

cc_include+=-I/this/is/the/abs/util1/src/module1/moduleController -I/this/is/the/abs/util/src/module1/module2Controller; 
cc_include+=-I/this/is/the/abs/util2/src/module2/moduleUtility;

另外，想通过内部DIR文件应用此相同的转换。

例如内容DIR/inner_level.ext1：

../../../a/b/c/filename_1.txt 
../../../a/d/e/filename_2.txt

希望将内容转换的DIR/inner_level.ext1到：

/this/is/the/abs/a/b/c/filename_1.txt 
/this/is/the/abs/a/d/e/filename_2.txt

同为DIR/inner_level.ext2也。

已经写了这两个脚本。

top_level.ext1的转换成功。

file_manager.sh：

#!/usr/bin/bash 
file='resolve_path.pl' 
basedir='/this/is/the/abs/dir/path' 

run_perl(){ 
    echo -e "\n File getting modified: $1" 
    cp $1 tmp.in 
    perl $file 
    mv tmp.out $1 
    rm tmp.in 
} 

find $basedir -type f |while read inputfile 
do 
    run_perl $inputfile 
done

resolve_path.pl：

#!/usr/bin/perl 
use strict; 
use warnings; 
use Data::Dumper; 
use 5.010; 
use Switch; 

#****************************************************** 
#  Set-up Directory And Input/Output File Names 
#****************************************************** 
our $in_file = glob('tmp.in'); 
my $out_file1 = 'tmp.out'; 
print "Input file: $in_file\n"; 

#************************************ 
#  Local and Global Variables 
#************************************* 
my $current_path = "/this/is/the/abs/dir/path"; 
my $temp_path = $current_path; 

#************************************ 
#  Open Read and Write File 
#************************************ 
open(READ, $in_file) || die "cannot open $in_file"; 
open(WRITE, ">$out_file1") || die "cannot open $out_file1"; 


#****************************************************** 
#  Read The Input [*.out] File Line By Line 
#****************************************************** 
while (<READ>) { 
    if(/^(\.\.\/){1,}(\w+\/)*(\w+).(\w+)/){ 
     my $file_name = $3; 
     my $file_ext = $4; 

     my @count = ($_ =~ /\.\.\//g); 
     my $cnt = @count; 

     my @prev_dir = ($_ =~ /\w+\//g); 
     my $prev_dir_cnt = @prev_dir; 
     my $file_prev_dir = join('', @prev_dir); 

     $temp_path = $current_path; 
     for(my $i=0; $i<$cnt; $i++){ 
      if($temp_path =~m/(\/.*)\/\w+/){ 
       $temp_path = $1; 
      } 
     } 

     print WRITE "$temp_path"."\/"."$file_prev_dir"."$file_name"."\."."$file_ext"."\n"; 

    } else { 
     print WRITE "$_"; 
    } 
}

我面临的问题：

没有转换被应用在top_level.ext2 & DIR/inner_level.ext2 因为我的Perl脚本不能正确解析为../（即 cc_include+=-I即将开始）。从绝对路径相对路径
转换工作不正常为DIR/inner_level.ext1和错误的路径越来越追加。

如果有人可以在我的脚本中提出预期的更改以解决上述两个问题，那将会很有帮助。

来源

2017-09-16 Foobar-naut

将相对路径转换为绝对路径的Bash＆Perl脚本

回答

相关问题