open FILE, 'AA.TXT' or die;my @lines = split ( , '\n' );my %values;foreach my $line (@lines) { if ( $line =~ /^\s*(\S+)\s*=\s*(\S+)\s*$/ ) { $values{$1} = $2; }}
在aa.txt前加一个<符号
