1

テキストファイルからニックネームのリストを照会したい。

#!/usr/bin/perl    
use strict;
use warnings;
use MongoDB;

# Open file
print "--> Read file\n";
open( INPUT, "<userlist.txt" ) or die "Could not open the file: $!\n";
print "--> Read INPUT OK\n";
open( OUTPUT, ">>outfile.txt" ) or die "Could not open the file: $!\n";
print "--> Read OUTPUT OK\n";

# MongoDB parameter
my $mongoHost = localhost;
my $mongoPort = 12345;

my $conn = MongoDB::Connection->new( "host" => "$mongoHost", "port" => $mongoPort );    # Open connection
my $db = $conn->mylist;                                                                 # Connect to database
my $user_stats = $db->user_stats;                                                    # Choose a collection
print "--> Connect to MongoDB\n";

# Read through line
foreach my $line ( <INPUT> ) {
    # Extract content
    chomp( $line );   # Remove newline
    print "$line\n";

    my $statsResult = $user_stats->find( { nickname => '$line' } );
    while ( my $obj = $statsResult->next ) {
        print $obj->{ "nickname" } . ";";
        print $obj->{ "total" } . "\n";
    }
}
close( OUTPUT );
close( INPUT );

print "--> End of Code\n";
exit 0;

$line行で変数を認識できないようです。のような文字列my $statsResult = $user_stats->find( { msisdn => '$line' } ); に置き換えると機能します。以前の print ステートメントは問題なく動作しました。$linemynickname

ここで何か不足していますか？

4

1 に答える 1

4

行で一重引用符を使用しています

my $statsResult = $user_stats->find( { nickname => '$line' } );

$line変数の内容ではなく、データベースで文字列が検索されていることを意味します。一重引用符を削除すると、問題ありません。

また、 Perl でのさまざまな形式の引用に関するすばらしいチュートリアルもあり、単一引用符が二重引用符と異なる理由、qq意味などを説明しています。

于 2012-04-25T15:37:36.367 に答える