对文件名进行读取，截取字符，使字符变成数字变量运算，请教高手是否可以给些提示...

ajkpcicnu

1、在/tmp下面有一个唯一的*.txt文件，
也许可能是这样
2.txt
2016.txt
65535.txt.txt

我想读出这个这个文件名（注：不包括点号后面的扩展名）成为一个
$number的变量，
再对变量的数值加5，
然后用这个变量，生成（用touch就可以了)一个/tmp/$变量名.txt

请教各位高手，这样的操作是否可有例子可循？

谢谢解答！

moperyblue

生成的文件是空文件吗?

moperyblue

1. ls /tmp/*txt|awk -F. '{match($0,/([^.]+)(.*)/,a);system("touch "a[1]+5 a[2])}'

复制代码

?

1. ls *txt|awk -F. '{system("touch "$1+5".txt")}'

复制代码

?

sunzhiguolu

65535.txt.txt

这样的应该得到怎样的结果?

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use File::Basename;
   
5. 
   
6. my @aExts = qw /.txt.txt .txt/;
   
7. foreach (glob ('*.txt')){
   
8.     my ($fn, undef, $ext) = fileparse ($_, @aExts);
   
9.     $fn += 5;
   
10.     `touch $fn$ext`;
    
11. }
    

复制代码

rm-rf

1. #!/bin/bash
   
2. 
   
3. for f in *.txt
   
4. do
   
5.   fn=${f%%.*}
   
6.   let "fn+=5"
   
7.   touch $fn
   
8. done

复制代码

jcdiy0601

1. #!/bin/bash
   
2. 
   
3. file=`ls *.txt`
   
4. number=${file%%.*}
   
5. number=$(($number+5))
   
6. touch $number.txt

复制代码