在使用perl重命名文本文件时,在文本文件末尾出现问号

索米尔什马

我是Perl的新手,我试图通过Perl脚本下载链接,如下所示:

use strict;
use warnings;
use Cwd qw(abs_path);
use File::Path qw(make_path remove_tree);
use LWP::UserAgent();
use LWP::Simple;
use HTML::LinkExtor;
my $path = abs_path();

print "please provide input link from above for example https://ftp.ncbi.nlm.nih.gov/genomes/ASSEMBLY_REPORTS/prokaryote_type_strain_report.txt\n";
defined(my $link = <>) or die "unable to take arguments from command line $!";
         
my $string = "$link";
$string  =~ s/(.*)\///;
my $text_file = print $';
getstore($link, "$path/links_ncbi/$text_file") or die "unable to get required text file $!\n";

rename("$path/links_ncbi/1", "$path/links_ncbi/$'") or die "unable to rename text file $!\n";

它完成了将所需文本文件下载到所需目录中的工作,但是当我尝试使用重命名功能对它进行重命名时,它也做了,但是我总是在文本文件名后面出现一个问号,如下所示:

prokaryote_type_strain_report.txt?

我检查了文件的常数,但是唯一的是“?”,我无法找出发生这种情况的原因,因此我寻求您的指导,请告诉我为什么发生这种情况以及如何对其进行排序。我也尝试了以下解决方案:

vim +'set ff=unix | x' test.pl

dos2unix test.pl

另外,我尝试了

sed -i 's/\r$//' test.pl

正如前面的问题中提到的解决方案那样,但该解决方案是专门针对bash脚本的,但是在Perl脚本上尝试过却没有用。

我也尝试检查它并执行以下操作:

 print qq{rename("$path/links_ncbi/1", "$path/links_ncbi/$'")} or die "unable to rename text file $!\n";

但是一切似乎都很好,请告诉我我在哪里做错了,为什么会这样?重命名文件时出现,非常需要您的帮助,我们将不胜感激。谢谢。

是我尝试的解决方案的链接。

伯恩哈德·M。

$link包含换行符,问号只是此类不可打印字符的占位符。

尝试 chomp($link);

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

TOP 榜单

  1. 1

    来自Microsoft Office加载项taskpane.js的MySQL驱动程序模块的空引用

  2. 2

    使用AWS Cognito和React的仅限Facebook / Google的登录名(无用户名/密码)

  3. 3

    创建Windows Phone 8应用并将其连接到数据库的最佳方法(最好是SQL Server)

  4. 4

    为什么Java中的System.out.println()打印到控制台?

  5. 5

    卷曲函数无法解析来自bash中变量的代理

  6. 6

    是什么在Android的consumer-rules.pro和proguard-rules.pro之间的区别?

  7. 7

    设置与Apache POI Excel表散点图标记图标的颜色

  8. 8

    将Qt Pyside2与asyncio await语法一起使用?

  9. 9

    崇高的文字+蟒蛇的蟒蛇

  10. 10

    任务':app:minifyReleaseWithR8'.java.lang.NullPointerException的执行失败(无错误消息)

  11. 11

    OpenJDK的和AdoptOpenJDK的区别

  12. 12

    大型数据集缓存到Spark内存中时,“超出了GC开销限制”(通过sparklyr和RStudio)

  13. 13

    “执行测试CMAKE_HAVE_LIBC_PTHREAD”失败实际上是什么意思?

  14. 14

    使用Core 2.2中的Identity,如何在关闭浏览器15分钟后保持会话活动?

  15. 15

    React中的ForwardRefExoticComponent和ForwardRefRenderFunction有什么区别?

  16. 16

    猫鼬查找结果,然后将字段替换为findOne

  17. 17

    如何降级Google Colab的Torch版本

  18. 18

    Keras提前停止回调错误,val_loss指标不可用

  19. 19

    如何避免VSCode中的“导入路径不能以.ts扩展名结尾”错误?

  20. 20

    Nuxt.JS:如何在页面中获取路由URL参数

  21. 21

    是否有为什么会AccessibilityManager.sInstance导致内存泄漏的一个原因?

热门标签

归档