请高人指点迷津，万分感激！"无法找到文件？"

发布时间:2010-10-03 14:03:22来源:红联作者:Bruce.Ko

#!/usr/local/bin/perl5.12.2 -w
use 5.12.2;
use File::Basename;
use File::Spec;

print "Please enter a filename: ";
chomp(my $old_name = );

my $dirname = dirname $old_name;
my $basename = basename $old_name;

$basename =~ s/^/not/;
my $new_name = "$dirname/$basename";

rename($old_name, $new_name)
or warn "Can't rename '$old_name' to '$new_name': $!";

执行结果：
Please enter a filename: /home/bsd/bsd.lst
Can't rename ' /home/bsd/bsd.lst' to '/home/bsd/notbsd.lst': No such file or directory at File_Spec line 15, line 1.

文章评论

共有 8 条评论

hbhychl 于 2010-10-06 16:04:46发表:

新手报到
hbhychl 于 2010-10-06 16:04:43发表:

测试了一下没问题啊。你确定 /home/bsd/bsd.lst 这个文件存在吗？
无心出岫于 2010-10-05 21:52:05发表:

不解
h.hbhychl 于 2010-10-03 17:36:24发表:

不解
童川NO 于 2010-10-03 17:01:37发表:

不解
onlineuser 于 2010-10-03 16:01:58发表:

perl还不明白。楼主细细道来。
绿色圣光于 2010-10-03 14:03:23发表:

测试了一下没问题啊。你确定 /home/bsd/bsd.lst 这个文件存在吗？
shenhao0129 于 2010-10-03 14:21:59发表:

Perl阿，不懂

请高人指点迷津，万分感激！"无法找到文件？"

共有 8 条评论

频道文章

最新教程

随机推荐