更新文本文件中特定行中的特定字段

Question

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

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 King:Johnny Dept:56.80:100:38

Answer 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