服务器 Gind.cn
  1. 服务器 Gind.cn
  3. perl +匹配文件中的最后一个数字并将其减1
Intereting Posts
CPU 100％闲置但仍显示平均负载 video托pipe，转换和stream媒体解决scheme 为本地networking设置dnsmasq netcat通过次要NIC的端口 无需运行bash_profile或bashrc即可login 问题与NETGEAR GS108Tpipe理交换机和巨型帧 恢复Bacula文件 Ubuntu升级后服务器不能重新启动 连接卡在SYN_RECV上 如何使用iptables阻止与IP地址的所有通信？ 静态NFS挂载与autofs直接映射挂载 故障切换期间，客户端没有切换到辅助DNS服务器 为FTP PASV模式连接设置Linux iptables 与远程WMI调用RPC错误 通过IPMI板的专用networkingpipe理界面访问ESXi

perl +匹配文件中的最后一个数字并将其减1

我想在我的bash脚本中添加下面的perl命令，请指教

如何改变（减less一个）在Perl文件中的最后一个以“+”字符开头的数字？ 

Example of original file ( before run the perl command ) more file 432423 53454 +535 343 45 +1000

请求的输出文件示例（在运行perl命令之后） 

 more file 432423 53454 +535 343 45 +999

当我听到“对…发生的事情做些什么”的时候，我就达到了tac行，在第一事件上做了些什么。 

 tac file | nawk '/^\+/&&!done {$1 = "+" substr($1,2)-1; done=1} 1' | tac

在Solaris上，您可能没有安装tac。 你可以像这样实现它： 

 tac() { sed -n -e '1!G' -e '$p' -eh "$@"; }

你可以用下面的脚本： 

 #!/usr/bin/perl -w use strict; open(INFILE, "< file") or die( "Can't open input file" ); open(OUTFILE, "> file.out") or die( "Can't open output file" ); my @lines = reverse <INFILE>; foreach my $line (@lines) { if ($line =~ /^\+(\d+)/) { $line = "+".($1-1)."\n"; last; } } my @lines2 = reverse @lines; foreach my $line (@lines2) { print OUTFILE $line; } close(OUTFILE);