0

下面是一个代码，我可以更新我的书的数量。但我似乎无法做到，以便我可以更新我的其他内容，如书名、作者、价格等。代码如下：

if grep -q "^$bookname:$author:" BookDB.txt
   then 
   read -p "Update Qty to what?" newQty 
   sed -i "s/^\($bookname:$author:[^:]*\):[^:]*:/\1:$newQty:/" BookDB.txt 
   echo "Book's Qty has been updated successfully!" 
   else 
   echo "$0: BookDB.Txt: no '$title' by '$author'" >&2 
   fi

我的数据库将是这样的：

Harry Potter - The Half Blood Prince:J.K Rowling:40.30:10:50
The little Red Riding Hood:Dan Lin:40.80:20:10
Harry Potter - The Phoniex:J.K Rowling:50.00:30:20
Harry Potter - The Deathly Hollow:Dan Lin:55.00:33:790
Little Prince:The Prince:15.00:188:9
Lord of The Ring:Johnny Dept:56.80:100:38
Three Little Pig:Andrew Lim:89.10:290:189
All About Ubuntu:Ubuntu Team:76.00:55:133
Catch Me If You Can:Mary Ann:23.60:6:2
Happy Day:Mary Ann:12.99:197:101
haha:gaga:1:10:1

那么我如何更改某些字段，例如当我选择书名 Lord of the ring 作者 johnny Dept 时，我可以将书名更改为也许是万王之王？

Lord of The King:Johnny Dept:56.80:100:38
4

2 回答 2

1

像user1146332一样，我也建议切换到更强大的语言。这是一个使用的示例。它使用模块Getopt::Long读取参数并在文件中循环匹配行。

它似乎有效，但您可以更好地检查错误，例如，在正则表达式中使用它们之前定义book和变量。author

还有一件事，我使用split()冒号来提取字段，我不知道您如何处理名称中带有冒号的书，但在这种情况下，您将需要一个额外的模块来解析 CSV，喜欢Text::CSV或努力争取更好的split表达。

#!/usr/bin/env perl

use strict;
use warnings;
use Getopt::Long;

my ($book, $author, $newbook, $quantity);

my $r = GetOptions(
        q|book=s| => \$book,
        q|author=s| => \$author,
        q|newbook=s| => \$newbook,
        q|quantity=i| => \$quantity,
) or die;

open my $fh, '<', $ARGV[0] or die;

while ( <$fh> ) { 
        chomp;
        my @f = split /:/;
        next if @f < 5;
        if ( $f[0] =~ m/(?i)\Q$book\E/ &&
             $f[1] =~ m/(?i)\Q$author\E/ ) { 
                $f[0] = defined $newbook ? $newbook : $f[0];
                $f[3] = defined $quantity ? $quantity : $f[3];
                printf qq|%s\n|, join q|:|, @f; 
                next;
        }   

        printf qq|%s\n|, $_; 
}

一个例子：

perl script.pl --book="lord of the ring" --author=dep --newbook="Lord of the King" --quantity=99 infile

产量：

Harry Potter - The Half Blood Prince:J.K Rowling:40.30:10:50
The little Red Riding Hood:Dan Lin:40.80:20:10
Harry Potter - The Phoniex:J.K Rowling:50.00:30:20
Harry Potter - The Deathly Hollow:Dan Lin:55.00:33:790
Little Prince:The Prince:15.00:188:9
Lord of the King:Johnny Dept:56.80:99:38
Three Little Pig:Andrew Lim:89.10:290:189
All About Ubuntu:Ubuntu Team:76.00:55:133
Catch Me If You Can:Mary Ann:23.60:6:2
Happy Day:Mary Ann:12.99:197:101
haha:gaga:1:10:1
于 2013-07-27T12:39:09.520 回答
1

那么呢？ 

sed 's/\bLord of The Ring\b/Lord of The King/' file

$猫文件
哈利波特 - 混血王子：JK罗琳：40.30:10:50
小红帽：丹琳：40.80:20:10
哈利波特 - 凤凰：JK罗琳：50.00:30:20
哈利波特 - 死亡谷：林丹：55.00:33:790
小王子：王子：15.00:188:9
指环王：约翰尼 部门：56.80:100:38
三只小猪：Andrew Lim:89.10:290:189
关于 Ubuntu：Ubuntu 团队：76.00:55:133
如果可以的话，抓住我：玛丽安：23.60:6:2
快乐的一天：玛丽安：12.99:197:101
哈哈：嘎嘎：1:10:1

$ sed 's/\b 魔戒\b/王者之王/' 文件
哈利波特 - 混血王子：JK罗琳：40.30:10:50
小红帽：丹琳：40.80:20:10
哈利波特 - 凤凰：JK罗琳：50.00:30:20
哈利波特 - 死亡谷：林丹：55.00:33:790
小王子：王子：15.00:188:9
国王之王：约翰尼部门：56.80:100:38
三只小猪：Andrew Lim:89.10:290:189
关于 Ubuntu：Ubuntu 团队：76.00:55:133
如果可以的话，抓住我：玛丽安：23.60:6:2
快乐的一天：玛丽安：12.99:197:101
哈哈：嘎嘎：1:10:1

将带有重定向的输出发送>到新文件或使用 sed 的-i选项进行就地编辑。

  • 重定向

    sed 's/\bLord of The Ring\b/Lord of The King/' file>newfile

  • 用.bak文件就位

    sed -i.bak 's/\bLord of The Ring\b/Lord of The King/' file
于 2013-07-27T12:44:01.797 回答