将 Perl 代码转换为 shell

Question

我有一个子程序需要读取文件并将数据存储在 Perl 中的哈希中

while ( $input = <file> ) { # Reading Line by line

    for my $term ( split /[=]/, $input ) {
        my ($value, $newkey) = ($term =~ /(.*?) (\S+)$/);
        $record{$key} = $value;
        $key = $newkey; 
    }

我需要在 shell 中编写相同的内容。到目前为止，我可以拆分数据，但不能从哈希中放入或检索。

Answer 1

这是一个在 Bash shell 中使用关联数组（即哈希）的示例：

#! /bin/bash

declare -A record  # Declare an associative array
file=file.txt
key="key0"
while read -r line; do  # Read file line by line
    read -r -a fields <<< "$line" # Split line by white space into fields array
    value="${fields[-2]}" # extract next to last field on line
    newkey="${fields[-1]}" # extract last field
    record[$key]="$value"  # insert into associative array
    key="$newkey"
done < "$file"

for key in "${!record[@]}" ; do
    echo "$key =  ${record[$key]}"
done